vb单选按钮如何做计算器

我要一个简单的计算器在text1.text和text2.text2个框内输入2个数然后有加减乘除四个单选按钮,要求选中其中一个按钮后,按command1按钮在text3.... 我要一个简单的计算器 在text1.text和text2.text 2个框内输入2个数
然后有加减乘除四个单选按钮,要求选中其中一个按钮后,按command1按钮
在text3.text中显示出计算结果 我编写的代码如下,主要是不知道怎么把运算和单选按钮合在一起用
Private Sub Form_Load()
Dim a%, b%, c%
a = Val(Text1.Text)
b = Val(Text2.Text)
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text3.FontItalic = True
Else
Text3.FontItalic = False
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Text3.FontBold = True
Else
Text3.FontBold = False
End If
End Sub

Private Sub Command1_Click()
If Option1.Value = True Then
Text3.Text = a + b
ElseIf Option2.Value = True Then
Text3.Text = a - b
ElseIf Option3.Value = True Then
Text3.Text = a * b
ElseIf Option4.Value = True Then
Text3.Text = a / b
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub
展开
 我来答
mosquitokobe
2009-03-25 · TA获得超过4253个赞
知道大有可为答主
回答量:5008
采纳率:50%
帮助的人:0
展开全部
控件有1个按钮 2个label 2个text 4个option数组控件 代码如下

Private Sub Command1_Click()
Label2.Caption = "等于:"
If Option1(0).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) + Val(Text2.Text))
If Option1(1).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) - Val(Text2.Text))
If Option1(2).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) * Val(Text2.Text))
If Option1(3).Value = True Then Label2.Caption = Label2.Caption & (Val(Text1.Text) / Val(Text2.Text))
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Label1.Caption = "+"
Case 1
Label1.Caption = "-"
Case 2
Label1.Caption = "*"
Case 3
Label1.Caption = "/"
End Select
End Sub
可以叫我表哥
2015-08-19 · 知道合伙人数码行家
可以叫我表哥
知道合伙人数码行家
采纳数:25897 获赞数:1464984
2010年毕业于北京化工大学北方学院计算机科学与技术专业毕业,学士学位,工程电子技术行业4年从业经验。

向TA提问 私信TA
展开全部
可以就是将文本框后面增加一个数字,就是在文本框内容最后增加命令按钮所显示的数字
比如
Private Sub Command3_Click()
text1.Text = text1.Text & "3"
End Sub
或通用的按钮组
Private Sub Command1_Click(Index As Integer)
text1.Text = text1.Text & Index
End Sub
都行
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友df1f5cefb
2009-03-25
知道答主
回答量:7
采纳率:0%
帮助的人:6.4万
展开全部
在单选的click事件里面进行计算就OK了!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
czpsys
2009-03-25 · TA获得超过200个赞
知道小有建树答主
回答量:430
采纳率:0%
帮助的人:161万
展开全部
你说错了吧,我看到怎么是复选框啊
你说的问题,以经有人回答了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

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

类别

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

说明

0/200

提交
取消

辅 助

模 式