第5章 习题参考答案.doc

一、 选择题1. 定义一个数组Dim s(12) As Integer，该数组共有 C 个元素。A11B12C13D不能确定2. 定义一个数组Dim s(3 To12) As Integer，该数组共有 D 个元素。A11 B12 C13 D93. 定义一个数组Dim s(3 To12) As Integer，以下元素引用正确的是 C 。As(0) Bs(1)Cs(5) Ds(13)4. 执行以下语句：Dim s() As Varient,a As Integers=Array(1,2,3,4,5)a=s(3)则a的值为 D 。A1 B2 C3 D45. 定义一个数组Dim s(3,12) As Integer，以元素引用正确的是 D 。As(4,10) Bs( 2,13) Cs(4,13) Ds(2,10)二、 填空题6. 补充代码，以实现数组s中所有元素求和。Dim s() As VariantDim sadd as DoubleDim i As Integers=Array(1,2,3,4,5,6)For i = 0 To 5 sadd = sadd + a(i) Next i7. 补充代码，以实现在数组中查找第一个负数出现的位置。Dim s() As VariantDim i as Integer,a As Integers=Array(2,8,-3,5,-4,6)For i = 0 To 5 If a(i)0 Then a=i Exit For End IfNext i三、 编程题1. 由输入对话框按顺序输入n个元素值，然后按由大到小的顺序排列数组。参考代码：Dim mya As StringDim i, j, k, a As IntegerDim s(1 To 20), t As Doublea = 1i = 1Do While a = 1mya = InputBox(请输入第 & Str(i) & 个元素值，按取消键退出数据的输入, _ 数据输入窗口)If mya = Then 单击“取消”按钮，完成数组元素的输入 a = 0 Exit DoEnd Ifs(i) = Val(mya)i = i + 1LoopSelect Case i Case 0 Print 无数组元素输入 Case 1 Print 你输入的数组为: & s(i - 1) Print 最大值和最小值都为 & s(i - 1) Case Else Print 你输入的数组为:; For j = 1 To i - 1 Print s(j); Next For j = 1 To i - 1 For k = 1 To i - 1 - j If s(k) s(k + 1) Then t = s(k) s(k) = s(k + 1) s(k + 1) = t End If Next k Next jEnd SelectPrintPrint 从小到大排序后：;For j = 1 To i - 1 Print s(j);Next2. 在窗体上显示如图5-8所示的数组。提示：需定义1个5行、5列的二维数组，数组元素的通式为s(i,j)=i+j，其中i为行号，j为列号。参考代码：Dim s(4, 4) As Integer, i As Integer, j As IntegerFor i = 0 To 4 For j = 0 To 4 s(i, j) = i + jNext j