Visual Basic程序设计基础 第2版 教育部职业教育与成人教育司推荐教材 习题答案 作者 杜秋华 第5章 习题参考答案.docVIP

选择题 定义一个数组Dim s(12) As Integer，该数组共有 C 个元素。 A．11 B．．．．．．Varient,a As Integer s=Array(1,2,3,4,5) a=s(3) 则a的值为 D 。 A．1 B．．．．Variant Dim sadd as Double Dim i As Integer s=Array(1,2,3,4,5,6) For i = 0 To 5 sadd = sadd + a(i) Next i 补充代码，以实现在数组中查找第一个负数出现的位置。 Dim s() As Variant Dim i as Integer,a As Integer s=Array(2,8,-3,5,-4,6) For i = 0 To 5 If a(i)0 Then a=i Exit For End If Next i 编程题 由输入对话框按顺序输入n个元素值，然后按由大到小的顺序排列数组。 参考代码： Dim mya As String Dim i, j, k, a As Integer Dim s(1 To 20), t As Double a = 1 i = 1 Do While a = 1 mya = InputBox(请输入第 Str(i) 个元素值，按取消键退出数据的输入, _ 数据输入窗口) If mya = Then 单击“取消”按钮，完成数组元素的输入 a = 0 Exit Do End If s(i) = Val(mya) i = i + 1 Loop Select 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 j End Select Print Print 从小到大排序后：; For j = 1 To i - 1 Print s(j); Next 在窗体上显示如图5-8所示的数组。提示：需定义1个5行、5列的二维数组，数组元素的通式为s(i,j)=i+j，其中i为行号，j为列号。 参考代码： Dim s(4, 4) As Integer, i As Integer, j As Integer For i = 0 To 4 For j = 0 To 4 s(i, j) = i + j Next j Next i For i = 0 To 4 For j = 0 To i Print s(i, j); Next j Print Next i End Sub