系统粉 > 电脑问答 > 其他问答

已解决用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

iii1451

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

关于编程方面的问题,可以到【编程基础】版块提问的(1)
http://bbs.cfanclub/forum-35-1.html
2017-03-08 00:22:59
赞 2
幻非空

幻非空

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

版主 帮忙给转到编程基础版块吧
2017-03-08 00:50:26
赞 13
超级可爱小破孩

超级可爱小破孩

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

没用过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)

不知道是否有更简单的方法,等FF来看吧 (4)
2017-03-08 03:49:27
赞 12
__紫焰银霜

__紫焰银霜

回答数:39  |  被采纳数:138

安静姐 真厉害 果然奏效,不过你那图片挺好玩的,咋弄的,教教我(5)(6)
2017-03-08 04:39:50
赞 3
佐独轩

佐独轩

回答数:138  |  被采纳数:114


安静发的图片是GIF格式的
软件可以直接截图成GIF,软件区有软件
2017-03-08 08:23:49
赞 13
你猜不透nice

你猜不透nice

回答数:155  |  被采纳数:44

顺便找了下地址:http://bbs.cfanclub/forum.ph ... %3D37%26typeid%3D37
2017-03-08 04:02:06
赞 15
踩到太阳

踩到太阳

回答数:127  |  被采纳数:39

每个case计算完成后要break
2017-03-08 08:29:50
赞 12
奥特曼为何作怪

奥特曼为何作怪

回答数:201  |  被采纳数:6

谢了 安静和6楼大哥 最近忙 很少上网 没及时修改和回复(7)
2017-03-08 20:52:50
赞 20
相关问答
最新其他问答
解决方法