Question

VB程序里，当存在无内容的text时，如何不报错。

举个例子简单说明吧，假设该程序是一个计算器.
private sub command1_click()
text3.text=text1.text+text2.text
end sub
当text1或者text2没有填入数字而点击command1时，如何弹出msgbox，提示输入数字。
当然，上述程序会默认空白的text值为0而继续运算。我的程序比较复杂，必须要求每个文本框里都有数值才可运算，一旦有空白的文本框，就会提示“实时错误13 类型不匹配”。

Answer 1

在每一个调用文本框时都加一个转换函数如：val(text1.text)，这样当文本框中没有内容时会自动按0处理，如果需要处理没有内容时报错，就需要对每一个文本框进行判断了。

Answer 2

可以循环判断text1和text2的值是否为空，顺便说一下，你还没判断输入的是否为数字呢，字符串也可以做加法的，所以我都帮你考虑了，这是更改后的代码，望采纳：

Private Sub command1_click()

    While Text1.Text = "" Or IsNumeric(Text1.Text) = False

    Text1.Text = InputBox("请输入Text1的值")

    Wend

    While Text2.Text = "" Or IsNumeric(Text2.Text) = False

    Text2.Text = InputBox("请输入Text2的值")

    Wend

    Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

看了你的追问，我只想说，你要设计计算器还想几行代码搞定呀？这是我以前写的，虽然写的不是很好，给你参考一下吧

Answer 3

private sub command1_click()
if text1.text="" then
msgbox "请输入!"
exit sub
end if
if text2.text="" then
msgbox "请输入!"
exit sub
end if
text3.text=text1.text+text2.text
end sub

追问

有没有更简便的方法，因为我的文本框有三十个左右。。

追答

方法有两:
1,把文本框改用控件数组
2,自字定义一个过程,参数是文本框