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

VB简单计算器编程代码(附图) 课程课课课明课正文 一、课目,课算器的课作和相课程序的课写 二、本课的主要功能,通课课算器的课作熟悉各控件的性和课课程序的课。属写三、程序截课, 四、源程序 清课, Begin VB.Form Form1 Caption 课算器= "" ClientHe ight = 3765 ClientLe ft = 165 ClientTo p = 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 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 3 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" 4 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 5 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 6 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" End End Attribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit 7 Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As Boolean Dim fuhao As String Dim first As Double Dim second As Double Dim isEqual As Boolean 保存课示的据数Dim memory As Double ' 当号课课按等课使用课课量Dim lianyong As Double 'Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Dim dotflag As Boolean Dim fuhao As String Dim first As Double Dim second As Double Dim isEqual As Boolean 保存课示的据数Dim memory As Double ' 当号课课按等课使用课课量Dim lianyong As Double ' Private Sub cmbDesign_Click(Index As Integer) End Sub Private 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 If If Right(Text1.Text, 1) = "." Then dotflag = False End If If Len(Text1.Text) = 1 Then Text1.Text = "0." End If 课课课课除文本最后一字符框内个End Sub Backspace Private Sub cmbC_Click() dotflag = False Text1.Text = "0." first = 0 second = 0 使文本课成初始课“框状End Sub 0.” Private Sub cmbCE_Click() Text1.Text = "0." 课除文本的所有容～使文本课成初始课“框内内框状End Sub 0.”Private Sub cmbDOT_Click()课示点课了点“。”' dotflag = True 点的点课～End Sub 8 Private Sub cmbMa_Click() Text1.Text = Str(Val(Text1.Text) + memory) formatText 课课算课运数End Sub Private Sub cmbMC_Click() memory = 0 Label2.Caption = "" 清内除存课器容End Sub . Private Sub cmbMR_Click() Text1.Text = Str(memory) formatText End Sub 课用存课器容内 Private Sub cmbMS_Click() 保存到存中内memory = Val(Text1.Text) ' Label2.Caption = "M" 保存到存中内End 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 formatText End Sub Private Sub cmbSign_Click(Index As Integer) 恢课未点课点“。”的课状' dotflag = False 恢课等在本次算中未课课课课号运状isEqual = False ' first = Text1.Text fuhao = cmbSign(Index).CaptionText1.Text = "0." End Sub Private Sub cmbZF_Click() If Left(Trim(Text1.Text), 1) = "-" Then Text1.Text = Mid(Text1.Text, 2)Else Text1.Text = "-" & Trim(Text1.Text)End If 9 课文本课行取课算框运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(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 If 课文本的容课行课方算框内运End Sub Private Sub Command4_Click()second = Val(Text1.Text)If isEqual = False Then lianyong = Val(Text1.Text)Else first = second End If Text1.Text = Str(compute(first, lianyong, fuhao)) formatText isEqual = True 等的算～课束此次算号运并运End Sub Private Sub Form_Load() dotflag = False isEqual = False lianyong = 0 判等是否课用断号End Sub Public Function compute(f As Double, s As Double, fuhao As String) As Double Select Case fuhao Case "+" compute = f + s Case "-" compute = f - s Case "*" compute = f * s Case "/" compute = f / s Case Else 不明白MsgBox "" 10 End Select 课文本的容课行加、、乘、除的算 框内减运End Function Public Sub formatText() Dim i As Integer Dim isDot As Boolean isDot = False For i = 1 To Len(Text1.Text) If Mid(Trim(Text1.Text), i, 1) = "." Then isDot = True Exit For End If Next i If isDot = False Then Text1.Text = Text1.Text + "." End If If Left(Text1.Text, 1) = "0" Then Text1.Text = Mid(Text1.Text, 2)End If If Left(Trim(Text1.Text), 1) = "." Then Text1.Text = "0" & Trim(Text1.Text)End If If Left(Trim(Text1.Text), 2) = "-." Then Text1.Text = "-0" & Mid(Trim(Text1.Text), 2) End If End Sub 五、程序课课课果及程序改课意课 如何判小点是否按下,断数1) 当数没框内个小点有按下是～文本的容最后一字符是,“～小点按下当数.”课～文本容最后一字符是课入的容。框内个内 ,如何课按课添加彩色课形,2 在课板上做出所需要彩色课形的课片～再把课片课用到控件按课上。画 ,如何判除不能课断数～除课当数课如何操作,300 当数除课课～课课等于算课课示除不能课运会数～除课当数课改课文本的容使框内000除不课数0. 11