专题辅导第十六讲 数组与控件数组（二）.docVIP

第十六讲 数组与控件数组（二） 易计算器 作为一个例子，我们设计一个简易计算器； 【任务4】设计一个如图8所示的简易计算器。 图8 运行结果如图9所示： 图9 任务描述： 作一个如上图所示的简易计算器，可以做加、减、乘、除的单项运算，可以是小数。 任务分析： 我们放一个按钮Command1，然后通过复制它得到Command1(0)~Command1(9)表示0，1，2，…，9共10个数，Command1(10)~command1(13)表示“+”“-”“*”“/”四个符号， Command1(14)表示“=”； Command1(15)表示小数点“.”; 这样表示数的控件数组的下标刚好就是这个按钮上面所标的数，这会为编写程序带来方便。 中间显示结果的长条用文本框Text1表示，两边再各放一个按钮Commad2（关闭），Command3（清除）。 由于我们采用了控件数组，对于按钮的控件数组而言，无论你单击了控件数组中的哪能一个按钮，它都会触发事件：Command1_Click(Index As Integer)，并且带回一个整数参数Index，它告诉我们操作者单击了哪一个按钮，Index带回来的是按钮的下标，因此，它大大方便了我们编写程序。 我们只要在事件过程Command1_Click(Index As Integer)中写程序就可以了。 编程序有分别以下几步： 在文件框中显示出内容 当单击了一个运算符后，记下前面输入的数，作为第一个运算数。 当单击了等号后记下后面输入的数作为第二个操作数。 根据运算符号进行不同的运算。 具体操作见程序。 实现步骤： 1．设计界面 界面设计如图8所示： 2．编写程序 如下： Dim a, b, sign As Integer Dim temp As String Private Sub Command1_Click(Index As Integer) 在文本框中显示单击内容 Text1.Text = Text1.Text + Command1(Index).Caption 先处理数据，是数据记到Temp If Index = 0 And Index = 9 Or Index = 15 Then temp = temp + Command1(Index).Caption End If 碰到运算符号后，记下第一个操作数a和运算符号Sign If Index = 10 And Index = 13 Then a = Val(temp) temp = sign = Index End If 碰到等号后，记下第二个操作数b，并根据情况进行计算，显示结果 If Index = 14 Then b = Val(temp) temp = Select Case sign Case 10: Text1.Text = Text1.Text + Str(a + b) Case 11: Text1.Text = Text1.Text + Str(a - b) Case 12: Text1.Text = Text1.Text + Str(a * b) Case 13: Text1.Text = Text1.Text + Str(a / b) End Select a = 0 b = 0 End If End Sub Private Sub Command2_Click() End End Sub Private Sub Command3_Click() Text1.Text = End Sub Private Sub Form_Load() a = 0 b = 0 End Sub 3．保存文件 建立“任务4”文件夹，保存上述工程。 答疑解难：月亮走 任务描述： 我们知道，月亮不但有自转，还有公转，这个程序就是要模拟一下月亮在移动的移动时的自转。如图10所示，具体效果见程序。 图10 任务分析： 在VB提供的图片库的Graphics\Icons\elements下面有八个文件Moon1,Moon2,…,Moon8表示了月亮的八种不同的状态，如图11所示，我们用图像框的控件数