Question

vb题目：单击“生成随机数”按钮，随机生成两3位正整数M、N分别显示在对应文本框中。

急！！！

Answer 1

使用 Random类 可以实现。

Private Sub Button1_Click(sender As Object, e As EventArgs)_
Handles Button1.Click

Dim newrandom1 As New Random
Dim newrandom2 As New Random

Textbox1.text() = newrandom1.next(100,999)
Textbox2.text() = newrandom2.next(100,999)

End Sub

伪随机数是以相同的概率从一组有限的数字中选取的。所选数字并不具有完全的随机性，因为它们是用一种确定的数学算法选择的，但是从实用的角度而言，其随机程度已足够了。Random 类的当前实现是基于 Donald E. Knuth 的减随机数生成器算法的。有关更多信息，请参见 D. E. Knuth.“The Art of Computer Programming, volume 2: Seminumerical Algorithms”。Addision-Wesley, Reading, MA, second edition, 1981。

Answer 2

Private Sub Command1_Click()
Randomize
Text1.Text = Cstr(Int(Rnd * 900 + 100))
Text2.Text = Cstr(Int(Rnd * 900 + 100))
End Sub

Answer 3

Private Sub Command1_Click()
Text1.Text = Int(Rnd * 899 + 100)
Text2.Text = Int(Rnd * 899 + 100)
End Sub

Answer 4

Private Sub Command20_Click()

Dim r1, r2 As Long

Randomize Timer

r1 = Fix(899 * Rnd() + 100)

r2 = Fix(899 * Rnd() + 100)

Text6.Text = r1
Text7.Text = r2

End Sub