VB菜鸟？？？？？？？？？？？？？？

来源：百度知道 编辑：UC知道 时间：2024/05/25 17:30:02
Dim x!, y!, z!
Private Sub Command1_Click()
x = 10 * Rnd
y = 10 * Rnd
z = x + y
End Sub

Private Sub Text1_Change()
x = Val(Text1.Text)
End Sub

Private Sub Text2_Change()
y = Val(Text2.Text)
End Sub

Private Sub Text3_Change()
z = Val(Text3.Text)
End Sub
求这个程序为什么不运行啊
求随机数的和
feiyanlhj - 经理 四级 你的QQ多少啊 我的QQ736889169

你想干什么?
你的command也在赋值,text的change也在赋值.
如果你想直接在输入的时候,就让text3 的值成为前两个的和,可以这样写
Private Sub Text1_Change()
if len(text2.text)>0 then
text3.text=val(text1.text)+val(text2.text)
endif
End Sub

Private Sub Text2_Change()
if len(text1.text)>0 then
text3.text=val(text1.text)+val(text2.text)
endifEnd Sub

这样也不好,不够周密,如果text里面是其它字符,也会执行,就会出错.

如果用command来写,就可以写成
if len(text1.text)>0 and len(text2.text)>0 then
text3.text=val(text1.text)+val(text2.text)
endif

还有,你最前面的是用的随机数(你确定随机数的函数没错?我记不大得了,基本语法超烂),如果想要随机数的话,
Private Sub Command1_Click()
text3.text=10*Rnd+10*Rnd
End Sub

你是不是想在text3中显示你的计算结果？
是的话，试试下面程序

Dim x!, y!, z!
Private Sub Command1_Click()
x = 10 * Rnd
y = 10 * Rnd
z = x + y
text3.text=z
text3.refresh
End Sub

Private Sub Text1_Change()
x = Val(Text1.Text)
End Sub