求高手解答VB

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:50:02
利用随机函数生成20个1-100之间的各不相同的正整数,并在窗体上显示出来.(用过程编写)
我刚接触VB,不会编,请各位朋友帮我写一下代码,谢谢了哦,最好是每一步有说明的.

Dim T As Integer, N As Integer
Dim R(1 To 100) As Boolean
Do
T = Int(Rnd * 100) + 1
If R(T) = False Then
N = N + 1
R(T) = True
Print T
End If
Loop While N < 20

dim a(20)
for i = 1 to 20
a(i)=int(rnd*100+1)
print i
next i

用randimoz

Dim a(20) As Integer '定义数组用于储存20个随机数
Dim i, j As Integer
Dim b As Integer '定义临时值
Randomize
For i = 1 To 20 '定义数组的初始值
a(i) = 0
Next i
Do While j <= 20 'j为计数器
b = Int(Rnd * 100 + 1) '产生随机数
For i = 1 To 20
If b = a(i) Then Exit For'如果新的随机数b与数组中的一个相同则退for
If i = 20 Then '如果都不相同，即i到20
a(j) = b '将b值赋给数组元素
j = j + 1 '同时计数器值加1
End If
Next i
loop