UC知道vb6随机数
来源：百度知道 编辑：UC知道 时间：2024/07/06 16:02:02
点击button1后text1上出现7个随机数字，text2则显示其随机数的倒序数。
并在窗体的左上显示自己的2位学号分别在text2中第几位。
如学号为03，text1随机得到5315075，则text2显示5705135，并在窗体左上显示0 3
3 6
第几位分别写在学号下面，也就是说要空行的
并在窗体的左上显示自己的2位学号分别在text2中第几位。
如学号为03，text1随机得到5315075，则text2显示5705135，并在窗体左上显示0 3
3 6
第几位分别写在学号下面，也就是说要空行的
Sub button1_click()
Dim s As String, i As Long, t As String
Dim ID As String
Randomize
For i = 1 To 7
s = s & Chr(Int(Rnd * 9 + 48))
Next
Text1 = s
For i = 1 To 7 / 2
t = Asc(Mid(s, Len(s) - i + 1, 1))
Mid$(s, Len(s) - i + 1, 1) = Mid(s, i, 1)
Mid$(s, i, 1) = Chr(t)
Next
Text2 = s
ID = InputBox("输入学号")
Print ID
For i = 1 To Len(ID)
Print Trim$(Str$(InStr(s, Mid(ID, i, 1))));
Next
End Sub