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 展开
然后有加减乘除四个单选按钮,要求选中其中一个按钮后,按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 展开
展开全部
控件有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
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 · 知道合伙人数码行家
可以叫我表哥
知道合伙人数码行家
向TA提问 私信TA
知道合伙人数码行家
采纳数: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
都行
比如
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
都行
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在单选的click事件里面进行计算就OK了!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你说错了吧,我看到怎么是复选框啊
你说的问题,以经有人回答了
你说的问题,以经有人回答了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询