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

显示全部楼层 · 2016-1-6 11:09:16

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

千问 · 2016-1-6 11:09:16

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

千问 · 2016-1-6 11:09:16

Private Sub Command20_Click()
Dim r1, r2 As Long
Randomize Timerr1 = Fix(899 * Rnd() + 100)
r2 = Fix(899 * Rnd() + 100)Text6.Text = r1Text7.Text = r2End Sub