vb计算器实训 实验报告.docVIP

实训8 实验报告 一、实验目的：制作一个计算器 二、实验进程：完成了十六进制，八进制的代码书写。添加了form3，完成了窗体转化。 三、实验原理与分析： 1、控件属性设置： Form1： 控件 属性 Command1 Caption 0 Command1 Index 0 Command2 Caption + Command2 Index 0 Command3 Caption +/- Command3 Font 加粗 Command4 Caption . Command4 font 加粗 Command5 Caption Backspace Command5 Font 加粗 Command6 Caption C Command6 Font 加粗 Command7 Caption CE Command7 Font 加粗 Command8 Caption Sqrt Command9 Caption 1/x Command10 Caption % Command11 Caption = Command11 Font 加粗 Text1 Text 0. Text1 Alignment 1-right justify Text1 Font 四号 Form1 Caption 计算器 Form1 Maxbutton False Form2： 控件 属性 Command1 Caption 0 Command1 Index 0 Command2 Caption + Command2 Index 0 Command3 Caption +/- Command3 Font 加粗 Command4 Caption . Command4 font 加粗 Command5 Caption Backspace Command5 Font 加粗 Command6 Caption C Command6 Font 加粗 Command7 Caption CE Command7 Font 加粗 Command8 Caption Sqrt Command9 Caption 1/x Command10 Caption % Command11 Caption = Command11 Font 加粗 Command12 caption sin Command12 index 0 Command13 caption A Command13 index 0 Command13 enabled false Text1 Text 0. Text1 Alignment 1-right justify Text1 Font 四号 Form2 Caption 计算器 Frame1 Caption “” Frame2 Caption “” Option1 Caption 十六进制 Option2 Caption 八进制 Option3 caption 十进制 Option4 caption 二进制 Form2 Maxbutton False Form3： 控件 属性 Command1 Caption 确定 Image1 Stretch True Form3 Caption 帮助主题 Form3 Maxbutton False 2、界面图： Form1 Form2： Form3： 3、代码书写： Form1： Option Explicit Dim i As Integer Dim j As Integer Dim m As String Dim x1 As Double Dim x2 As Double Dim y As String Dim op As Integer Dim lastinput As String Private Sub About_Click() Form1.Hide Form3.Show End Sub Private Sub Command1_Click(Index As Integer) 输入数字0-9 If Text1.Text = 0. Or lastinput = = Then Text1.Text = Index lastinput = number Else If Form1.Tag Then If Index = 10 Then Text1.Text = 0. Else Text1.Text = Command1(Index).Caption End If Form1.Tag = Else Text1.Text = Text1.Text Command1(Index).Caption