VB课后实验6答案.docVIP

实验6 数组 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之间的随机数 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 ……; 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控制变量作何处理？ endif Next i ‘②输出数组元素 For i=1 to 10 Print ……; Next i Print ‘换行 ‘③开始对数组元素进行处理 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 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中有用，在其他命令按钮事件中不起作用。 ‘二维数组元素的赋值用二重循环控制 For i = 1 To 5 For j = 1 To 5 a(i, j) = Val(InputBox(输入a( i , j )的值)) ‘此写法在输入对话框中可显示数组元素的下标值。 Next j Next i End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer ‘用二重循环控制二维数组元素的输出 …… Picture1.Print Mid(Str(a(i, j)) , 1, 3); Spc(4); ’为了在输出时每列元素列对齐 …… ‘用Picture1.Print输出空行 …… End Sub Private Sub Command3_Click() Dim imax As Integer, max As Integer, jmax As Int