使用VB 设计一个简易计算器
vb 简易计算器实验报告
简易计算器课程设计报告一、实验目的:模拟计算器的功能。
系统启动后, 先清屏, 再在显示屏右侧显示0字样, 系统仅接收数字键、加减乘除键、退格键、C键(复位)、=或回车键、ESC键(退出系统)作为有效按键, 其余按键不响应。
按键后屏幕显示效果要达到一般计算器显示屏的同样效果。
不要求设计一般计算器上都具有的M功能。
二、实验设计内容及思想:首先, 创建一个主体框架: 建立程序的主要界面后, 系统自动生成界面的主要窗口生成代码。
对于每个按钮的的代码段中, 分别添加事件触发的处理代码。
分别设立三个显示屏, 第一个显示屏作为“被加数”框, 第二个显示屏作为“加数”框, 第三个显示屏则作为输出框。
四则运算时直接采用计算表达式。
所以, 优先级和运算规则皆宜考虑在内。
在进行除法运算时, 若遇到除数为0, 则运用条件语句执行, 并在输出显示屏上输出“E”。
三角函数、指数、对数、整除、取余等运算, 也是运用类似手法。
考虑到计算器的操作简便性, 所以加入了复位和退出按钮。
三、源程序文件:Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x + yEnd SubPrivate Sub Command10_Click()Dim x As Integerx = Text1.TextText3.Text = Cos(x)End SubPrivate Sub Command11_Click()Dim x As Integerx = Text1.TextText3.Text = Tan(x)End SubPrivate Sub Command12_Click()Dim x As Integerx = Text1.TextText3.Text = Atn(x)End SubPrivate Sub Command13_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x ^ yEnd SubPrivate Sub Command14_Click() Dim x As Integerx = Text1.TextIf x <= 0 ThenText3.Text = "输入错误"ElseText3.Text = Log(x)End IfEnd SubPrivate Sub Command15_Click() Text3.Text = "此按钮仅作装饰用" End SubPrivate Sub Command2_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x - yEnd SubPrivate Sub Command3_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x * yEnd SubPrivate Sub Command4_Click() Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextIf y = 0 ThenText3.Text = "E"ElseText3.Text = x / yEnd IfEnd SubPrivate Sub Command5_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x \ yEnd SubPrivate Sub Command6_Click()Dim x As IntegerDim y As Integerx = Text1.Texty = Text2.TextText3.Text = x Mod yEnd SubPrivate Sub Command7_Click()Text1.Text = ""Text2.Text = ""Text3.Text = " 0" End SubPrivate Sub Command8_Click()EndEnd SubPrivate Sub Command9_Click()Dim x As Integerx = Text1.TextText3.Text = Sin(x)End Sub源代码截图:四、运行结果演示: 加法演示:减法演示: 乘法演示:除法演示:能够整除: 不能够整除:除数为零:。
VB简易计算器代码
VB简易计算器代码下面是一个简单的VB计算器代码，用于执行基本的加、减、乘、除运算。
```vbOption Strict OnPublic Class CalculatorPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 + num2txtResult.Text = result.ToStringEnd SubPrivate Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 - num2txtResult.Text = result.ToStringPrivate Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim result As Double = num1 * num2txtResult.Text = result.ToStringEnd SubPrivate Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)If num2 = 0 ThenMessageBox.Show("除数不能为0！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)ElseDim result As Double = num1 / num2txtResult.Text = result.ToStringEnd IfEnd Sub```此代码创建了一个简单的窗体应用程序，其中包含两个文本框用于输入两个数字，四个按钮用于执行不同的计算操作，以及一个文本框用于显示结果。
简易计算器VB编程说明
一．设计目的用VB语言编写一个计算器二．设计要求1．能够完成浮点数的加，减，乘，除，平方（根），倒数，三角函数及进制转换等2．能够实现退格和清除功能；3．初始值为0.0；4．高位数的0不出现；5．应用控件数组实现。
6. 利用函数的调用实现不同进制数之间的转换三．总体设计系统结构功能图如下：四．界面设计1. 控件属性列表如下：2．界面如下：五．程序如下：Public sum As Double ’定义全局变量Public k As StringPublic Function DEC_to_BIN(Dec As Long) As String ’定义十进制数转化成二进制数函数DEC_to_BIN = ""Do While Dec > 0DEC_to_BIN = Dec Mod 2 & DEC_to_BINDec = Dec \ 2LoopEnd FunctionPublic Function DEC_to_HEX(Dec As Long) As String ’定义十进制数转化成十六进制数函数Dim a As StringDEC_to_HEX = ""Do While Dec > 0a = CStr(Dec Mod 16)Select Case aCase "10": a = "A"Case "11": a = "B"Case "12": a = "C"Case "13": a = "D"Case "14": a = "E"Case "15": a = "F"End SelectDEC_to_HEX = a & DEC_to_HEXDec = Dec \ 16LoopEnd FunctionPublic Function DEC_to_OCT(Dec As Long) As String ’定义十进制数转化成八进制数函数DEC_to_OCT = ""Do While Dec > 0DEC_to_OCT = Dec Mod 8 & DEC_to_OCT Dec = Dec \ 8LoopEnd FunctionPrivate Sub Command1_Click(Index As Integer) Select Case IndexCase 1Text1.Text = Text1.Text & 1Case 2Text1.Text = Text1.Text & 2Case 3Text1.Text = Text1.Text & 3Case 4Text1.Text = Text1.Text & 4Case 5Text1.Text = Text1.Text & 5Case 6Text1.Text = Text1.Text & 6Case 7Text1.Text = Text1.Text & 7Case 8Text1.Text = Text1.Text & 8Case 9Text1.Text = Text1.Text & 9Case 0Text1.Text = Text1.Text & 0Case 10Text1.Text = Text1.Text & "."End SelectEnd SubPrivate Sub Command10_Click()sum = Text1.TextText1.Text = ""k = "x^2"End SubPrivate Sub Command11_Click() ’求倒数a = Val(Text1.Text)If a = 0 ThenPrint MsgBox("分母不能为零！", 48, "错误") Text1.Text = ""Elsesum = 1 / aText1.Text = sumEnd IfEnd SubPrivate Sub Command12_Click()a = Val(Text1.Text)sum = Cos(a)Text1.Text = sumEnd SubPrivate Sub Command13_Click()a = Val(Text1.Text)sum = Sin(a)Text1.Text = sumEnd SubPrivate Sub Command14_Click() ’进制转换主程序Dim s As Longs = Text1.TextIf Combo1.Text = "二进制" ThenText2.Text = DEC_to_BIN(s)ElseIf Combo1.Text = "八进制" ThenText2.Text = DEC_to_OCT(s)ElseIf Combo1.Text = "十六进制" ThenText2.Text = DEC_to_HEX(s)End IfEnd SubPrivate Sub Command15_Click()a = Val(Text1.Text)sum = Sqr(a)Text1.Text = sumEnd SubPrivate Sub Command2_Click()sum = Text1.TextText1.Text = ""k = "+"End SubPrivate Sub Command3_Click()sum = Text1.TextText1.Text = ""k = "-"End SubPrivate Sub Command4_Click()sum = Text1.TextText1.Text = ""k = "*"End SubPrivate Sub Command5_Click()sum = Text1.TextText1.Text = ""k = "/"End SubPrivate Sub Command6_Click() ’加、减、乘、除的计算Dim a As Doublea = Val(Text1.Text)If k = "+" Thensum = sum + aText1.Text = sumElseIf k = "-" Thensum = sum - aText1.Text = sumElseIf k = "x^2" Thensum = sum * sumText1.Text = sumElseIf k = "*" Thensum = sum * aText1.Text = sumElseIf k = "/" ThenIf a = 0 ThenPrint MsgBox("分母不能为零！", 48, "错误") ’除数不能为零Text1.Text = ""Elsesum = sum / aText1.Text = sumEnd IfEnd IfEnd SubPrivate Sub Command7_Click() ’退出Unload Form1End SubPrivate Sub Command8_Click() ’清除Text1.Text = ""End SubPrivate Sub Command9_Click() ’退格If Text1.Text = "" ThenExit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) End Sub。
VB简单计算器(截图附代码)
VB程序简单计算器最近学完VB，感觉很好，写了个计算器程序，虽然花了不少时间，可也着实高兴。
其中遇到很多问题，最终也在各种资料中得到解决。
现在附上截图和全部代码，希望和大家交流一下，相互学习。
也希望能帮助到准备做计算器的同学。
计算器最终执行文件图标：计算器包括三个窗体（form）：主页面form1：其中的“欢迎各位到此一游”是闪烁效果，呵呵，是自己想着无聊，就想出这么个玩意。
与计算器计算功能无关。
具体实现看下来代码。
Form1的实现代码：Public haha As BooleanPrivate Sub Command1_Click()Dim a As Integera = MsgBox("亲爱的你，真的想要退出本系统吗？", _vbYesNo + vbInformation + vbDefaultButton1, "退出系统前的询问撒(⊙o⊙)")If a = 6 Then '表示当选择“是”的时候的返回值EndEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEnd SubPrivate Sub Command3_Click()Me.HideForm3.ShowEnd SubPrivate Sub Form_Load()haha = FalseEnd SubPrivate Sub Timer1_Timer()haha = Not hahaIf haha ThenLabel2.ForeColor = &HFF00FFElseLabel2.ForeColor = vbWhiteEnd IfEnd Sub有些像图像等一些可见的控件属性就没在代码里写了，直接在属性里设置了。
页面（form2）：此页面将鼠标点上去，还有意想不到的效果喲。
全部代码为：Dim isFocus1, isFocus2 As BooleanPrivate Sub Command1_Click()If isFocus1 Then '判断焦点在那个文本框中，便于实现按钮输入Text1.Text = Text1.Text & 0End IfIf isFocus2 ThenText2.Text = Text2.Text & 0End IfEnd SubPrivate Sub Command10_Click() If isFocus1 ThenText1.Text = Text1.Text & 9 End IfIf isFocus2 ThenText2.Text = Text2.Text & 9 End IfEnd SubPrivate Sub Command11_Click() If isFocus1 ThenText1.Text = Text1.Text & "." End IfIf isFocus2 ThenText2.Text = Text2.Text & "." End IfEnd SubPrivate Sub Command12_Click() If isFocus1 ThenText1.Text = -Val(Text1.Text)End IfIf isFocus2 ThenText2.Text = -Val(Text2.Text)End IfEnd SubPrivate Sub Command13_Click()Dim a As Integera = Val(Text1.Text) + Val(Text2.Text)Text3.Text = Val(Text1.Text) & "+" & Val(Text2.Text) & "=" & aIf Text1.Text = "" Or Text2.Text = "" ThenMsgBox "哼哼，双目运算一定要是两个数喔" & vbCrLf & vbCrLf & _ "不用说，补上去是必须的撒", vbCritical, "温馨小提醒(*^__^*)" End IfEnd SubPrivate Sub Command14_Click()Dim a As Integera = Val(Text1.Text) - Val(Text2.Text)Text3.Text = Val(Text1.Text) & "-" & Val(Text2.Text) & "=" & aIf Text1.Text = "" Or Text2.Text = "" ThenMsgBox "哼哼，双目运算一定要是两个数喔" & vbCrLf & vbCrLf & _ "不用说，补上去是必须的撒", vbCritical, "温馨小提醒(*^__^*)" End IfEnd SubPrivate Sub Command15_Click()a = Val(Text1.Text) * Val(Text2.Text)Text3.Text = Val(Text1.Text) & "×" & Val(Text2.Text) & "=" & aIf Text1.Text = "" Or Text2.Text = "" ThenMsgBox "哼哼，双目运算一定要是两个数喔" & vbCrLf & vbCrLf & _ "不用说，补上去是必须的撒", vbCritical, "温馨小提醒(*^__^*)" End IfEnd SubPrivate Sub Command16_Click() '除法的特殊性，除数不能为零If Val(Text2.Text) Thena = Val(Text1.Text) / Val(Text2.Text)Text3.Text = Val(Text1.Text) & "÷" & Val(Text2.Text) & "=" & aIf Text1.Text = "" Or Text2.Text = "" ThenMsgBox "哼哼，双目运算一定要是两个数喔" & vbCrLf & vbCrLf & _ "不用说，补上去是必须的撒", vbCritical, "温馨小提醒(*^__^*)" End IfElseText3.Text = "无穷大∞"MsgBox "亲，除数不可以为零的哟！", vbInformation, "矮油，不得了嘞(*^__^*)"Text2.Text = ""Text2.SetFocusEnd IfEnd SubPrivate Sub Command17_Click() '实现清零，并将焦点给文本框1Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd SubPrivate Sub Command18_Click()Me.Hide '进入计算器1Form1.ShowEnd SubPrivate Sub Command2_Click() If isFocus1 ThenText1.Text = Text1.Text & 1 End IfIf isFocus2 ThenText2.Text = Text2.Text & 1 End IfEnd SubPrivate Sub Command3_Click() If isFocus1 ThenText1.Text = Text1.Text & 2 End IfIf isFocus2 ThenText2.Text = Text2.Text & 2 End IfEnd SubPrivate Sub Command4_Click() If isFocus1 ThenText1.Text = Text1.Text & 3 End IfIf isFocus2 ThenText2.Text = Text2.Text & 3 End IfEnd SubPrivate Sub Command5_Click() If isFocus1 ThenText1.Text = Text1.Text & 4 End IfIf isFocus2 ThenText2.Text = Text2.Text & 4 End IfEnd SubPrivate Sub Command6_Click() If isFocus1 ThenText1.Text = Text1.Text & 5 End IfIf isFocus2 ThenText2.Text = Text2.Text & 5 End IfEnd SubPrivate Sub Command7_Click() If isFocus1 ThenText1.Text = Text1.Text & 6 End IfIf isFocus2 ThenText2.Text = Text2.Text & 6 End IfEnd SubPrivate Sub Command8_Click() If isFocus1 ThenText1.Text = Text1.Text & 7 End IfIf isFocus2 ThenText2.Text = Text2.Text & 7 End IfEnd SubPrivate Sub Command9_Click() If isFocus1 ThenText1.Text = Text1.Text & 8End IfIf isFocus2 ThenText2.Text = Text2.Text & 8End IfEnd SubPrivate Sub Form_Load()isFocus1 = False: isFocus2 = FalseEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label4.ForeColor = vbBlackLabel4.FontUnderline = FalseLabel4.FontBold = FalseEnd SubPrivate Sub Label4_Click()Form3.ShowEnd SubPrivate Sub Label4_MouseMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)Label4.ForeColor = vbGreen Label4.FontUnderline = True Label4.FontBold = True End SubPrivate Sub Text1_GotFocus() isFocus1 = TrueisFocus2 = FalseEnd SubPrivate Sub Text2_GotFocus() isFocus2 = TrueisFocus1 = FalseEnd Sub页面（form3）：这里面的亮点自己找哦。
VB简易计算器代码
VB简易计算器代码以下是一个简单的VB计算器代码：```Public Class Form1Dim firstNum As Double ' 第一个数字Dim secondNum As Double ' 第二个数字Dim operation As Integer ' 1-加法，2-减法，3-乘法，4-除法Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.ClickTextBoxResult.Text = TextBoxResult.Text & "0"End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickTextBoxResult.Text = TextBoxResult.Text & "1"End SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTextBoxResult.Text = TextBoxResult.Text & "2"End SubHandles Button3.ClickTextBoxResult.Text = TextBoxResult.Text & "3"End SubPrivate Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickTextBoxResult.Text = TextBoxResult.Text & "4"End SubPrivate Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickTextBoxResult.Text = TextBoxResult.Text & "5"End SubPrivate Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.ClickTextBoxResult.Text = TextBoxResult.Text & "6"End SubPrivate Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.ClickTextBoxResult.Text = TextBoxResult.Text & "7"End SubHandles Button8.ClickTextBoxResult.Text = TextBoxResult.Text & "8"End SubPrivate Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.ClickTextBoxResult.Text = TextBoxResult.Text & "9"End SubPrivate Sub ButtonDot_Click(sender As Object, e As EventArgs) Handles ButtonDot.ClickIf Not TextBoxResult.Text.Contains(".") ThenTextBoxResult.Text = TextBoxResult.Text & "."End IfEnd SubPrivate Sub ButtonAdd_Click(sender As Object, e As EventArgs) Handles ButtonAdd.ClickfirstNum = Double.Parse(TextBoxResult.Text)TextBoxResult.Text = ""operation = 1End SubPrivate Sub ButtonSubtract_Click(sender As Object, e As EventArgs) Handles ButtonSubtract.ClickfirstNum = Double.Parse(TextBoxResult.Text)TextBoxResult.Text = ""operation = 2End SubPrivate Sub ButtonMultiply_Click(sender As Object, e As EventArgs) Handles ButtonMultiply.ClickfirstNum = Double.Parse(TextBoxResult.Text)TextBoxResult.Text = ""operation = 3End SubPrivate Sub ButtonDivide_Click(sender As Object, e As EventArgs) Handles ButtonDivide.ClickfirstNum = Double.Parse(TextBoxResult.Text)TextBoxResult.Text = ""operation = 4End SubPrivate Sub ButtonClear_Click(sender As Object, e As EventArgs) Handles ButtonClear.ClickTextBoxResult.Text = ""End SubPrivate Sub ButtonEquals_Click(sender As Object, e As EventArgs) Handles ButtonEquals.ClickDim result As DoublesecondNum = Double.Parse(TextBoxResult.Text)Select Case operationCase 1result = firstNum + secondNumCase 2result = firstNum - secondNumCase 3result = firstNum * secondNumCase 4result = firstNum / secondNumEnd SelectTextBoxResult.Text = result.ToStringEnd SubEnd Class```这个计算器包括数字按钮0-9、小数点按钮、加法、减法、乘法、除法和等于按钮。
VB简易计算器的制作
问题四： 语句格式是什么？ 问题四：select case 语句格式是什么？
Select Case 表达式 Case 表达式值一 语句块一 Case 表达式值二 语句块二 … Case Else 语句块n 语句块 End Select
制作界面
一、先作一个框架frame1,清空frame1的 caption属性。（作用？） 二、拉出一个文本框，设置为右对齐。 （作用？） 三、拉出一组“cmdshu”的命令按钮控件数 组, caption分别为 “０”,“1”,“2”,“3”,“4”,“5”, “6”,“7”,“8”,“9”,“.”。 index的值分别为0,1,2,3,4,5,6,用开始输入？ 怎样判断应该用连接或者用开始输入？
答：可以添加一个用来判断的变量 问题三： 问题三：
怎样判断该用什么运算？ 怎样判断该用什么运算？ 可以用一个变量记住点击的运算符， 答：可以用一个变量记住点击的运算符，即 是记住点击时返回的index值。然后用select case 值 然后用 是记住点击时返回的 语句。 语句。
制作界面
四、拉出一组“cmdsuanfu”的命令按钮控件数 组,caption分别为“+”,“-”,“*”,“/”。index的值分 别为0,1,2,3。 cmdresult” 五、拉出一个“cmdresult” 的命令按钮。
算法
将输入文本框的第一个数作为num1， 将输入文本框的第二个数作为num2,然后按 照所选择的运算，算出结果输出到文本框。
将输入文本框的第一个数作为num1将输入文本框的第二个数作为num2然后按照所选择的运算算出结果输出到文本框
简易计算器的制作 简易计算器的制作 计算器
广东广雅中学
控件数组的使用
VB编写简易计算器(附图)
For personal use only in study and research;not for commercial use用VB6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组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 SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + "."If (InStr(Text1.Text, ".") = 1) Then'第一位不能为小数Text1.Text = ""End IfIf InStr(Text1.Text, ".") < Len(Text1.Text) Then '防止出现两个小数点Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command3_Click()s2 = Val(Text1.Text) '开始加减乘除运算Select Case ysfCase "+"Text1.Text = s1 + s2Case "-"Text1.Text = s1 - s2Case "*"Text1.Text = s1 * s2Case "/"If s2 = 0 ThenMsgBox "分母不能为零!"Text1.Text = ""ElseText1.Text = s1 / s2End IfEnd SelectText1 = IIf(Left(Text1.Text, 1) = ".", 0 & Text1.Text, Text1.Text) '这个很关键，如果没有这个的话，得出小于1的小数前面没有0End SubPrivate Sub Command4_Click()If Text1.Text = "" Then '文本为空就结束Exit SubEnd IfText1.Text = Left(Text1.Text, Len(Text1.Text) - 1) '文本退一格End SubPrivate Sub Command5_Click()Text1.Text = "" '清除当前框内文本End SubPrivate Sub Command6_Click(Index As Integer)s1 = Val(Text1.Text) '将s1隐藏起来ysf = Command6(Index).CaptionText1.Text = ""End SubPrivate Sub Command7_Click()If Left(Text1.Text, 1) <> "-" Then '判断作为负数Text1.Text = "-" & Text1.TextElseText1.Text = Right(Text1.Text, Len(Text1.Text) - 1)End IfEnd SubPrivate Sub Command8_Click()Text1.Text = Text1.Text * Text1.Text '平方End Sub各位朋友，可以将红色代码复制到相应位置，不清楚的可以全选复制，但是一定要按照我的步骤和给的名称来哦！还可以再添加按钮Private Sub Command9_Click() '这是退出代码EndEnd Sub三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！仅供个人参考仅供个人用于学习、研究；不得用于商业用途。
用VB6.0编写一个小计算器
在左侧工具栏中，选择输入框，在窗口界面中
设置三个合适大小的输入框
制作中...
修改输入框内文字：选择输入框在属性处找到
text，将右边文字修改。
添加一个按钮，名称和软件名相同改法
双击软件界面 提示：一号框(左上)×二号框(右上)＝三号框 (左下)，我们要输入：(注意空格)
PrivateSubCommand1_Click() OnErrorGoto1
用 VB6.0 编写一个小计算器
y2a3d 计算器在线计算 /
教大家制作一个小软件——乘法计算器软件
VB6.0 方法
打开 VB6.0 选择“标准 EXE”
首先，在属性中的 caption 处，将 Form1(软
件名)改为自己喜爱的名字
按住窗口的调整按钮，将窗口调整为合适大小
Text3.Text=Text1.Text*Text2.Text ExitSub
1: msgbox 请输入正确数据,,出错啦...
EndSub 点击文件→生成工程
生成成功！ 上面框内输入乘数，点击按钮，计算出结果显 示在下面框内！
注意事项 千万注意代码中的空格
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验一设计一个简易的计算器
一、实验目的
（1）熟悉VB集成开发环境
（2）设计一个简易的计算器，熟悉使用VB开发应用程序的全过程
二、实验内容
【题目】：创建一个VB工程，实现简易计算器的功能，效果图如图1-1所示。
图1-1
【编程要求】：运行程序时，首先，在Text1中输入操作数一，在Text2中输入操作数二；然后单击“+”按钮，可实现两个数的加法运算并显示其结果；单击“-”按钮，可实现两个数的减法运算；单击“*”按钮，可实现两个数的乘法运算；单击“/”按钮，可实现两个数的除法运算；单击“清空”按钮，可清空操作数和结果；单击“退出”按钮退出程序运行。
三、实验步骤
（1）启动Microsoft Visual Basic 6.0，新建一个工程。
（2）创建用户界面。
参照图1-2所示添加控件并进行布置。
图1-2
在窗体Form1适当位置上添加框架控件Frame1和Frame2，添加标签Label1、Label2、Label3、Label4，添加文本框（TextBox）Text1和Text2，添加命令按钮（CommandButton）Command1、Command2、Command3、Command4、Command5、Command6。
（3）设置界面上各个对象的属性。
如表1-1所设置。
效果如图1-3所示。
表1-1
图1-3
（4）编写对象相应事件的程序代码
要实现题目要求的功能，需要在代码编辑器中编写6个命令按钮的单击事件过程。
代码如图1-4或图1-5所示。
（5）保存工程。
输入代码完成后，应该先保存工程，再运行程序，以避免因死机等意外发生而造成损失。
一个工程由若干文件组成，保存文件的顺序应该是先保存窗体文件（F1.frm），再保存文件工程文件（P1.vbp），而保存地点则可自由安排。
（6）测试和调试应用程序。
（7）生成可执行程序。
执行“文件”—>“生成P1.exe”菜单命令，根据提示进行操作即可将本工程编译成能脱离VB环境而独立运行的可执行程序P1.exe。
图1-4
图1-5
【补充知识点】
类定义了对象的属性、方法和事件。
在VB系统中，已经设计好了大量的类，如窗体、菜单以及工具箱中的各个控件等。
类是创建对象实例的模板
对象是类的实例。
控件类的实例化，可以得到真正的控件对象。
实例化过程就是在工具箱选中某一控件类按钮，然后在窗体上拖动鼠标绘制一个控件的过程。
绘制的控件就是对象。
对象是具有某些特征和行为的实体。
某些特征指的是对象的一组属性的取值，某些行为指的是对象的方法。
同类对象具有一组相同的属性，但不会有完全相同的属性值，即特征各异。
//对象的命名：按VB约定，名称必须是以字母或汉字开头的由字母、汉字、数字、下划线组成的串，其长度≦127个字符。
//创建对象后可以进一步设置和修改对象的属性，有以下两种方法：
（1）在设计阶段利用属性窗口设置和修改属性值。
（2）在程序中用赋值语句给属性赋值，其格式为：对象名.属性=属性值如在Command1的单击事件过程中，给Label4的Caption属性赋值，代码如下：
Private Sub Command1_Click( )
Label4.Caption = Val(Text1) + Val(Text2)
End Sub
大部分属性既可以在属性窗口中设置，也可以在程序中设置，如Label4.Caption属性。
也有一些只能在属性窗口中设置，不能在程序中设置，如对象的Name属性。
还有一些只能在程序中设置，不能在属性窗口中设置，如ListBox的ListIndex。
//Dim f As Single
用single作为数据类型（字符串变量）进行声明
如5/3=1.666667
Dim 用在局部变量或模块级变量的声明中
// Label4.Caption = Val(Text1.Text) / Val(Text2.Text)
此处用隐式声明变量，在VB中，允许不显示声明而直接使用变量，此时VB会把该变量指定为变体（Variant）数据类型，并默认为局部变量。
如5/3=1.66666666666667
//Val（）函数
格式：Val（c）
功能：将数据字符串转换成数值
说明：C为字符串类型的参数，函数返回值为数值型数据。
函数类型：Double型
Val( )函数将数字字符串转换为数值型数据，是从第一个字符开始截取，遇到非数值字符（第一个表示指数的E、e、D、d除外）时停止，返回已截取的数值作为其值。
例如：
Val（”a45”）的值为0
Val（”45a12”）的值为45
Val（”3e2”）的值为300 3*102
Val（”3ee2”）的值为3
//使用TextBox输入数据
程序运行时在应用程序界面上，使用文本框（TextBox）接收用户从键盘上输入的数据，文本框的Text属性（字符类型）为输入的内容，供程序进行处理。
例如：
Dim Sname As String，age As Integer
Sname=Text1.Text ‘Text1.Text中存有用户输入的数据
age=Val（Text2.Text）‘用V al（）函数将Text2中字符串转换成数值。