vb实验6.pptVIP

6-1 Private Sub Command1_Click() Dim i As Integer, j As Integer Dim a(10) As Integer, t As Integer Print 交换前数据： For i = 1 To 10 a(i) = …… ‘生成20-80之间的随机数，参见教材P129数组元素的输入 Print ……; ‘ 注意这里用分号，表示在一行上紧密输出各数组元素的值， ‘如不用分号和逗号，则分行（列形式）输出各数组元素的值。 Next i Print ‘输出空行,表示后面的输出换到新的一行。 For i = 1 To 10 \ 2 ‘这里必须是10\2，表示交换5次，即可实现两两数据交换 ‘（第一个和最后一个的交换，第二个和第九个的交换，以此类推） ‘以下实现数据交换，必须通过第三个变量实现两两数据交换 t = a(i) a(i) = a(10 - i + 1) a(10 - i + 1) = t Next i Print “交换后数据：” ‘必须单独做循环输出数据，不能放在上面的循环里输出， ‘因为上面循环只有5次，只能输出5个元素。 For i = 1 To 10 Print ……; ‘数组元素的输出，参见教材P130数组元素的输出 Next i End Sub 6-2 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, aver As Integer Dim max As Integer, imax As Integer Dim min As Integer, imin As Integer, sum As Integer Print 输入评委的评分 ‘①输入数组元素 For i = 1 To 10 a(i) =…… if a(i)5 or a(i)10 then …… ‘出错信息 …… ‘i 控制变量作何处理？让i -1返回上一位置 endif Next i ‘②输出数组元素 For i=1 to 10 Print ……; Next i Print ‘窗体输出换行，保证退出循环体的输出不紧接循环体内的输出（在一行上） 6-2接前页 ‘③开始对数组元素进行处理 imax = 1: imin = 1: sum = a(1): max = a(1) ‘imax表示最大元素的下标值，imin表示最小元素的下标值，max变量表示最大值，sum表示元素和变量。 min = a(1) ‘min变量表示最小值，初值一定要在循环体外赋值，不然min=0，输入的数组元素值如果都0，那min永远都为0. For i = 2 To 10 If max a(i) Then …… ‘找最大值及下标 If min a(i) Then …… ‘找最小值及下标 sum = …… ‘求数组元素和 Next i ‘④输出结果 aver = (sum - a(imax) - a(imin)) / 8 ‘求平均值也可用 aver = (sum - max - min) / 8 Print 选手的得分为： Print aver End Sub 6-3 ‘通用处定义窗体级变量 Option Explicit ’强制声明变量 Option Base 1 ‘指定数组的下标下界为1 Dim a(5, 5) As Integer ‘定义窗体级变量，以便在下面的4个命令按钮的click事件中使用该数组 Private Sub Command1_Click() Dim i As Integer, j As Integer ‘不可以再次定义a（5,5），否则a（5,5）只能在command1中有用，在其他命令按钮事件中不起作用。 ‘二维数组元素的赋值用二重