1、 TabIndex = 28 Top = 3060 Width = 735 End Begin VB.CommandButton Command3 1/x TabIndex = 27 Top = 2520 Begin VB.CommandButton Command2 % TabIndex = 26 Top = 1980 Begin VB.CommandButton Command1 sqrt TabIndex = 25 Top = 1440 Begin VB.CommandButton cmbDOT . Left = 2910 TabIndex = 24 Begin VB.CommandBu
2、tton cmbZF +/- Left = 2130 TabIndex = 23 Begin VB.CommandButton cmbSign + Index = 3 Left = 3690 TabIndex = 22- Index = 2 TabIndex = 21* Index = 1 TabIndex = 20/ Index = 0 TabIndex = 19 Begin VB.CommandButton cmbNUM 9 Index = 9 TabIndex = 188 Index = 8 TabIndex = 177 Index = 7 Left = 1350 TabIndex =
3、166 Index = 6 TabIndex = 155 Index = 5 TabIndex = 144 Index = 4 TabIndex = 133 TabIndex = 122 TabIndex = 111 TabIndex = 100 TabIndex = 9 Begin VB.CommandButton cmbMa M+ Left = 150 TabIndex = 8 Width = 975 Begin VB.CommandButton cmbMS MS TabIndex = 7 Begin VB.CommandButton cmbMR MR TabIndex = 6 Begin
4、 VB.CommandButton cmbMC MC TabIndex = 5 Begin VB.CommandButton cmbC C Left = 4020 TabIndex = 4 Top = 690 Width = 1155 Begin VB.CommandButton cmbCE CE Left = 2670 TabIndex = 3 Begin VB.CommandButton cmbbackspace Backspace Left = 1380 TabIndex = 2 Begin VB.TextBox Text1 Alignment = 1 Right Justify Hei
5、ght = 375 Left = 210 TabIndex = 0 Text = 0. Top = 120 Width = 4935 Begin VB.Label Label2 Alignment = 2 Center Height = 255 Left = 360 TabIndex = 29 Top = 840 Width = 375 Begin VB.Label Label1 BorderStyle = 1 Fixed Single BeginProperty Font Name = 宋体 Size = 14.25 Charset = 134 Weight = 400 Underline
6、= 0 False Italic = 0 Strikethrough = 0 EndProperty Left = 240 TabIndex = 1 Width = 615 Begin VB.Menu edit 编辑(&E) Begin VB.Menu look 查看(&V) Begin VB.Menu help 帮助(&H)EndAttribute VB_Name = Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_E
7、xposed = 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 Sub cmbDesign_Click(In
8、dex 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 = FalseIf Len(Text1.Text) = 1 Then Text1.Text = End
9、Sub 单击Backspace时删除文本框内最后一个字符Private Sub cmbC_Click()dotflag = FalseText1.Text = first = 0second = 0End Sub 使文本框变成初始状态“0.”Private Sub cmbCE_Click()End Sub 删除文本框内的所有内容,使文本框变成初始状态“0.”Private Sub cmbDOT_Click()标示点击了点“。” dotflag = TrueEnd Sub 点的点击,Private Sub cmbMa_Click()Text1.Text = Str(Val(Text1.Text)
10、 + 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 A
11、s Integer) 判断是否按过等号键“= If isEqual = True Then isEqual = False End If判断是否点击过“点”按扭,如果未点击过在点前添加,否则在点后添加 If dotflag = False Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) & Index & Else Text1.Text = Text1.Text & IndexPrivate Sub cmbSign_Click(Index As Integer)恢复未点击点“。”的状态isEqual = False 恢复等号在本次
12、运算中未单击过状态first = Text1.Textfuhao = cmbSign(Index).CaptionPrivate Sub cmbZF_Click()If Left(Trim(Text1.Text), 1) = Text1.Text = Mid(Text1.Text, 2) & Trim(Text1.Text)End 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
13、(Val(Text1.Text), i, 1) = isDot = True Exit For Next i If isDot = False Then Text1.Text = Str(Sqr(Val(Text1.Text) & Text1.Text = Str(Sqr(Val(Text1.Text)End Sub 对文本框的内容进行开方运算Private Sub Command4_Click()second = Val(Text1.Text)If isEqual = False Then lianyong = Val(Text1.Text) first = secondText1.Text
14、 = Str(compute(first, lianyong, fuhao)isEqual = TrueEnd Sub 等号的运算,并结束此次运算Private Sub Form_Load() lianyong = 0End Sub 判断等号是否连用Public Function compute(f As Double, s As Double, fuhao As String) As DoubleSelect Case fuhaoCase compute = f + s compute = f - s compute = f * s compute = f / sCase Else MsgB
15、ox 不明白End SelectEnd Function 对文本框的内容进行加、减、乘、除的运算 Public Sub formatText()Dim i As IntegerisDot = False For i = 1 To Len(Text1.Text) If Mid(Trim(Text1.Text), i, 1) = Text1.Text = Text1.Text + If Left(Text1.Text, 1) = If Left(Trim(Text1.Text), 2) = -.-0 Mid(Trim(Text1.Text), 2)五、程序调试结果及程序改进意见1)如何判断小数点是否按下?当小数点没有按下是,文本框的内容最后一个字符是:“.”,当小数点按下时,文本框内容最后一个字符是输入的内容。2)如何对按钮添加彩色图形?在画图板上做出所需要彩色图形的图片,再把图片应用到控件按钮上。3)如何判断除数不能为0,当除数为0时如何操作?当除数为0时,单击等于运算时会显示除数不能为0,当除数为0时改变文本框的内容使除数不为0.