VB简单加法运算

Private Sub Command1_Click()

x = Val(Text1.Text)
y = Val(Text2.Text)
z = x + y
Text3.Text = z

End Sub

没有输入数字的话

运行程序时会得出０　

请问怎样才能不出现０

还有我这样的格式有没有缺少什么?

1）Val把空的字符串（Nothing）或者是""解析为0.0这样的浮点型字符串，所以得到0.解决的办法就是你判断你的Textbox是否是空，不为空才计算：

If (Text1.Text="" || Text1.Text Is Nothing || Text2.Text="" || Text2.Text Is Nothing) Then

  MsgBox("不能为空~~~")

Else

 x = Val(Text1.Text)
y = Val(Text2.Text)
z = x + y
Text3.Text = z

End If