求解一道VB题
新建工程,在窗体上添加三个文本框,1个标签,1个命令按钮,要求程序运行后,在TEXT1和TEXT2中分别输入两个整数,单击“=”按钮后,将两个整数之间的所有整数累加起来并...
新建工程,在窗体上添加三个文本框,1个标签,1个命令按钮,要求程序运行后,在TEXT1和TEXT2中分别输入两个整数,单击“=”按钮后,将两个整数之间的所有整数累加起来并在TEXT3中显示出来
展开
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
运行情况如下:
展开全部
三个文本框分别为text1,text2,text3 命令按钮caption属性为"=",编写命令按钮command1的click事件,代码如下:
text3.text=str(val(text1.text)+val(text2.text))
text3.text=str(val(text1.text)+val(text2.text))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
双击“=”按钮,把下面代码直接复制到光标闪烁的地方
text3.text=text1.text+text2.text
text3.text=text1.text+text2.text
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询