調用電腦系統計算器的vba代碼

① VB系統打開計算器的代碼

Private Sub Command1_Click()
Shell "calc.exe", 1
End Subshell是調用函數，可以用來調用可以執行的程序，後面的1是指調用後程序的打開方式，1是像普通窗口一樣打開。

② 如何調用電腦計算器

1.點擊電腦桌面左下角的「開始」按鈕。
2.在搜索框輸入「計算器」,點擊打開計算器。
3.點擊左上角的「查看」。
4.選擇「科學型」。
5.返回頁面,即可調用科學計算器。

③ 用VB編寫一個計算器程序的代碼

1、創建控制項組的方法
首先創建一個命令按鈕，調整其大小（覺得合適就行），名稱為Command1，Caption 屬性為數字 0 ；然後進行「復制」和「粘貼」，當選擇「粘貼」時，出現對話框提示已有一個同名控制項，詢問是否創建控制項組，選擇「是」後，即創建了一個名為「Command」的控制項組。

這時，第一個按鈕的Index屬性值默認為「0」，第二個的Index屬性值自動設為「1」，並且大小與第一個按鈕相同，只需修改其 Caption 屬性為數字「1」並將其拖至合適位置即可。此後繼續使用「粘貼」的方法建立其他控制項組中其餘按鈕，共20個按鈕，每建立一個，就將它拖到合適處，並修改相應的Caption屬性值。

2、各控制項組其屬性設置如下：

二、編寫代碼

Dim s1 As Single， s2 As Single， ysf As String

『定義兩個單精度數變數用與存放參與運算的數，一個字元型存放運算符

Private Sub Command1_Click（Index As Integer）

Text1.Text = Text1.Text & Command1（Index）.Caption 』將command1的單擊事件與文本框顯示的內容連接

End Sub

Private Sub Command2_Click（）

Text1.Text = Text1.Text + 「。」

If （InStr（Text1.Text， 「。」） = 1） Then 『第一位不能為小數

Text1.Text = 「」

End If

If InStr（Text1.Text， 「。」） 《 Len（Text1.Text） Then 』防止出現兩個小數點

Text1.Text = Left

（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub

Command3_Click（）

s2 = Val（Text1.Text） 『開始加減乘除運算

Select Case ysf Case 「+」

Text1.Text = s1 + s2

Case 「-」

Text1.Text = s1 - s2

Case 「*」

Text1.Text = s1 * s2

Case 「/」

If s2 = 0 Then

MsgBox 「分母不能為零！」

Text1.Text = 「」

Else

Text1.Text = s1 / s2 End If End Select

Text1 = IIf（Left（Text1.Text， 1） = 「。」， 0 & Text1.Text， Text1.Text） 『

這個很關鍵，如果沒有這個的話，得出小於1的小數前面沒有0

End Sub

Private Sub Command4_Click（）

If Text1.Text = 「」 Then 』文本為空就結束

Exit Sub

End If

Text1.Text = Left（Text1.Text， Len（Text1.Text） - 1） 『文本退一格

End Sub

Private Sub Command5_Click（）

Text1.Text = 「」 』清除當前框內文本

End Sub

Private Sub Command6_Click（Index As Integer）

s1 = Val（Text1.Text） 『將s1隱藏起來 ysf = Command6（Index）.Caption

Text1.Text = 「」

End Sub

Private Sub Command7_Click（）

If Left（Text1.Text， 1） 《》 「-」 Then 』判斷作為負數

Text1.Text = 「-」 & Text1.Text

Else

Text1.Text = Right（Text1.Text， Len（Text1.Text） - 1）

End If

End Sub

Private Sub Command8_Click（）

Text1.Text = Text1.Text * Text1.Text 『平方

End Sub

拓展資料

Visual Basic（VB）是由微軟公司開發的包含環境的事件驅動編程語言。它源自於BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接資料庫，或者輕松的創建ActiveX控制項。程序員可以輕松地使用VB提供的組件快速創建一個應用程序。

參考鏈Visual Basic——網路接

④ 怎樣用vba做一個計算器

Private Sub CommandButton1_Click()
Dim 稅金 As Double

If (text1.Value - 3500 < 1500) Then
稅金 = (text1.Value - 3500) * 0.03
ElseIf (text1.Value - 3500 > 1500) & (text1.Value - 3500 < 4500) Then
稅金 = (text1.Value - 3500) * 0.1 - 105
ElseIf (text1.Value - 3500 > 4500) & (text1.Value - 3500 < 9000) Then

Else
稅金 = (text1.Value - 3500) * 0.45 - 13505
End If

TEXT2.VALUE=稅金

End Sub

⑤ 如何在vb中調用系統的計算器程序

Dim ProcID As Integer
' Run Calculator.
ProcID = Shell("C:\Windows\system32\calc.exe", AppWinStyle.NormalFocus)
' The preceding path is for Windows XP;
' The Windows 2000 path is C:\WINNT\system32\calc.exe.
把上面的代碼加到一個事件中去就行了(比如:button_click事件),就可以了.

⑥ VBA中如何調用exe程序 如：我要用Excel2007 VBA 編程實現打開Caculator,並輸入12+3=15，如何實現

調用外部程序使用Shell語句，下面的實例是調用CMD命令打開DOS窗口並執行Dir命令，將瀏覽結果存入文件，然後用open語句打開文件，讀入vba，實例中使用的是絕對路徑，如果是相對路徑用「&」表示盤符，您要調用計算器，並獲取計算器的計算結果，僅調用外部程序是不行的，我嘗試使用API函數鉤子，結果是自己重新寫一個計算器都沒那麼費神
Sub shellcall()
Shell "cmd /c dir c:\>c:\1aaa.txt"
Open "c:\11ss.txt" For Input As #1
Dim s As String
While Not EOF(1)
Line Input #1, s
Debug.Print s
Wend
Close #1
End Sub

⑦ 如何用Excel Vba編寫個計算器 要求是：編寫個和電腦上一樣的計算器。

1、首先要做需求分析
2、設計窗體 像窗體添加元素（按鈕、標簽、文本框等等）
3、為每個按鈕賦值 像 加減乘除 阿拉伯數值等等
4、為每個按鈕添加單擊事件（就是計算公式，點擊加號時做加法）
5、將結果在文本框顯示
6、其它按鈕像根號 平方也一樣 把符號復制到按鈕上，然後添加事件就好

⑧ 用Excel VBA 做簡單的計算器 求代碼

Private Sub CommandButton1_Click()
Select Case ComboBox1.Text
Case "+"
CommandButton1.Caption = Val(TextBox1.Text) + Val(TextBox2.Text)
Case "-"
CommandButton1.Caption = Val(TextBox1.Text) - Val(TextBox2.Text)
Case "*"
CommandButton1.Caption = Val(TextBox1.Text) * Val(TextBox2.Text)
Case "/"
CommandButton1.Caption = Val(TextBox1.Text) / Val(TextBox2.Text)
End Select
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "+"
ComboBox1.AddItem "-"
ComboBox1.AddItem "*"
ComboBox1.AddItem "/"
End Sub
是不是這效果

⑨ VB調用計算器程序代碼

shell("c:\program files\abc\myfile.exe",3)
指的是C盤的program files文件夾中abc文件夾下名為myfile的可執行文件
3指窗口是一個具有焦點的最大化窗口（返回窗口的類型）
相應的 0：指窗口隱匿
1：窗口具有焦點，回到原來位置的大小
2：窗口以一個具有焦點的圖標來顯示
4：窗口被還原的最近使用大小，當前窗口任保持活動

⑩ 如何來調用windows XP中系統自帶的計算器代碼

WinExec("calc", SW_SHOW);