急急急!!!vb随机数求和(10~99之间)
来源:百度知道 编辑:UC知道 时间:2024/06/08 15:15:28
我写的
Private Sub Command1_Click()
Text1.Text = Text2.Text = Fix(99 - 10 + 1) * md + 10
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
老是执行不了 我单击按扭没反映
哪为英雄帮我看一下哪里错了
Private Sub Command1_Click()
Text1.Text = Text2.Text = Fix(99 - 10 + 1) * md + 10
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
老是执行不了 我单击按扭没反映
哪为英雄帮我看一下哪里错了
你的代码有问题
Text1.Text = Text2.Text = Fix(99 - 10 + 1) * md + 10
不能这样写
要写成
Text1.Text = Fix(99 - 10 + 1) * md + 10
Text2.Text = Fix(99 - 10 + 1) * md + 10
你的 md 是随机数吗? 我不知道
我给出个可以实现的代码
Private Sub Command1_Click()
Randomize
Text1.Text = Int(89 * Rnd + 10)
Text2.Text = Int(89 * Rnd + 10)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub