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

2、簡(jiǎn)單點(diǎn)的dim 上一個(gè)數(shù) as double dim 下一個(gè)數(shù) as double dim 結(jié)果 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 ‘開(kāi)始加減乘除運(yùn)算 Select Case ysf Case “+”Text1Text = s1 + s2 Case “”Text1Text = s1 s2 Case “*”Text1Text = s1 * s2 Case “”If s2 = 0 Then MsgBox “。

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

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

7、用VB做個(gè)計(jì)算器 要最簡(jiǎn)單的 實(shí)現(xiàn)加減乘除 10 用最簡(jiǎn)單的代碼if語(yǔ)句來(lái)編輯等號(hào)里的加減乘除都要最簡(jiǎn)單的代碼數(shù)字鍵和小數(shù)點(diǎn)的不用了設(shè)三個(gè)通用DimxAsDouble，yAsDoubleDimzAsString用COM鍵和LABEL說(shuō)了要用最最簡(jiǎn)單的代碼 用最。

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

9、工具材料 電腦 VB軟件 01 打開(kāi)VB，新建一個(gè)EXE文件02 畫(huà)上四個(gè)方框，表示運(yùn)算法則即加減乘除四項(xiàng)，3個(gè)文本控件表示數(shù)，一個(gè)標(biāo)簽控件為“=”并對(duì)控件進(jìn)行命名。

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

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

12、MsgBox quot 正常的加減乘除都是正常的，當(dāng)你使用混合加減乘除時(shí)切記，必須要先寫(xiě)上你要乘，除，加，減或二次方的數(shù)字再點(diǎn)擊加減乘除符號(hào)，否則會(huì)造成數(shù)據(jù)復(fù)位，前面的會(huì)白算的，這與計(jì)算器是一個(gè)道理舉例來(lái)說(shuō)本來(lái)是。

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

14、給你寫(xiě)了個(gè)例子，看看就OK了可以把對(duì)應(yīng)的加號(hào)換成其他運(yùn)算符號(hào)Private Sub Command1_Click#39在文本框 text1text 中輸入的格式需要是 X+Y 這中方式 Dim a As Double Dim b As Double a = MidText1Text。

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

16、#39這個(gè)程序是表達(dá)式運(yùn)算程序，支持09數(shù)字輸入，小數(shù)點(diǎn)，+*，四則運(yùn)算及括號(hào) #39expression函數(shù)式調(diào)用程序，輸入為表達(dá)式字符串，返回值為結(jié)果字符串，在你的程序中只需要在等號(hào)處理程序中調(diào)用若滿(mǎn)意請(qǐng)及時(shí)采納，謝謝。