作业帮 > 综合 > 作业

在VB中,设置一个TEXT1,要求输入10则取0到10之间的不重复整数,输入20则取11到20之间不重复整数,以此类推.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 19:26:30
在VB中,设置一个TEXT1,要求输入10则取0到10之间的不重复整数,输入20则取11到20之间不重复整数,以此类推.当然,取数能从小到大取更好,即:1,2,3,4,5,6...
一次去一个即可.
只需Int(Rnd或其他的简单表达式,因为我要直用所取的数做计算
输入10的倍数后按回车!
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
n = Int(Text1.Text)
If n Mod 10 0 Then
MsgBox "取值不为10的倍数!"
Exit Sub
End If
Text1.Text = ""
For i = 9 To 1 Step -1
Text1.Text = Text1.Text & "," & n - i
Next
Text1.Text = Right(Text1.Text,Len(Text1.Text) - 1)
End If
End Su