vb6.0第六章 习题解答.docVIP

习题六 一、选择题答案 Aadcc dc 二、填空题答案 1、a(I,j)+b(I,j) 2、下标越界 3、6 4、1 2 2 4 3 6 第六章选择题部分解析 3、sum表示a数组各元素的和 X表示a数组元素和的平均值 最后打印出a数组中大于平均值的元素 Sum=1+2+3+4+5=15，x=3 大于3的有4，5 5、倒着看 文本框中显示什么？ 答：显示的是array1（1，3）+array2（2，3）的和 接着往前看程序 发现array1（i，j）=i+j 所以array1（1，3）=1+3=4 Array2(2,3)=2+3=5 所以4+5=9 二、填空题解析 2、x数组最大元素是x（6） 退出for循环时，i=7 然后print x（i）相当于print x（7） 但是没有x（7）这个元素，超出最大下标了。 若把print x（i）改为print x（a）则值是36 第六章 编程题 1、 Private Sub Form_Click() Dim a(1 To 20) As Integer, i As Integer Dim j As Integer j = 0 用来表示小于60的个数 Picture1.Print 产生的数组为: Picture1.Print Picture2.Print 其中小于60的元素有: Picture2.Print For i = 1 To 20 a(i) = Int(Rnd * 100 + 1) Picture1.Print a(i); If i Mod 10 = 0 Then Picture1.Print If a(i) 60 Then j = j + 1 Picture2.Print a(i); ; If j Mod 10 = 0 Then Picture2.Print End If Next i End Sub Private Sub Form_Load() Randomize End Sub 2、 Private Sub Form_Click() Dim a(1 To 10) As Integer Dim max As Integer, min As Integer, i As Integer For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) Picture1.Print a(i); If i Mod 5 = 0 Then Picture1.Print Next i max = a(1) min = a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) Next i Label1.Caption = 最大数为： max Label2.Caption = 最小数为： min End Sub Private Sub Form_Load() Randomize End Sub 3、 Dim a(1 To 20) As Integer Private Sub Command1_Click() Dim x As Integer, flag As Integer, i As Integer flag = 0 标志，表示数组中是否存在x x = InputBox(请输入x的值，为整数, 输入, 1) For i = 1 To 20 If x = a(i) Then flag = 1 flag改变，说明存在 Exit For End If Next i If flag = 1 Then Print 数组中存在 x Print 位置： i Else Print 数组中不存在 x End If End Sub Private Sub Form_Click() Dim i As Integer For i = 1 To 20 生成数组 a(i) = Int(Rnd * 100) 题目没要求，随便的范围 Next i