实验6控件数组编写计算器程序..docVIP

实验6 编写计算器程序 实验目的: 掌握控件数组的创建方法； 理解控件数组中控件名称组成特点； 掌握运用控件数组编程的方法。 实验内容: 实验要求 使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。 分析设计 用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件。 窗体属性 对象名 属性名 设置值 Form1 caption 计算器 Text1 text ---- Command1（0-9） caption 0-9 Command1（10-13） caption +、-、*、÷ Command1（14） caption . Command1（15） caption = Command1（16） caption 退格 Command1（17） caption C Command1(18-24) caption 平方、Sqrt、Sin、Cos、Tan、Atn、log 窗体设计 源代码 Dim x As Single, y As Single Dim op As String Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 To 9 Text1.Text = Text1 Command1(Index).Caption Case 14 If InStr(Text1, .) = 0 Then Text1.Text = Text1 Command1(Index).Caption ElseIf Right(Text1, 1) = . Then Text1.Text = Text1 End If Case 10 To 13 x = Val(Text1) If Index = 10 Then op = + If Index = 11 Then op = - If Index = 12 Then op = * If Index = 13 Then op = / Text1 = Case 15 y = Val(Text1) Text1 = If op = + Then Text1 = x + y If op = - Then Text1 = x - y If op = * Then Text1 = x * y If op = / Then If y 0 Then Text1 = x / y Else Text1 = 除数不能为零 End If End If Case 16 If Len(Text1) 0 Then Text1 = Left(Text1, Len(Text1) - 1) End If Case 17 Text1 = x = 0: y = 0 Case 18 x = Val(Text1) If x 0 Then Text1 = 负数的平方根无意义 Else Text1 = Sqr(x) End If Case 19 x = Val(Text1): Text1 = x * x Case 20 x = Val(Text1): Text1 = Sin(x * 3.1415926 / 180) Case 21 x = Val(Text1): Text1 = Cos(x * 3.1415926 / 180) Case 22 x = Val(Text1): Text1 = Tan(x * 3.1415926 / 180) Case 23 x = Val(Text1): Text1 = Atn(x) * 180 / 3.1415926 Case 24 x = Val(Text1) If x = 0 Then Text1 = 负数或零的对数无意义