VB课后实验6答案.doc

VB课后实验6答案.doc实验6数组
6_1
Private Sub Commandl_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_C1ick()
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=l to 10
Print ；
Next i
Print ，换行
'③开始对数组元素进行处理 一 _
imax = 1: imin = 1: sum = a(l) : max = a(l) ，imax 表示最大元素的下 标值，imin表示最小元素的下标值，max变量表示最大值，sum表示元素和变量。
min = a(l) '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