扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
1、启动软件，新建一个变准EXE工程。
公司主营业务：成都做网站、网站设计、外贸营销网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联公司是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联公司推出衢江免费做网站回馈大家。
2、我们在窗体上绘制好要使用到的控件。
3、双击计算按钮进入代码窗口，我们可以在这里编写代码。
4、接下来我们打入累加的赋值语句。
5、接下来我们点击运行测试的小三角。
6、这时候我们就可以开始计算了。
VB计算器代码：
Dim start As Boolean
Dim s1#, s2#, s3#
Dim sn As String
Private Sub Command1_Click()
If start = True Then
Text1.Text = "1"
start = False
Else
Text1.Text = Text1.Text "1"
End If
End Sub
Private Sub Command10_Click()
Text1.Clear()
start = False
End Sub
Private Sub Command11_Click()
s1 = Val(Text1.Text)
sn = "+"
start = True
End Sub
Private Sub Command12_Click()
s1 = Val(Text1.Text)
sn = "-"
start = True
End Sub
Private Sub Command13_Click()
s1 = Val(Text1.Text)
sn = "*"
start = True
End Sub
Private Sub Command14_Click()
s1 = Val(Text1.Text)
sn = "/"
start = True
End Sub
Private Sub Command15_Click()
s2 = Val(Text1.Text)
If sn = "*" Then
s3 = s1 * s2
ElseIf sn = "/" Then
s3 = s1 / s2
start = True
ElseIf sn = "+" Then
s3 = s1 + s2
start = True
ElseIf sn = "-" Then
s3 = s1 - s2
start = True
End If
start = True
Text1.Text = s3
If s3 0 Or sn "" Then
Text1.Text = Format(s3, "0.##")
End If
End Sub
Private Sub Command16_Click()
Text1.Text = 0
start = True
End Sub
Private Sub Command17_Click()
Text1.Text = Text1.Text "."
start = False
End Sub
Private Sub Command2_Click()
If start = True Then
Text1.Text = "2"
start = False
Else
Text1.Text = Text1.Text "2"
End If
End Sub
Private Sub Command3_Click()
If start = True Then
Text1.Text = "3"
start = False
Else
Text1.Text = Text1.Text "3"
End If
End Sub
Private Sub Command4_Click()
If start = True Then
Text1.Text = "4"
start = False
Else
Text1.Text = Text1.Text "4"
End If
End Sub
Private Sub Command5_Click()
If start = True Then
Text1.Text = "5"
start = False
Else
Text1.Text = Text1.Text "5"
End If
End Sub
Private Sub Command6_Click()
If start = True Then
Text1.Text = "6"
start = False
Else
Text1.Text = Text1.Text "6"
End If
End Sub
Private Sub Command7_Click()
If start = True Then
Text1.Text = "7"
start = False
Else
Text1.Text = Text1.Text "7"
End If
End Sub
Private Sub Command8_Click()
If start = True Then
Text1.Text = "8"
start = False
Else
Text1.Text = Text1.Text "8"
End If
End Sub
Private Sub Command9_Click()
If start = True Then
Text1.Text = "9"
start = False
Else
Text1.Text = Text1.Text "9"
End If
End Sub
Private Sub Form_Load()
End Sub
script language="javascript"
function EnterKeyClick(){
if (window.event.keyCode==13){
event.KeyCode=9;
event.returnValue = false;
//你需要执行的函数
}
}
/script
Public Class SimpleCalculator
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写处置以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意：以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents Button14 As System.Windows.Forms.Button
Friend WithEvents Button15 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
System.Diagnostics.DebuggerStepThrough() Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button10 = New System.Windows.Forms.Button
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.Button14 = New System.Windows.Forms.Button
Me.Button15 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 16)
Me.Label1.TabIndex = 0
Me.Label1.Text = "结果："
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(64, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 21)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = ""
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(200, 8)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(56, 24)
Me.Button1.TabIndex = 2
Me.Button1.Text = "清空"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(48, 56)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(24, 24)
Me.Button2.TabIndex = 3
Me.Button2.Text = "1"
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(88, 56)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(24, 24)
Me.Button3.TabIndex = 4
Me.Button3.Text = "2"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(136, 56)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(24, 24)
Me.Button4.TabIndex = 5
Me.Button4.Text = "3"
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(48, 88)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(24, 24)
Me.Button5.TabIndex = 6
Me.Button5.Text = "4"
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(88, 88)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(24, 24)
Me.Button6.TabIndex = 7
Me.Button6.Text = "5"
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(136, 88)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(24, 24)
Me.Button7.TabIndex = 8
Me.Button7.Text = "6"
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(48, 120)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(24, 24)
Me.Button8.TabIndex = 9
Me.Button8.Text = "7"
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(88, 120)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(24, 24)
Me.Button9.TabIndex = 10
Me.Button9.Text = "8"
'
'Button10
'
Me.Button10.Location = New System.Drawing.Point(136, 120)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(24, 24)
Me.Button10.TabIndex = 11
Me.Button10.Text = "9"
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(48, 152)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(24, 24)
Me.Button11.TabIndex = 12
Me.Button11.Text = "0"
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(176, 56)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(24, 24)
Me.Button12.TabIndex = 13
Me.Button12.Text = "+"
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(176, 88)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(24, 24)
Me.Button13.TabIndex = 14
Me.Button13.Text = "-"
'
'Button14
'
Me.Button14.Location = New System.Drawing.Point(176, 120)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(24, 24)
Me.Button14.TabIndex = 15
Me.Button14.Text = "*"
'
'Button15
'
Me.Button15.Location = New System.Drawing.Point(176, 152)
Me.Button15.Name = "Button15"
Me.Button15.Size = New System.Drawing.Size(24, 24)
Me.Button15.TabIndex = 16
Me.Button15.Text = "/"
'
'Button16
'
Me.Button16.Location = New System.Drawing.Point(88, 152)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(72, 24)
Me.Button16.TabIndex = 17
Me.Button16.Text = "计算"
'
'SimpleCalculator
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(264, 190)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "SimpleCalculator"
Me.Text = "简单计算器"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TabStopChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim btn As Button '按钮类型的变量
btn = sender '把产生该事件的按钮对象赋值给btn
TextBox1.Text = TextBox1.Text + btn.Text '把该按钮的Text属性值连接到TextBox1中
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim btn As Button
btn = sender
TextBox1.Text += btn.Text
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim btn As Button
btn = sender
'在文本框的Text属性后连接一个空格、本按钮的Text属性值和一个空格
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "" '清空文本框
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim btn As Button
btn = sender
TextBox1.Text = TextBox1.Text + " " + btn.Text + " "
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
'发生错误转移到标号“ErrorPro”指定的行去执行错误处理程序
On Error GoTo ErrorPro
Dim r As Decimal '保存计算结果的变量
Dim t As String = TextBox1.Text '用于保存文本框中的算术表达式
Dim space As Integer = t.IndexOf(" ") '搜索空格位置,如果没有空格，返回值为0
'字符串的取子符方法，第二个参数小于0，则将产生错误号为5的异常，即过程参数不正确
Dim s1 As String = t.Substring(0, space) '通过取子串方法获得第一个运算数
Dim op As String = t.Substring(space + 1, 1) '通过取子串方法获得运算符
Dim s2 As String = t.Substring(space + 3) '通过取子串方法获得第二个运算数
Dim arg1, arg2 As Integer
arg1 = Val(s1) : arg2 = Val(s2)
Select Case op
Case "+" : r = arg1 + arg2
Case "-" : r = arg1 - arg2
Case "*" : r = arg1 * arg2
Case "/" : r = arg1 / arg2
Case Else
MsgBox("输入的运算符有误！")
Exit Sub
End Select
TextBox1.Text = CStr(r) '显示结果
Exit Sub '退出过程
ErrorPro: '错误处理程序块
Select Case Err.Number
Case 6 '除数为零时，或运算溢出时的错误号
MsgBox("算术运算溢出！", , "溢出提示")
TextBox1.Focus()
Exit Sub
Case 5 ' Substring过程的参数不符合要求的错误号
MsgBox("必须输入运算符和第二个运算数！", , "运算数少")
Exit Sub
Case Else
'其它情况显示错误号和错误原因
MsgBox("错误号为" Err.Number Chr(10) Chr(13) "错误原因：" Err.Description)
Exit Sub
End Select
End Sub
End Class
这个啊，呵呵，应该不难吧
先找到你要打开的应用程序的文件
然后用一个调用代码：
System.Diagnostics.Process.Start("C:\WINDOWS\system32\notepad.exe")
这是要开记事本的
System.Diagnostics.Process.Start("C:\WINDOWS\system32\calc.exe")
这是打开计算器的
应该也可以把这两个应用程序复制到你的程序的默认目录下，就是BIN下吧！
呵呵，试试！！要给我加分哦！！！
一、基础练习：编制一个数运算的数学小工具 利用VB编制一个用于数学计算的小程序——《数学小工具1》，主要有计算平方、立方、平方根、正弦、余弦、正切、余切、对数值等功能。程序界面如下：
一、分析问题：
本任务主要涉及数学运算，求平方、立方值、四次方可利用运算符计算.求平方根、正弦、余弦、正切、余切可利用VB函数计算。(VB常用数学函数)
二、算法设计：
程序流程： 输入要计算数据——计算结果——显示数据
VB的实现： 文本框TextBox控件 表达式 标签Label控件
三、编制程序：
(一) 在VB6.0中新建一个标准EXE工程
(二) 建立一个窗体，窗体属性设置如下：
名称 = Maths
Caption = "数学小工具"
(三) 在窗体上添加一个文本框TextBox，用于输入计算数值，属性设置如下：
名称 =InputData
text="请输入数值"
(四) 在窗体上再添加一个标签Label(显示得分)，属性设置如下：
名称 = Answer
Caption = "答案:"
(五) 在窗体上再添加8个按钮CommandButton，名称不改，属性(caption)分别设置为：“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。
（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：
Private Sub Command1_Click()
XXXXXXXX.......... 代码(可多行）
End Sub
（1）求平方按钮的代码：
y=inputdata.text^2
answer.caption=y
（2）求三次方按钮的代码：
y=inputdata.text^3
answer.caption=y
（3）求四次方按钮的代码：
y=inputdata.text^4
answer.caption=y
（4）求平方根按钮的代码：
y=Sqr(inputdata.text)
answer.caption=y
（5）求正弦按钮的代码： y=Sin(inputdata.text*3.14/180)
answer.caption=y
（6）求余弦按钮的代码： y=Cos(inputdata.text*3.14/180)
answer.caption=y
（7）求正切按钮的代码： y=Tan(inputdata.text*3.14/180)
answer.caption=y
（8）求余切按钮的代码：
y=1/Tan(inputdata.text*3.14/180)
answer.caption=y
如果要控制输出数值的小数位格式,可在两行代码中间加语句行:
y=format(y,"0.0") 1位整数,1位小数
(七) 在窗体上再添加2个按钮CommandButton，名称不改，属性分别设置为：“清空”、“退出,分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：
(1)清空按钮代码:
inputdata.text=""
answer.caption=""
(2)退出按钮代码:
End
四、运行，测试程序。
五、保存好源程序文件，生成exe文件。
二、扩展练习：编制两个数运算的数学小工具 利用VB编制一个用于两数四则运算的小程序——《数学小工具2》，主要有两数相加、相减、相乘、相除、乘方等功能。程序界面如下：
一、分析问题：
本任务主要涉及两数的数学运算，两利用两个文本框输入数据，利用按钮执行运算符计算.利用标签显示结果，并且两数间的运算符根据按钮的不同显示相应的运算符号。
二、算法设计：
程序流程： 输入要计算数据——计算结果——显示数据
VB的实现： 文本框（两个） 表达式 标签
三、编制程序：
(一) 在VB6.0中新建一个标准EXE工程
(二) 建立一个窗体，窗体属性设置如下：
名称 = Maths2
Caption = "数学小工具2"
(三) 在窗体上添加两个文本框TextBox，名称不改，分别为text1、text2,用于输入计算数值，将两个文本框的text属性值清空
(四) 在窗体上再添加一个标签Label(显示运算符)，名称不改,属性设置为:
名称 = Label1
Caption="?"
(五) 在窗体上再添加一个标签Label(显示等号)，名称不改,属性设置为"?"。
名称 = Label2
Caption="="
(六) 在窗体上再添加一个标签Label(显示结果)，属性设置如下：
名称 = Answer
Caption="?"
(五) 在窗体上再添加4个按钮CommandButton，名称不改，属性(caption)分别设置为：“加”、“减”、“乘”、“除”、"乘方”。
（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：
Private Sub Command1_Click()
XXXXXXXX.......... 代码(可多行）
End Sub
（1）相加按钮的代码：
y=Val(Text1.Text) + Val(Text2.Text)
answer.caption=y
label1.caption="+"
（2）相减按钮的代码： y=Val(Text1.Text) - Val(Text2.Text)
answer.caption=y
label1.caption="-"
（3）相乘按钮的代码： y=Val(Text1.Text) * Val(Text2.Text)
answer.caption=y
label1.caption="*"
（4）相乘按钮的代码： y=Val(Text1.Text) / Val(Text2.Text)
answer.caption=y
label1.caption="/"
（5）相乘按钮的代码： y=Val(Text1.Text) ^ Val(Text2.Text)
answer.caption=y
label1.caption="^"
如果要控制输出数值的小数位格式,可在两名代码中间加语句行:
y=format(y,"0.0") 1位整数,1位小数
四、运行，测试程序。
五、保存好源程序文件，生成exe文件。
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网