1、 1 计算机计算机 vb 设计课程设计课程 实验报告实验报告说明书说明书 题 目：计算器 姓 名： 班 级： 指导老师： 年月 8 日 2 一一 设计名称：设计名称：基础用途计算器 二二 设计目的：设计目的：通过 vb 程序设计出计算器进行一些简单运算和进制的转换。 三三 计算器设计界面：计算器设计界面： 四四 设计步骤：设计步骤： 1） 新建一个工程新建一个工程 2） 设置控件：设置控件： 插入一个 text1 控件，font 属性字号为“一号” ， textAlign 属性调成 Right。 插入一个标签控件（Label1） ，设置标题属性为“进制” 插入四个单选按钮，设置 caption
2、 属性分别为 2 进制，8 进制，10 进制，16 进制。 插入一个 timer 控件，将 Interval 属性设置为“100” 添加一个 command1 控件数组数目为 17， command1(0)至 command1(9)caption 属性 分别设置为由 0 至 9，command1(10)标题属性设置为“.” ，command1(11)至 command1(16)caption 属性分别设置为 A 至 F。 添加控件 command2,caption 属性为“=” 添加 command3 控件数组数目为 4，caption 属性分别为“+” ， “-” ， “*” ， “/” 添
3、加控件 command4, command5, command6, command7 设置标题属性分别为“CE” “SQR” “X2” “1/X” 添加部件 Microsoft Windows Common Controls 6.0 添加 StatusBar 部件，右键插入窗格，设置窗格宽度，文本。 3） 编写程序代码：编写程序代码： Dim a#, b#, x$, K% Private Sub Command1_Click(Index As Integer) Text1 = Text1 & Command1(Index).Caption End Sub Private Sub Command
4、2_Click() b = V al(Text1) Select Case x Case “+“ M = a + b Case “-“ M = a - b 3 Case “*“ M = a * b Case “/“ If b 0 Then M = a / b Else MsgBox “分母为 0“, “65“, “警告“ End If End Select Text1 = M If M 0 Then Text1 = “0“ & Text1 If M -1 And M 0 Then Text1 = “-0“ & Abs(V al(Text1) End Sub Private Sub Command3_Click(Index As Integer) a = V al(Text1): Text1 = “ x = Command3(Index).Caption End Sub Private Sub Command4_Click() Text1 = “ End Sub Private Sub Command5_Click() K = V
