UC知道vb求注释，谢谢拉
来源：百度知道 编辑：UC知道 时间：2024/07/03 09:13:06
Private Sub Form_Load()
Randomize
Show
Dim a(1 To 50) As Integer, g(1 To 9) As Integer
a(1) = Int(10 + 90 * Rnd)
k = 1
Do While k < 50
x = Int(10 + 90 * Rnd)
f = 0
For j = 1 To k
If x = a(j) Then
f = 1
Exit For
End If
Next
If f = 0 Then
k = k + 1
a(k) = x
End If
Loop
For j = 1 To 50
h = Int(a(j) / 10)
g(h) = g(h) + 1
Next
For j = 1 To 9
Print 10 * j; "-"; 10 * j + 9, g(j)
Next
End Sub
Randomize
Show
Dim a(1 To 50) As Integer, g(1 To 9) As Integer
a(1) = Int(10 + 90 * Rnd)
k = 1
Do While k < 50
x = Int(10 + 90 * Rnd)
f = 0
For j = 1 To k
If x = a(j) Then
f = 1
Exit For
End If
Next
If f = 0 Then
k = k + 1
a(k) = x
End If
Loop
For j = 1 To 50
h = Int(a(j) / 10)
g(h) = g(h) + 1
Next
For j = 1 To 9
Print 10 * j; "-"; 10 * j + 9, g(j)
Next
End Sub
Private Sub Form_Load()
Randomize '设置随机
Show '显示窗体
Dim a(1 To 50) As Integer, g(1 To 9) As Integer '定义数组
a(1) = Int(10 + 90 * Rnd) '随机储存10~99 50个数
k = 1 '赋值
Do While k < 50 '循环，当K<50，也就是循环50次
x = Int(10 + 90 * Rnd) 'x随机10~99
f = 0 'f赋值
For j = 1 To k '循环
If x = a(j) Then '如果x与上面存储的一样
f = 1 'F赋值1
Exit For '中途退出循环
End If '结束判断
Next '结束循环
If f = 0 Then '如果f=0
k = k + 1 '运算
a(k) = x '储存
End If '退出判断
Loop '退出循环
For j = 1 To 50 '循环
h = Int(a(j) / 10)
g(h) = g(h) + 1
Next
For j = 1 To 9
Print 10 * j; "-"; 10 * j + 9, g(j)
Next
End Sub