当前位置：系统粉 > 电脑问答 > 其他问答 > 用VB控件编写一个计算器遇到的问题

用VB控件编写一个计算器遇到的问题

提问者：冰封樱桃 | 浏览次 | 提问时间：2017-03-07 | 回答数量：8

VB实现一个简单计算器的功能如图用VB控件编写一个计算器遇到的问题(图1) 但是遇到了这样一个问题注：（使用的是控件组，case 语句如图用VB控件编写一个计算器遇到的问题(图2) ）代码如下 Private Sub Command1_Click() Select Case Index Case 0 Text3.Text = Val(Text1.Text) + Val(Text2.Text) Case 1 Text3.Text = Val(Text1.Text) - Val(Text2.Text) Case 2 Text3.Text = Val(Text1.Text) * Val(Text2.Text) Case 3 Text3.Text = Val(Text1.Text) / Val(Te

已有8条答案

iii1451

回答数：26 | 被采纳数：9

2017-03-08 00:22:59

关于编程方面的问题，可以到【编程基础】版块提问的 (1)

http://bbs.cfanclub/forum-35-1.html

幻非空

回答数：139 | 被采纳数：132

2017-03-08 00:50:26

版主帮忙给转到编程基础版块吧

超级可爱小破孩

回答数：125 | 被采纳数：62

2017-03-08 03:49:27

没用过VB,下了个试了下,在你的代码里加上这么几行,似乎是能实现你要的效果的 (2)

Private Sub Command1_Click()

If Option1(0).Value = True Then Index = 0
If Option1(1).Value = True Then Index = 1
If Option1(2).Value = True Then Index = 2
If Option1(3).Value = True Then Index = 3

Select Case Index
Case 0
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case 1
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case 2
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case 3
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select

End Sub复制代码效果图:
(3)