1、我們現(xiàn)在要text也要拉出三個，把了text里面text1text2text3全部刪掉我們現(xiàn)在要把command拉出四個，把里面command14都給成+* 現(xiàn)在我們現(xiàn)在要雙擊+，我們開始進行輸入代碼 在里面我們現(xiàn)在要text3text=valtext。

2、簡單點的dim 上一個數(shù) as double dim 下一個數(shù) as double dim 結果 as double dim 操作 as string private sub 加減乘除byval sender as object， byval e as eventargs handles 加click， 減click， 乘click。

3、Dim Op1， Op2 Dim DecimalFlag As Integer Dim NumOps As Integer Dim LastInput Dim OpFlag Dim TempReadout Private Sub Cancel_ClickReadout = Format0， quot0quotOp1 = 0 O。

4、s2 = ValText1Text ‘開始加減乘除運算 Select Case ysf Case “+”Text1Text = s1 + s2 Case “”Text1Text = s1 s2 Case “*”Text1Text = s1 * s2 Case “”If s2 = 0 Then MsgBox “。

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

6、添加1個Command控件數(shù)組4個符號用作加減乘除按鈕，name=cmdArithmetic，index=0~3 好了，然后復制以下代碼運行即可成功啦#39Private strCalculateType As String #39存放運算類型 Private blnCalFlag As Boolean #39標記是否已經。

7、用VB做個計算器 要最簡單的 實現(xiàn)加減乘除 10 用最簡單的代碼if語句來編輯等號里的加減乘除都要最簡單的代碼數(shù)字鍵和小數(shù)點的不用了設三個通用DimxAsDouble，yAsDoubleDimzAsString用COM鍵和LABEL說了要用最最簡單的代碼 用最。

8、以下是一個簡單的+*的計算器代碼，按鈕采用數(shù)組，text2不可見詳情也可在我的百度空間里查看“vb6 比較簡單的計算器代碼”下載源文件和說明Function EvalByVal Expressions As String As String #39文本運算vbs Dim。

9、工具材料 電腦 VB軟件 01 打開VB，新建一個EXE文件02 畫上四個方框，表示運算法則即加減乘除四項，3個文本控件表示數(shù)，一個標簽控件為“=”并對控件進行命名。

10、#39想用函數(shù)可用下面代碼 #39添加一個OptionButton數(shù)組Opt1Opt7和一個按鈕，三個文本框，二個標簽 Private Function C1Label1 = quot+quotText3 = ValText1 + ValText2End Function Private Function C2Label1。

11、編輯一個有0~9小數(shù)點加減乘除的計算器 用一個窗體就可以實現(xiàn)，你可以試試 Option Explicit Dim strNumber As String Dim strPoint As String Dim dblNum1 As Double Dim intOperator As Integer #39清除結果 Private。

12、MsgBox quot 正常的加減乘除都是正常的，當你使用混合加減乘除時切記，必須要先寫上你要乘，除，加，減或二次方的數(shù)字再點擊加減乘除符號，否則會造成數(shù)據(jù)復位，前面的會白算的，這與計算器是一個道理舉例來說本來是。

13、if instrtext2，quotquot= 0 then text2 = text2 quotquotif text2 = quotquotthen text2 = quot0quotstr1 = text2 else beep end if 你的str1是保存數(shù)字嗎你單獨給一個過程怎么看得懂不行的話你把代碼全復制到。

14、給你寫了個例子，看看就OK了可以把對應的加號換成其他運算符號Private Sub Command1_Click#39在文本框 text1text 中輸入的格式需要是 X+Y 這中方式 Dim a As Double Dim b As Double a = MidText1Text。

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

16、#39這個程序是表達式運算程序，支持09數(shù)字輸入，小數(shù)點，+*，四則運算及括號 #39expression函數(shù)式調用程序，輸入為表達式字符串，返回值為結果字符串，在你的程序中只需要在等號處理程序中調用若滿意請及時采納，謝謝。