《软件设计基础(VB)》简单科学计算器课程设计报告书

《软件设计基础（VB）》课程设计报告 第 9 页，共 26 页

MsgBox \不能做除数\提示\Else calc = num1 / num2 End If Case 1 ‘选择*运算 calc = num1 * num2 Case 2 ‘选择-运算 calc = num1 - num2 Case 3 ‘选择+运算 calc = num1 + num2 End Select If Text1.Text <> \‘除数为0重新输入 num1 = 0 num2 = 0 lastinput = \opttype = -1 End Function Private Sub Command1_Click(Index As Integer)’0-9运算数的输入 If Len(Text1.Text) > 16 Then Exit Sub ‘num1的输入 If Text1.Text = \Text1.Text = Text1.Text & Index lastinput = \If lastinput = \ ‘num2的输入 《软件设计基础（VB）》课程设计报告 第 10 页，共 26 页

Text1.Text = \Text1.Text = Text1.Text & Index lastinput = \End If Command1(0).SetFocus‘0获得焦点 End Sub Private Sub Command10_Click()‘OFF按钮，关闭程序 End End Sub Private Sub Command11_Click()‘CE按钮，清除 If Len(Text1.Text) >= 1 Then Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1) Else MsgBox \已经是最后一位\提示\ End If End Sub Private Sub Command12_Click()‘-/+按钮 Text1.Text = Trim(-Val(Text1.Text)) End Sub Private Sub Command13_Click()‘x^2按钮 《软件设计基础（VB）》课程设计报告 第 11 页，共 26 页

Text1.Text = Text1.Text ^ 2 End Sub Private Sub Command14_Click()‘八进制按钮 Text1.Text = Oct(Text1.Text) End Sub Private Sub Command2_Click(Index As Integer)‘功能函数按钮 Const pi As Single = 3.14159265358979 ‘ 将x转化为角度制 Dim x As Double x = Val(Text1.Text) If Option2.Value = ture Then x = x * pi / 180 ‘计算三角函数时判断条件 Select Case Index Case 0 ‘计算sin ,以特定格式输出 Text1.Text = Format(Sin(x), \lastinput = \Case 1 ‘计算exp Text1.Text = 10 ^ Text1.Text lastinput = \Case 2 ‘计算sqr If Text1.Text > 0 Then Text1.Text = Format(Sqr(Val(Text1.Text)), \lastinput = \Else MsgBox \被开方数不能为负数\提示\《软件设计基础（VB）》课程设计报告 第 12 页，共 26 页

Text1.Text = \ Text1.SetFocus End If Case 3 ‘计算cos Text1.Text = Format(Cos(x), \lastinput = \Case 4 ‘计算log Text1.Text = Log(text1.text) / Log(10) lastinput = \ Case 5 ‘计算1/x If x = 0 Then MsgBox \数据输入不正确\提示\Else Text1.Text = \lastinput = \End If Case 6 ‘计算tan Text1.Text = Format(Tan(x), \lastinput = \Case 7 ‘计算ln Text1.Text = Log(Text1.Text) lastinput = \End Select