現(xiàn)在我們現(xiàn)在要雙擊+，我們開始進行輸入代碼 在里面我們現(xiàn)在要text3text=valtext1text+valtext2text我們要把這個text3text=valtext1text+valtext2text復(fù)制，把里面+號分別改成* 如圖，就像這。

Text3Text = ValText1Text + ValText2Text，其實代碼很簡單，就這一句只要更換把‘+’分別換成‘’‘*’‘’即可5好了，現(xiàn)在可以點擊運行或者F5鍵運行，即可得到第一個簡單的計算器程序。

quotIf Op2 = 0 Then MsgBox quot除數(shù)不能為 0quot， 48， quot計算器quotElse Op1 = CDblOp1 CDblOp2End If Case quot=quotOp1 = CDblOp2Case quot%quotOp1 = CDblOp1 * CDblOp2。

Dim Op1， Op2 #39 預(yù)先輸入操作數(shù)Dim DecimalFlag As Integer #39 小數(shù)點存在嗎Dim NumOps As Integer #39 操作數(shù)個數(shù)Dim LastInput #39 指示上一次按鍵事件的類型Dim OpFlag #39 指示未完成的操作Dim。

很簡單的窗口放入四個COMMAND控件Caption屬性分別為+－X÷，三個TEXT控件，再放入三個Label控件Caption屬性分別為操作數(shù)1操作數(shù)2和計算結(jié)果，窗口的Caption屬性改為“四則運算”代碼如下Private Sub。

不知道你想要哪種，偶是新手，只會最簡單的 首先拖出三個text，再拖出4個Command按鈕 caption分別為+ * 這樣就準(zhǔn)備就緒了 先講一下簡單用法，第一個text是第一個加數(shù)被減數(shù)因數(shù)被除數(shù)，而第二個text是第二個。

分類 電腦網(wǎng)絡(luò) 程序設(shè)計 其他編程語言 解析其實比較簡單啦，用一個窗體就可以實現(xiàn)啦！我自己寫的，你可以看看 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim。

Private Sub Command1_ClickIndex As IntegerIf Index = 16 Then Text1 = MidText1， 1， LenText1 1ElseIf Index = 15 Then Text1Text = CalcStrText1TextElse Text1 = Text1 Command1Index。

此后繼續(xù)使用“粘貼”的方法建立其他控件組中其余按鈕，共20個按鈕，每建立一個，就將它拖到合適處，并修改相應(yīng)的Caption屬性值2各控件組其屬性設(shè)置如下設(shè)置效果如下圖所示二編寫代碼 Dim s1 As Single， s2 As。

private sub 計算byval sender as object， byval e as eventargs handles 等號click 下一個數(shù) = 輸入框text 輸入框text ＝ ”“select case 操作 case quot加quot結(jié)果 = 上一個數(shù) + 下一個數(shù) case quot減quot結(jié)果 =。

添加3個TEXT，和1個COMMAND按鈕，把下面代碼復(fù)制即可 Private Sub Command1_ClickText3 = ValText1+ ValText2End Sub 其中Text1和Text2是你要輸入的兩個加數(shù)，command是把兩個數(shù)相加，text3是結(jié)果。

vb乘法是 * ，5乘以6 就是 5*6，點擊計算按鈕寫 text3=valtext1*valtext2#39這樣就可以了。

以上的回答這么麻煩，還讓人活嗎只需如此涉及控件text，com1，com2三種 屬性設(shè)置無 命令如下通用命令 Option Explicit Dim v As Boolean Dim s As Integer Dim x As Double Dim y As Double 按鈕一的命令 Pr。

因為17個按鈕使用的是同一事件，所以我們用一個Select Case語句區(qū)分各個按鈕，雙擊任意按鈕輸入代碼Private Sub Command1_ClickIndex As IntegerSelect Case Index Case 0 To 9 If FirstNum Then StrNum1 = StrIndex。

切記，必須要先寫上你要乘，除，加，減或二次方的數(shù)字再點擊加減乘除符號，否則會造成數(shù)據(jù)復(fù)位，前面的會白算的，這與計算器是一個道理舉例來說本來是2+22的按扭順序，在這里是2 + 2 2 舉。