求解一道VB题

新建工程,在窗体上添加三个文本框,1个标签,1个命令按钮,要求程序运行后,在TEXT1和TEXT2中分别输入两个整数,单击“=”按钮后,将两个整数之间的所有整数累加起来并在TEXT3中显示出来

相关代码如下:

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
Text3.Locked = True '禁止写入
Command1.Caption = "="
End Sub
Private Sub Command1_Click()
'防止错误
If IsNumeric(Text1) = False Then MsgBox "请输入数字!", vbInformation, "错误": Text1 = "": Text1.SetFocus: Exit Sub
If IsNumeric(Text2) = False Then MsgBox "请输入数字!", vbInformation, "错误": Text2 = "": Text2.SetFocus: Exit Sub
Text3 = CInt(Text1) + CInt(Text2)
End Sub

运行情况如下:

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-03-25
三个文本框分别为text1,text2,text3 命令按钮caption属性为"=",编写命令按钮command1的click事件,代码如下:
text3.text=str(val(text1.text)+val(text2.text))
第2个回答  2014-03-25
双击“=”按钮,把下面代码直接复制到光标闪烁的地方
text3.text=text1.text+text2.text
相似回答