快开看看这段VB6.0程序代码是什么意识啊?????
来源:百度知道 编辑:UC知道 时间:2024/05/25 15:20:14
求你们解释详细一点把 最好是每一步都解释一下 因为我是处学者 谢谢你们了!!!!!
Private Sub Command1_Click()
Dim intranum As Integer, i As Integer, j As Integer, A As Integer
Randomize
For i = 1 To 1000
intranum = Int(100 * Rnd) + 1
A = 0
For j = 1 To 10000
A = A + 1
Next j
Text1.Text = CStr(intranum)
Text1.Refresh
Next i
Text1.Text = CStr(intranum)
End Sub
Private Sub Command1_Click()
Dim intranum As Integer, i As Integer, j As Integer, A As Integer
Randomize
For i = 1 To 1000
intranum = Int(100 * Rnd) + 1
A = 0
For j = 1 To 10000
A = A + 1
Next j
Text1.Text = CStr(intranum)
Text1.Refresh
Next i
Text1.Text = CStr(intranum)
End Sub
Private Sub Command1_Click()
Dim intranum As Integer, i As Integer, j As Integer, A As Integer
Randomize
'这行语句是为了使随机数的种子保持无序,从而使生成的数更既有随机性
For i = 1 To 1000
intranum = Int(100 * Rnd) + 1
'生成1到100的随机数
A = 0
For j = 1 To 10000
A = A + 1
Next j
'以上几行作为延时用,无意义
Text1.Text = CStr(intranum)
'把 intranum转化为字符串输出到TEXT1
Text1.Refresh
'TEXT1控件刷新
Next i
Text1.Text = CStr(intranum)
'最后还要显示一次,否则TEXT1的内容就被刷新没了
End Sub
整个程序的意思就是在TEXT1中不停显示1-100的随机数,总共执行1000次