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

课程设计说明书正文一、题目：计算器的创作和相应程序的编写二、本题的主要功能：通过计算器的创作熟悉各控件的属性和练习程序的编写。三、程序截图：四、源程序清单：Begin VB.Form Form1 Caption = 计算器 ClientHeight = 3765 ClientLeft = 165 ClientTop = 855 ClientWidth = 5355 Icon = Form1.frx:0000 LinkTopic = Form1 LockControls = -1 True ScaleHeight = 3765 ScaleWidth = 5355 StartUpPosition = 3 窗口缺省 Begin VB.CommandButton Command4 Caption = = Height = 495 Left = 4470 TabIndex = 28 Top = 3060 Width = 735 End Begin VB.CommandButton Command3 Caption = 1/x Height = 495 Left = 4470 TabIndex = 27 Top = 2520 Width = 735 End Begin VB.CommandButton Command2 Caption = % Height = 495 Left = 4470 TabIndex = 26 Top = 1980 Width = 735 End Begin VB.CommandButton Command1 Caption = sqrt Height = 495 Left = 4470 TabIndex = 25 Top = 1440 Width = 735 End Begin VB.CommandButton cmbDOT Caption = . Height = 495 Left = 2910 TabIndex = 24 Top = 3060 Width = 735 End Begin VB.CommandButton cmbZF Caption = +/- Height = 495 Left = 2130 TabIndex = 23 Top = 3060 Width = 735 End Begin VB.CommandButton cmbSign Caption = + Height = 495 Index = 3 Left = 3690 TabIndex = 22 Top = 3060 Width = 735 End Begin VB.CommandButton cmbSign Caption = - Height = 495 Index = 2 Left = 3690 TabIndex = 21 Top = 2520 Width = 735 End Begin VB.CommandButton cmbSign Caption = * Height = 495 Index = 1 Left = 3690 TabIndex = 20 Top = 1980 Width = 735 End Begin VB.CommandButton cmbSign Caption = / Height = 495 Index = 0 Left = 3690 TabIndex = 19 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 9 Height = 495 Index = 9 Left = 2910 TabIndex = 18 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 8 Height = 495 Index = 8 Left = 2130 TabIndex = 17 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 7 Height = 495 Index = 7 Left = 1350 TabIndex = 16 Top = 1440 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 6 Height = 495 Index = 6 Left = 2910 TabIndex = 15 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 5 Height = 495 Index = 5 Left = 2130 TabIndex = 14 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 4 Height = 495 Index = 4 Left = 1350 TabIndex = 13 Top = 1980 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 3 Height = 495 Index = 3 Left = 2910 TabIndex = 12 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 2 Height = 495 Index = 2 Left = 2130 TabIndex = 11 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 1 Height = 495 Index = 1 Left = 1350 TabIndex = 10 Top = 2520 Width = 735 End Begin VB.CommandButton cmbNUM Caption = 0 Height = 495 Index = 0 Left = 1350 TabIndex = 9 Top = 3060 Width = 735 End Begin VB.CommandButton cmbMa Caption = M+ Height = 495 Left = 150 TabIndex = 8 Top = 3060 Width = 975 End Begin VB.CommandButton cmbMS Caption = MS Height = 495 Left = 150 TabIndex = 7 Top = 2520 Width = 975 End Begin VB.CommandButton cmbMR Caption = MR Height = 495 Left = 150 TabIndex = 6 Top = 1980 Width = 975 End Begin VB.CommandButton cmbMC Caption = MC Height = 495 Left = 150 TabIndex = 5 Top = 1440 Width = 975 End Begin VB.CommandButton cmbC Caption = C Height = 495 Left = 4020 TabIndex = 4 Top = 690 Width = 1155 End Begin VB.CommandButton cmbCE Caption = CE Height = 495 Left = 2670 TabIndex = 3 Top = 690 Width = 1155 End Begin VB.CommandButton cmbbackspace Caption = Backspace Height = 495 Left = 1380 TabIndex = 2 Top = 690 Width = 1155 End Begin VB.TextBox Text1 Alignment = 1 Right Justify Height = 375 Left = 210 TabIndex = 0 Text = 0. Top = 120 Width = 4935 End Begin VB.Label Label2 Alignment = 2 Center Height = 255 Left = 360 TabIndex = 29 Top = 840 Width = 375 End Begin VB.Label Label1 Alignment = 2 Center BorderStyle = 1 Fixed Single BeginProperty Font Name = 宋体 Size = 14.25 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 495 Left = 240 TabIndex = 1 Top = 690 Width = 615 End Begin VB.Menu edit Caption = 编辑（&E） End Begin VB.Menu look Caption = 查看（&V） End Begin VB.Menu help Caption = 帮助（&H） EndEndAttribute VB_Name = Form1Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Declare Function ShowCursor Lib user32 (ByVal bShow As Long) As LongDim 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 LongDim 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) = . Then Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 2) & .Else Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)End IfIf Right(Text1.Text, 1) = . Then dotflag = FalseEnd IfIf Len(Text1.Text) = 1 Then Text1.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()标示点击了点“。” dotflag = TrueEnd Sub 点的点击，Private Sub cmbMa_Click()Text1.Text = Str(Val(Text1.Text) + memory)formatTextEnd Sub 记忆运算数值Private Sub cmbMC_Click()memory = 0Label2.Caption = End Sub 清除存储器内容.Private Sub cmbMR_Click() Text1.Text = Str(memory) formatTextEnd Sub 调用存储器内容Private Sub cmbMS_Click() memory = Val(Text1.Text) 保存到内存中 Label2.Caption = MEnd Sub 保存到内存中Private Sub cmbNUM_Click(Index As Integer) 判断是否按过等号键“= If isEqual = True Then Text1.Text = 0. isEqual = False End If 判断是否点击过“点”按扭，如果未点击过在点前添加，否则在点后添加 If dotflag = False Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & Index & . Else Text1.Text = Text1.Text & Index End If formatTextEnd SubPrivate Sub cmbSign_Click(Index As Integer)恢复未点击点“。”的状态dotflag = FalseisEqual = False 恢复等号在本次运算中未单击过状态first = Text1.Textfuhao = cmbSign(Index).CaptionText1.Text = 0.End SubPrivate Sub cmbZF_Click()If Left(Trim(Text1.Text), 1) = - Then Text1.Text = Mid(Text1.Text, 2)Else Text1.Text = - & Trim(Text1.Text)End IfEnd Sub 对文本框进行取负运算Private Sub Command1_Click()Dim isDot As Boolean Dim i As Integer For i = 1 To Len(Trim(Text1.Text) If Mid(Trim(Str(Sqr(Val(Text1.Text), i, 1) = . Then isDot = True Exit For End If Next i If isDot = False Then Text1.Text = Str(Sqr(Val(Text1.Text) & . Else Text1.Text = Str(Sqr(Val(Text1.Text) End IfEnd Sub 对文本框的内容进行开方运算Private Sub Command4_Click()second = Val(Text1.Text)If isEqual = False Then lianyong = Val(Text1.Text)Else first = secondEnd IfText1.Text = Str(compute(first, lianyong, fuhao)formatTextisEqual = TrueEnd Sub 等号的运算，并结束此次运算Private Sub Form_Load() dotflag = False isEqual = False lianyong = 0End Sub 判断等号是否连用Public Function compute(f As Double, s As Double, fuhao As String) As DoubleSelect Case fuhaoCase + compute = f + sCase - compute = f - sCase * compute = f * sCase / compute = f / sCase Else MsgBox 不明白End SelectEnd Function 对文本框的内容进行加、减、乘、除的运算 Public Sub formatText()Dim i As IntegerDim isDot As BooleanisDot = False For i = 1 To Len(Text1.Text) If Mid(Trim(Text1.Text), i