第04章数组习题参考答案.docVIP

第4章 数组习题参考答案 第1题 方法1 随机数赋值 Dim n%, max%, min%, i%, p! Dim a() As Integer 定义评委打分数组 n = Val(InputBox(输入评委人数)) 评委人数应大于2 ReDim a(1 To n) As Integer For i = 1 To n a(i) = Int(Rnd() * (100 - 50 + 1) + 50) 数组a赋值 Print a(i); 输出a数组 s = s + a(i) 数组元素累加 Next i Print max = a(1): min = a(1) 设最大数、最小数为a(1） For i = 2 To n If max a(i) Then max = a(i) 求最大数 If max a(i) Then max = a(i) 求最小数 Next i p = (s - max - min) / (n - 2) Print 选手得分为:; p 方法2 输入评委打分 Dim n%, max%, min%, i%, p! Dim a() As Integer 定义评委打分数组 n = Val(InputBox(输入评委人数)) ReDim a(1 To n) As Integer For i = 1 To n a(i) = Val(InputBox(评委 i 打分)) 数组a赋值 Print a(i); 输出a数组 s = s + a(i) 数组元素累加 Next i Print max = a(1): min = a(1) 设最大数、最小数为a(1） For i = 2 To n If max a(i) Then max = a(i) 求最大数 If max a(i) Then max = a(i) 求最小数 Next i p = (s - max - min) / (n - 2) Print 选手得分为:; p 第2题 方法1 Rem 计算方法: 诞生年代除以12,取余数.如果能整除, 余数视为零. Rem 按照下列数字表对应生肖动物: Rem 0 1 2 3 4 5 6 7 8 9 10 12 Rem 猴 鸡 狗 猪 鼠 牛 虎 兔 龙 蛇 马 羊 Dim NF%, num% Dim a() 定义生肖数组 a = Array(猴, 鸡, 狗, 猪, 鼠, 牛, 兔, 龙, 蛇, 马, 羊) NF = Val(InputBox(输入出生年份)) num = NF Mod 12 Print 出生年份生肖为： a(num) 第3题 方法1 Dim a(0 To 10) As Integer 定义a数组存放各分数段统计结果 n = Val(InputBox(输入学生人数)) For i = 1 To n 数组a赋值 score = Val(InputBox(输入学生成绩)) Print score; If score 60 Then a(5) = a(5) + 1 ElseIf score = 69 Then a(6) = a(6) + 1 ElseIf score = 79 Then a(7) = a(7) + 1 ElseIf score = 89 Then a(8) = a(8) + 1 ElseIf score = 100 Then a(9) = a(9) + 1 End If Next i Print Print 输出各分数段统计结果如下： Print 60人数; a(5) Print 60~69人数; a(6) Print 70~79人数; a(7) Print 80~89人数; a(8) Print 90~100人数; a