调用电脑系统计算器的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);