求vb程序代码

显示全部楼层 · 2011-3-19 20:54:34

Q1：
在（0,1）之间生成随机实数，在text1中显示
在（1,10）之间生成随机实数，在text2中显示
在〔10,100）之间生成随机整数，在text3中显示
Q2：
在文本框中输入1个三位十进制整数（按“计算”按钮判断），分别在3个标签控件中显示其百位、十位、个位（要求使用算术运算符）

千问 · 2011-3-19 20:54:34

Q1：Private Sub Form_Click()
Text1.Text = Int(Rnd * 2)
Text2.Text = Int(Rnd * 10) + 1
Text3.Text = Int(Rnd * 91) + 10End Sub Q2:Private Sub Command1_Click()Dim a As Integera = Val(Text1.Text)Label1.Caption = a \ 100Label2.Caption = a \ 10 Mod 10Label3.Caption = a Mod 10End Sub

千问 · 2011-3-19 20:54:34

Q1：Private Sub Form_Click()
Text1.Text = Rnd * 2
‘实数
Text2.Text = Rnd * 10 + 1
‘实数
Text3.Text = Int(Rnd * 91) + 10
’整数End Sub Q2:P