不丹旺楚克王朝:请问VB中从1到10里怎么 才能随机去两个 不同的 数呢？

来源：百度文库 编辑：高校问答 时间：2024/05/12 12:22:31
在 已知1,2,3,4,5,6,7,8,9,10,里取两个不同的数

Private Sub Command1_Click()
Dim i, j As Integer
Randomize '初始化随机数生成器
'i j 从1－10里面随机取值
i = Int((10) * Rnd + 1)
j = Int((10) * Rnd + 1)
'若i与j的值相等就继续取j的值，直到i<>j
While (j = i)
j = Int((10) * Rnd + 1)
Wend
Label1.Caption = i & "---" & j
End Sub

他这种方法不好.因为他这个随机数不是随机数,是伪随机数,随机数要先进行种子的初始化.

请问VB中从1到10里怎么 才能随机去两个 不同的 数呢？ 请问VB中怎么能向右循环一位,让他自动补到前面去 在《仙剑》中，我和阿奴从树洞里出来，怎么走才能到大理？ VB中怎么存放图片到SQ里 请问从桂林到惠州怎么去? 请问怎么才能把本机的文件`拷贝到光盘中去`` 请问VB中怎么能把文本框里的字，存到自己定义的变量里面 QQ空间里音乐怎么不能随机播放呀，怎么样才能随机放音乐呢。 从浦东怎么才能到海边去啊？ 请问怎么才能把硬盘中存的图片复制到电子邮件的写信内容里！