UC知道谁能帮我逐行解释这段VB代码?顺便看下有没有错!
来源：百度知道 编辑：UC知道 时间：2024/06/26 06:03:55
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Static n As Integer
n = n + 1
If n > 10 Then Exit Sub
Do
x = Int((10 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For
Next i
Loop Until j
a(n) = x
Print a(n)
End Sub
Private Sub Form_Load()
Randomize
End Sub
Private Sub Command1_Click()
Static n As Integer
n = n + 1
If n > 10 Then Exit Sub
Do
x = Int((10 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For
Next i
Loop Until j
a(n) = x
Print a(n)
End Sub
Private Sub Form_Load()
Randomize
End Sub
Dima(1To10)AsInteger '声明一个数组A 范围是1~10
PrivateSubCommand1_Click()
StaticnAsInteger '声明N是个整形变量
n=n+1 'N自+1
Ifn>10ThenExitSub ' 如果N>10则退出程序
Do ’这里是一个循环的开始
x=Int((10-1+1)*Rnd+1) 'X=1~10随机
j=True ’把J的值设置为真
Fori=1Ton-1 ’循环