计算机vb设计课程实验报告--基础用途计算器.doc

计算机vb设计课程 实验报告说明书 　　　　　　　　　　　　　题　　目：计算器 　　　　　　　　　　　姓　　名：　 　 　　　　　　　　　　　班　　级： 　　　　　　　　　　　指导老师：　　 ２０１１年７月8日 设计名称：基础用途计算器 设计目的：通过vb程序设计出计算器进行一些简单运算和进制的转换。 计算器设计界面： 设计步骤： 新建一个工程 设置控件： 插入一个text1控件，font属性字号为“一号”， textAlign属性调成Right。 插入一个标签控件（Label1），设置标题属性为“进制” 插入四个单选按钮，设置caption属性分别为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属性分别为“+”，“-”，“*”，“/” 添加控件command4, command5, command6, command7设置标题属性分别为“CE”“SQR”“X^2”“1/X” 添加部件Microsoft Windows Common Controls 6.0 添加StatusBar部件，右键插入窗格，设置窗格宽度，文本。 编写程序代码： Dim a#, b#, x$, K% Private Sub Command1_Click(Index As Integer) Text1 = Text1 Command1(Index).Caption End Sub Private Sub Command2_Click() b = Val(Text1) Select Case x Case + M = a + b Case - M = a - b Case * M = a * b Case / If b 0 Then M = a / b Else MsgBox 分母为0, 65, 警告 End If End Select Text1 = M If M 1 And M 0 Then Text1 = 0 Text1 If M -1 And M 0 Then Text1 = -0 Abs(Val(Text1)) End Sub Private Sub Command3_Click(Index As Integer) a = Val(Text1): Text1 = x = Command3(Index).Caption End Sub Private Sub Command4_Click() Text1 = End Sub Private Sub Command5_Click() K = Val(Text1) Text1 = Sqr(K) End Sub Private Sub Command6_Click() t = Val(Text1) Text1 = t ^ 2 End Sub Private Sub Command7_Click() I = Val(Text1) Text1 = 1 / I End Sub Private Sub Form_Load() K = 10 Option3.Value = True End Sub Private Sub Option1_Click() For I = 0 To 1 Command1(I).Enabled = True Next For I = 2 To 16 Command1(I).Enabled = False Next Command1(10).Enabled = True M = Val(Text1) Select Case K Case 10 Text1 = F102(Text1) Case 2 S1 = Text1 Case 16 S2 = F1610(Text1) Text1 = F102(S2) Case 8 S3 = F810(Text1) Text1 = F102(S3) End Select K = 2 End Sub Private Sub Option2_Click() For I = 0 To 7 Command1(I).Enabled = True Next For I = 8 To 16 Command1(I).Enabled = False Next Command1(10).Enabled = True M