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

關於編程方麵的問題，可以到【編程基礎】版塊提問的 (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)