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

实验6 编写计算器程序实验目的:1、 掌握控件数组的创建方法；2、 理解控件数组中控件名称组成特点；3、 掌握运用控件数组编程的方法。实验内容:1、 实验要求使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。2、 分析设计用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件。3、 窗体属性对象名属性名设置值Form1caption计算器Text1text-Command1（0-9）caption0-9Command1（10-13）caption+、-、*、Command1（14）caption.Command1（15）caption=Command1（16）caption退格Command1（17）captionCCommand1(18-24)caption平方、Sqrt、Sin、Cos、Tan、Atn、log4、 窗体设计5、 源代码Dim x As Single, y As SingleDim op As StringPrivate 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 = 负数或零的对数无意义 Else Text1 = Log(x) End If End SelectEnd SubPrivate Sub Form_Load()Text1 = For i = 0 To 24 Command1(i).BackColor = &HC0FFFFNext iEnd Sub实验思考：本次实验只实现了计算器的部分功能，请试着完善计算器的其它功能。实验目的:4、 掌握控件数组的创建方法；5、 理解控件数组中控件名称组成特点；6、 掌握运用控件数组编程的方法。实验内容:6、 实验要求使用控件数组设计一个简易计算器，能实现算术运算和简单函数运算，并具有清除结果和退格键的功能。7、 分析设计用一文本框显示计算过程及结果，使用以命令按钮控件为元素的控件数组，并编写控件数组的Click事件。8、 窗体属性对象名属性名设置值Form1caption计算器Text1text-Command1（0-9）caption0-9Command1（10-13）caption+、-、*、Command1（14）caption.Command1（15）caption=Command1（16）caption退格Command1（17）captionCCommand1(18-24)caption平方、Sqrt、Sin、Cos、Tan、Atn、log9、 窗体设计10、 源代码Dim x As Single, y As SingleDim op As StringPrivate 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 = 负数或零的对数无意义