求解一道VB题

新建工程,在窗体上添加三个文本框,1个标签,1个命令按钮,要求程序运行后,在TEXT1和TEXT2中分别输入两个整数,单击“=”按钮后,将两个整数之间的所有整数累加起来并... 新建工程,在窗体上添加三个文本框,1个标签,1个命令按钮,要求程序运行后,在TEXT1和TEXT2中分别输入两个整数,单击“=”按钮后,将两个整数之间的所有整数累加起来并在TEXT3中显示出来 展开
 我来答
149005501
2014-03-25 · TA获得超过8.6万个赞
知道顶级答主
回答量:7.9万
采纳率:90%
帮助的人:1.3亿
展开全部

相关代码如下:

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

运行情况如下:

付可笛
2014-03-25 · TA获得超过209个赞
知道答主
回答量:41
采纳率:0%
帮助的人:15.1万
展开全部
三个文本框分别为text1,text2,text3 命令按钮caption属性为"=",编写命令按钮command1的click事件,代码如下:
text3.text=str(val(text1.text)+val(text2.text))
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dahuilang1203
2014-03-25 · TA获得超过183个赞
知道答主
回答量:54
采纳率:0%
帮助的人:55.8万
展开全部
双击“=”按钮,把下面代码直接复制到光标闪烁的地方
text3.text=text1.text+text2.text
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式