VB小程序：在1到M个数之间取N个不同的随机数

来源：百度知道 编辑：UC知道 时间：2024/09/22 15:39:29
M N 为text1 和text2 获得
结果显示在text3中
完整一点 最后自己先运行过

Private Sub Demo()
Dim M As Integer, N As Integer, S As String

M = CInt(text1.Text)
N = CInt(text2.Text)

For j = 1 To N
S = S & (Rnd(M) * 10000 Mod M + 1) & ", "
Next

text3.Text = S
End Sub

for n =1 to text2.text
text3.text=text3.text & int(rnd*val(text1.text)+1) & " "
next