VB关于MsgBox的问题
如图，想做成图片那样的，请问MsgBox函数代码怎么打？谢谢！PrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii<...
如图，想做成图片那样的，请问MsgBox函数代码怎么打？谢谢！Private Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii < Asc("0") Or KeyAscii > Asc("9") ThenKeyAscii = 0End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < Asc("0") Or KeyAscii > Asc("9") ThenKeyAscii = 0End IfEnd SubPrivate Sub Command1_Click()Dim a%, b%a = Val(Text1.Text)b = Val(Text2.Text)Select Case Text3.TextCase "+"Text4.Text = a + bCase "-"Case "*"Case "/"Text4.Text = a / bEnd SelectEnd Sub
展开
展开全部
if b=0 then msgbox "内容"
===========
case "/"
text4.text=a/b
case else
msgbox "符号错误"
===========
case "/"
text4.text=a/b
case else
msgbox "符号错误"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
意法半导体(中国)投资有限公司
2023-06-12 广告
单片机，即单片微控制器，也称为单片微型计算机，是将中央处理器（CPU）、存储器（ROM，RAM）、输入/输出接口和其他功能部件集成在一块 在一个小块的集成电路上，从而实现对整个电路或系统的数字式控制。单片机不是完成某一个逻辑功能的芯片，而是...
点击进入详情页
本回答由意法半导体(中国)投资有限公司提供
展开全部
Private Sub Command1_Click()
Dim a%, b%
a = Val(Text1.Text)
b = Val(Text2.Text)
if b=0 then
msgbox "除数为0"
exit sub
endif
Select Case Text3.Text
Case "+"
Text4.Text = a + b
Case "-"
Case "*"
Case "/"
Text4.Text = a / b
case else
msgbox "运算符错误"
End Select
End Sub
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
