当前位置：文档之家 › VB课程设计简易计算器

VB课程设计简易计算器

  • 格式：doc
  • 大小：207.00 KB
  • 文档页数：13

计算机课程设计报告 题目 简易计算器 系 别 物理与电子工程学院 年 级 08 专 业 电子科学与技术 班 级 电科（3）班 学 号 050208311 学生姓名 张 崇 光 指导教师 徐 健 设计时间 2009.7 常熟理工学院课程设计报告

1 前言 1991年 Visual Basic1.0诞生 Visual Basic1.0的功能非常简单，微软为他添加了VBX控件，而不是我们熟悉的ocx控件，缺少数据库支持，而且此时的 vb还是一种解释型语言，还不能生成.exe文件。但他最大的革新是加入了事件驱动模型和可视化开发。 2、1992年微软推出了Visual Basic2.0 微软在这个版本中加入了对象型变量和最原始的“继承”概念，以及OLE和简单的数据访问功能，同时还有大量的第三方控件。 3、1993年 Visual Basic3.0发布 在这个版本中，微软添加了增加了最新的ODBC2.0的支持，Jet数据引擎的支持和新版本OLE的支持。最吸引人的地方是它对数据库的支持大大增强了，Grid控件和数据控件能够创建出色的数据窗口应用程序，而Jet引擎让Visual Basic能对最新的Access数据库快速地访问。Visual Basic 3.0还增加了许多新的金融函数。此外还增加了相当多的专业级控件，可以开发出相当水平的Windows应用程序。Visual Basic 3.0是98年以前中国最流行的Visual Basic版本。 4、1995年 Visual Basic4.0发布 Visual Basic4.0是一场革命，但在当时而言，这简直是场灾难，首先vbx控件消失了，代之的是ocx控件，OLE已经不是传统的OLE了，Visual Basic 4.0所用的语言换成了Visual Basic For Application，这一切导致VB3.0以上版本很难移植到VB4.0中，但不可否认的是Visual Basic 4.0为Visual Basic成为一种COM语言奠定了基础。 微软在这个版本中引入COM编程思想，比如在语言上加入了类模块以及属性过程、函数过程，子程序过程等组件开发所需的封装性特征。同时该版本的Visual Basic还能够开发dll函数，可以将书写好的类用这种方式和其他语言共享。在当时用Visual Basic开发com组件比其他任何开发语言都快捷。 5、1997年 Visual Basic5.0发布 这个版本的Visual Basic为com提供了最强有力的支持，同时微软还加入了一个本地代码编译器，解决了vb4.0中的p代码造成的性能瓶颈问题，让应用程序的效率大大提升。Visual baisc5.0提供了更多的面向对象支持，允许开发人员创建事件和接口，改进了类模块，支持创建自己的集合类，ActiveX 控件、进程内的COM DLL组件以及在浏览器中运行的ActiveX文档。 Visual Basic 5.0的IDE支持“智能感知”，这是一项非常方便开发者的功能，可以不必记住很长的成员名称和关键字，只要按“.”，想要的东西统统弹出来。 6、1998年 Visual Basic6。0发布 Visual Basic 6.0已经是一款非常成熟和稳定的开发系统，微软把Visual Basic6.0作为vIsual studio的一员发布的，这表明微软在改变vb的产品定位，成为大规模企业开发的利器。在vb6.0中微软加入了ado数据访问模型，使大数据量快速访问成为可能，提高了vb对n层结构的分布式应用程序的开发能力，同时微软也为vb加入了开发web应用程序的能力。 7、2002年 Visual Basic.net诞生 这是vb的又一次革命，vb.net新增了许多功能，vb6.0不能实现继承，因此一直被c++程序员指责为伪面向对象语言，vb.net还支持多线程，引入了try…catch结构异常化处理。 但对vb程序员而言则是又一次灾难。这个版本的vb已经不是传统的Visual Basic，从语言而言Visual Basic 4.0抛弃了Quick BASIC，采用了Visual Basic For Application，那么vb.net则抛弃了Visual Basic For Application，已经成为一门全新的语言，但这个变化也吓坏了vb程序员，vb.net处于一种非常尴尬的局面，一方面它有不可否认的强大功能，另一方面由于版本兼容性大量vb程序员转向c#或java，使用vb.net的程序员远不如vb6.0，开发商也很难从vb6.0转向vb.net。 从目前透露的Visual Basic.net 2005信息来看，Visual Basic.net2005是值得大家期待的，在这个版本的vb.net中，微软新增了更多的功能，如：泛型、运算符重载、Partial Type、窗体的默认实例(让你用VB6的语法使用窗体)、语法的多种改进、My关键字等，微软声称在Visual Basic.net2005只用一行代码就可以读写注册表、访问文件、读写串口、获取应用程序信息，能让我们象逛商店那样轻松的编程。 常熟理工学院课程设计报告 2 目录 常熟理工学院课程设计报告

3 第一章 选题分析 常熟理工学院课程设计报告

4 第二章 方案设计与论证 常熟理工学院课程设计报告

5 第三章 程序设计 3.1 设计流程图

3.2源程序 Option Explicit Dim num1 As Double, num2 As Double, num3 As Double, num4 As Double, num5 As Double Dim k As Integer, i As Integer, n As Integer, y As Integer Dim num() As Double Dim numstr1 As String, numstr2 As String Dim flag As Boolean Private Sub Cmd4_Click(Index As Integer) '清除和记忆按钮 Select Case Index Case 0 txtDisplay = "0." num1 = 0 num2 = 0 numstr1 = "" numstr2 = "" flag = False y = 0 Cmd4(1).Enabled = True Case 1 txtDisplay = Str(num(i)) '显示前一次的计算结果 常熟理工学院课程设计报告 6 i = i - 1 If i = -1 Then MsgBox "这已是最后一个可显示的数据，也就是您第一次的计算结果！": Cmd4(1).Enabled = False End Select End Sub Private Sub Cmdnumber_Click(Index As Integer) Select Case Index Case 0 To 10 '数字操作 If flag Then numstr2 = numstr2 & Cmdnumber(Index).Caption txtDisplay = numstr2 num2 = Val(numstr2) Else numstr1 = numstr1 & Cmdnumber(Index).Caption txtDisplay = numstr1 num1 = Val(numstr1) End If Case 11 '相反数 If txtDisplay.Text <> "0" And txtDisplay.Text <> "0." Then If Left(txtDisplay.Text, 1) = "-" Then txtDisplay.Text = Right(txtDisplay.Text, Len(txtDisplay.Text) - 1) Else txtDisplay.Text = "-" & txtDisplay.Text numstr1 = txtDisplay num1 = Val(numstr1) End If End If Case 12 '退格 txtDisplay.Text = Left(txtDisplay, Len(txtDisplay) - 1) numstr1 = txtDisplay.Text num1 = Val(numstr1) End Select Cmd4(1).Enabled = True End Sub Private Sub cmdOperator_Click(Index As Integer) '运算符操作 y = y + 1 n = cmdOperator(Index).Index txtDisplay = "" If y >= 2 Then Call jisuan End If flag = True Cmd4(1).Enabled = True End Sub Private Sub Command3_Click() '等号操作 常熟理工学院课程设计报告 7 Call jisuan ReDim Preserve num(k) '存储每次的计算结果 num(k) = num1 i = k k = k + 1 Cmd4(1).Enabled = True End Sub Private Sub jisuan() Select Case n Case 0 '加 num1 = num1 + num2 Case 1 '减 num1 = num1 - num2 Case 2 '乘 num1 = num1 * num2 Case 3 '除 If num2 <> 0 Then num1 = num1 / num2 Else MsgBox "除数不可为零！" End If Case 4 '%分号 txtDisplay = num1 * 100 & "%" Case 5 '开方（二次） If num1 >= 0 Then num1 = Sqr(num1) Else MsgBox "被开方数不可小于零！" End If Case 9 num5 = num1 num2 = num4 ^ 2 - 4 * num3 * num5 If num2 >= 0 Then Text1.Text = "x1=" & ((-1) * num4 + Sqr(num2)) / num3 / 2 Text2.Text = "x2=" & ((-1) * num4 - Sqr(num2)) / num3 / 2 Else MsgBox "该二元一次方程无实根" End If End Select txtDisplay = num1 num2 = 0 numstr2 = "" numstr1 = "" flag = True End Sub

合集下载

VB简单计算器编程代码(附图)

VB简单计算器编程代码(附图)

课程设计说明书正文一、题目：计算器的创作和相应程序的编写二、本题的主要功能：通过计算器的创作熟悉各控件的属性和练习程序的编写。

三、程序截图：四、源程序清单：Begin VB.Form Form1Caption = "计算器"ClientHeight = 3765ClientLeft = 165ClientTop = 855ClientWidth = 5355Icon = "Form1.frx":0000LinkTopic = "Form1"LockControls = -1 'TrueScaleHeight = 3765ScaleWidth = 5355StartUpPosition = 3 '窗口缺省Begin mandButton Command4Caption = "="Height = 495Left = 4470TabIndex = 28Top = 3060Width = 735EndBegin mandButton Command3 Caption = "1/x"Height = 495Left = 4470TabIndex = 27Top = 2520Width = 735EndBegin mandButton Command2 Caption = "%"Height = 495Left = 4470TabIndex = 26Top = 1980Width = 735EndBegin mandButton Command1 Caption = "sqrt"Height = 495Left = 4470TabIndex = 25Top = 1440Width = 735EndBegin mandButton cmbDOT Caption = "."Height = 495Left = 2910TabIndex = 24Top = 3060Width = 735EndBegin mandButton cmbZF Caption = "+/-"Height = 495Left = 2130TabIndex = 23Top = 3060Width = 735 EndBegin mandButton cmbSign Caption = "+"Height = 495Index = 3Left = 3690TabIndex = 22Top = 3060Width = 735 EndBegin mandButton cmbSign Caption = "-"Height = 495Index = 2Left = 3690TabIndex = 21Top = 2520Width = 735 EndBegin mandButton cmbSign Caption = "*"Height = 495Index = 1Left = 3690TabIndex = 20Top = 1980Width = 735EndBegin mandButton cmbSign Caption = "/"Height = 495Index = 0Left = 3690TabIndex = 19Top = 1440Width = 735EndBegin mandButton cmbNUM Caption = "9"Height = 495Index = 9Left = 2910TabIndex = 18Top = 1440Width = 735EndBegin mandButton cmbNUM Caption = "8"Height = 495Index = 8Left = 2130TabIndex = 17Top = 1440Width = 735EndBegin mandButton cmbNUM Caption = "7"Height = 495Index = 7Left = 1350TabIndex = 16Width = 735EndBegin mandButton cmbNUM Caption = "6"Height = 495Index = 6Left = 2910TabIndex = 15Top = 1980Width = 735EndBegin mandButton cmbNUM Caption = "5"Height = 495Index = 5Left = 2130TabIndex = 14Top = 1980Width = 735EndBegin mandButton cmbNUM Caption = "4"Height = 495Index = 4Left = 1350TabIndex = 13Top = 1980Width = 735EndBegin mandButton cmbNUM Caption = "3"Height = 495Index = 3TabIndex = 12Top = 2520Width = 735EndBegin mandButton cmbNUM Caption = "2"Height = 495Index = 2Left = 2130TabIndex = 11Top = 2520Width = 735EndBegin mandButton cmbNUM Caption = "1"Height = 495Index = 1Left = 1350TabIndex = 10Top = 2520Width = 735EndBegin mandButton cmbNUM Caption = "0"Height = 495Index = 0Left = 1350TabIndex = 9Top = 3060Width = 735EndBegin mandButton cmbMa Caption = "M+"Left = 150TabIndex = 8Top = 3060Width = 975 EndBegin mandButton cmbMS Caption = "MS"Height = 495Left = 150TabIndex = 7Top = 2520Width = 975 EndBegin mandButton cmbMR Caption = "MR"Height = 495Left = 150TabIndex = 6Top = 1980Width = 975 EndBegin mandButton cmbMC Caption = "MC"Height = 495Left = 150TabIndex = 5Top = 1440Width = 975 EndBegin mandButton cmbC Caption = "C"Height = 495Left = 4020Top = 690Width = 1155EndBegin mandButton cmbCECaption = "CE"Height = 495Left = 2670TabIndex = 3Top = 690Width = 1155EndBegin mandButton cmbbackspace Caption = "Backspace"Height = 495Left = 1380TabIndex = 2Top = 690Width = 1155EndBegin VB.TextBox Text1Alignment = 1 'Right Justify Height = 375Left = 210TabIndex = 0Text = "0."Top = 120Width = 4935EndBegin bel Label2Alignment = 2 'CenterHeight = 255Left = 360TabIndex = 29Top = 840Width = 375EndBegin bel Label1Alignment = 2 'CenterBorderStyle = 1 'Fixed SingleBeginProperty FontName = "宋体"Size = 14.25Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'False EndPropertyHeight = 495Left = 240TabIndex = 1Top = 690Width = 615EndBegin VB.Menu editCaption = "编辑（&E）"EndBegin VB.Menu lookCaption = "查看（&V）"EndBegin VB.Menu helpCaption = "帮助（&H）"EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As BooleanDim fuhao As StringDim first As DoubleDim second As DoubleDim isEqual As BooleanDim memory As Double '保存显示的数据Dim lianyong As Double '当连续按等号时使用该变量Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As BooleanDim fuhao As StringDim first As DoubleDim second As DoubleDim isEqual As BooleanDim memory As Double '保存显示的数据Dim lianyong As Double '当连续按等号时使用该变量Private Sub cmbDesign_Click(Index As Integer)End SubPrivate Sub cmbbackspace_Click()If Right(Trim(Text1.Text), 1) = "." ThenText1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2) & "."ElseText1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)End IfIf Right(Text1.Text, 1) = "." Thendotflag = FalseEnd IfIf Len(Text1.Text) = 1 ThenText1.Text = "0."End IfEnd Sub 单击Backspace时删除文本框内最后一个字符Private Sub cmbC_Click()dotflag = FalseText1.Text = "0."first = 0second = 0End Sub 使文本框变成初始状态“0.”Private Sub cmbCE_Click()Text1.Text = "0."End Sub 删除文本框内的所有内容，使文本框变成初始状态“0.”Private Sub cmbDOT_Click()'标示点击了点“。

VB编写简单计算器程序

VB编写简单计算器程序

Option ExplicitDim LastInput As String * 3 '记录上次按下的按键Dim Num1 As Double '第一个操作数Dim Num2 As Double '第二个操作数Dim OptType As Integer '按下哪一个操作符Dim Result As Double '表示运算结果Dim shuzhi As Integer '表示当前采用的shuzhiDim FirstNum As Boolean '是否是第一个操作数Sub keyp(keynum As Integer)Dim CHAR As String * 1CHAR = Chr(keynum)If CHAR = "+" Or keynum = 43 Then Command5(0).Value = TrueIf CHAR = "-" Or keynum = 45 Then Command5(1).Value = TrueIf CHAR = "*" Or keynum = 42 Then Command5(2).Value = TrueIf CHAR = "/" Or keynum = 47 Then Command5(3).Value = TrueIf shuzhi = 2 And CHAR >= "2" And CHAR <= "9" Thenkeynum = 0Exit SubEnd IfIf keynum >= 48 And keynum <= 57 Then Command1(keynum - 48).Value = True If keynum = 46 Then Command2.Value = TrueIf UCase(CHAR) = "C" Then Command3.Value = TrueIf keynum = 27 Then Command4.Value = TrueIf keynum = 61 Then Command6.Value = Truekeynum = 0End SubFunction angle(ByVal j1 As Integer) As Singleangle = j1If Option1.Value Then angle = j1 * 3.14 / 180End FunctionFunction ArcSin(ByVal Num As Single) As SingleIf Num = 1 ThenArcSin = 3.1415926 / 2ElseIf Num = -1 ThenArcSin = 3.1415926 * 3 / 2ElseArcSin = Atn(Num / Sqr(-Num * Num + 1))End IfIf Option1.Value Then ArcSin = ArcSin * 180 / 3.1415926End FunctionFunction ArcCos(ByVal Num As Single) As SingleIf Num = 1 ThenArcCos = 0ElseIf Num = -1 ThenArcCos = 3.1415926ElseArcCos = Atn(-Num / Sqr(-Num * Num + 1)) + 2 * Atn(1)End IfIf Option1.Value Then ArcCos = ArcCos * 180 / 3.1415926 End FunctionFunction jiecheng(ByVal n As Integer) As SingleDim COUNT As Integerjiecheng = 1For COUNT = 1 To njiecheng = jiecheng * COUNTNextEnd FunctionFunction n10to2(ByVal Number As Single) As SingleDim IntN As Long 'Number的整数部分Dim FracN As Single 'Number的小数部分Dim ModN As Integer '整数部分换算时，记录余数Dim RltN As String '换算结果Dim i As IntegerIf InStr(Number, "e") > 0 Or InStr(Number, "E") > 0 Then MsgBox "不能转换以科学记数法表示的数据！"Exit FunctionEnd IfModN = 0'Number = Val(Text1.Text)IntN = Int(Number)FracN = Number - IntN'以下代码用于将十进制的整数部分换算为二进制Do While IntN > 0ModN = IntN Mod 2IntN = IntN \ 2RltN = ModN & RltNLoopRltN = RltN & "."i = 1'以下代码用于将十进制的小数部分换算为二进制Do While i <= 7 Or FracN <> 0FracN = FracN * 2If FracN >= 1 ThenFracN = FracN - 1RltN = RltN & "1"ElseRltN = RltN & "0"End Ifi = i + 1Loopn10to2 = RltN'Option3.Value = TrueEnd FunctionFunction n2to10(ByVal Number As Double) As SingleDim i As Integer, j As IntegerDim IntN As Long, FracN As SingleDim RltN As SingleDim POS As Integer '记录小数点位置If InStr(Number, "e") > 0 Or InStr(Number, "E") > 0 ThenMsgBox "不能转换以科学记数法表示的数据！"Exit FunctionEnd IfOn Error GoTo ErrIntN = Int(Number)FracN = Number - IntNDo While IntN > 0 '换算整数部分RltN = RltN + (IntN Mod 10) * 2 ^ jj = j + 1IntN = IntN \ 10LoopPOS = InStr(1, Str(FracN), ".")j = -1For i = POS + 1 To Len(Str(FracN)) '换算小数部分RltN = RltN + 2 ^ j * Val(Mid(Str(FracN), i, 1))j = j - 1Next in2to10 = RltN'Option4.Value = TrueExit FunctionErr:Text1.Text = "数据太大，溢出！"End FunctionPrivate Sub Command1_Click(Index As Integer)'当按下数字键（0-9）时，向文本框尾部追加数据'并通过变量LastInput记录上次按键为数字键If Len(Text1.Text) > 16 Then Exit SubIf Text1.Text = "0" Or LastInput = "Eqv" Then Text1.Text = ""Text1.Text = Text1.Text & Index '追加数据LastInput = "Num"Command1(0).SetFocusEnd SubPrivate Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer) Call keyp(KeyAscii)End SubPrivate Sub Command2_Click()'按下小数点按钮的处理过程'如果数据位数超出范围，或数据中已包含小数点，退出本过程If Len(Text1.Text) > 16 Or InStr(1, Text1.Text, ".") > 0 _And LastInput <> "Eqv" Then Exit Sub'如果以"."开始输入新数据，在"."前加"0"；'如果在数据输入过程中按下"."，直接将"."追加在数据尾部If LastInput = "Opt" Or LastInput = "Eqv" Or LastInput = "Neg" Then Text1.Text = Text1.Text + "0."ElseText1.Text = Text1.Text + "."End IfLastInput = "Num"Command1(0).SetFocusEnd SubPrivate Sub Command3_Click()'按下"C"(取消) 按钮的Click 事件过程'重新设置并初始化变量。

vb计算器实验报告

vb计算器实验报告

vb计算器实验报告《VB计算器实验报告》摘要：本实验报告通过使用VB（Visual Basic）编程语言，设计并实现了一个简单的计算器应用程序。

实验结果表明，该计算器能够实现基本的四则运算功能，并且具有良好的用户界面和操作体验。

本实验为学习VB编程语言的初学者提供了一个很好的实践机会，也为进一步深入学习和开发更复杂的应用程序奠定了基础。

1. 背景VB是一种由微软公司开发的基于对象的编程语言，它是一种易学易用的编程语言，适合初学者入门。

VB可以用于开发各种类型的应用程序，包括桌面应用程序、Web应用程序和移动应用程序等。

在本实验中，我们将使用VB编程语言设计并实现一个简单的计算器应用程序，以展示其基本功能和特点。

2. 实验目的通过本实验，我们旨在掌握VB编程语言的基本语法和功能，并且能够设计并实现一个简单的计算器应用程序。

同时，我们也将学习如何创建用户界面、处理用户输入和实现基本的数学运算功能。

3. 实验方法本实验使用Visual Studio作为开发环境，通过VB编程语言实现计算器应用程序的设计和开发。

在设计过程中，我们将考虑用户界面的布局和美观性，以及计算器功能的实现和操作流程。

在开发过程中，我们将使用VB的各种语法和功能，如变量、条件语句、循环语句和函数等，来实现计算器的基本功能。

4. 实验结果经过设计和开发，我们成功实现了一个简单的计算器应用程序。

该计算器具有清晰的用户界面和友好的操作体验，能够实现基本的加减乘除等四则运算功能。

用户可以通过点击按钮或者输入数字和运算符来进行计算，同时还可以实现清零和退格等功能。

整体而言，该计算器应用程序能够满足基本的计算需求，并且具有较好的稳定性和性能。

5. 结论通过本实验，我们不仅掌握了VB编程语言的基本语法和功能，还学会了如何设计和实现一个简单的计算器应用程序。

同时，我们也了解到了用户界面设计和用户体验的重要性，以及如何通过VB编程语言实现各种功能和操作。

VB写简易计算器附图

VB写简易计算器附图

用V B6.0编写简易计算器效果图：废话不多说，直接上步骤一、创建控件组1、创建控件组的方法??首先创建一个命令按钮，调整其大小（觉得合适就行），名称为Command1，Caption属性为数字 0 ；然后进行“复制”和“粘贴”，当选择“粘贴”时，出现对话框提示已有一个同名控件，询问是否创建控件组，选择“是”后，即创建了一个名为“Command”的控件组。

这时，第一个按钮的Index属性值默认为“0”，第二个的Index属性值自动设为“1”，并且大小与第一个按钮相同，只需修改其 Caption 属性为数字“1”并将其拖至合适位置即可。

此后继续使用“粘贴”的方法建立其他控件组中其余按钮，共20个按钮，每建立一个，就将它拖到合适处，并修改相应的Caption属性值。

二、编写代码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三、测试，成功的话给个好评哦！谢谢各位下载与支持！这个可以编写作为作业哦！。