用VB控件編寫一個計算器遇到的問題

關於編程方麵的問題，可以到【編程基礎】版塊提問的
http://bbs.cfanclub/forum-35-1.html

版主 幫忙給轉到編程基礎版塊吧

沒用過VB,下了個試了下,在你的代碼裏加上這麼幾行,似乎是能實現你要的效果的 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複製代碼效果圖:


不知道是否有更簡單的方法,等FF來看吧

安靜姐 真厲害 果然奏效，不過你那圖片挺好玩的，咋弄的，教教我

安靜發的圖片是GIF格式的
軟件可以直接截圖成GIF，軟件區有軟件

順便找了下地址：http://bbs.cfanclub/forum.ph ... %3D37%26typeid%3D37

每個case計算完成後要break

謝了 安靜和6樓大哥 最近忙 很少上網 沒及時修改和回複