Visual Basic 6.0程序设计教程 第4版 习题答案 作者 罗朝盛 第4章 习题参考答案.docVIP

第4章 习题参考答案 一、判断题 题号 1 2 3 4 5 6 答案 √ √ × × √ √ 二、选择题 题号 1 2 3 答案 D A C 三、程序填空 1. Preserve a(n+1) a(i+1)=a(i) a(i+1)=m n+1或Ubound(a) 2. i-1 , Yes=1 , X , i+1 , t=a(i):a(i)=a(j):a(j)=t 3． Rnd*100 P=10 P = J P = 0 四、编写程序 1. Private Sub Command1_Click() Dim A() As Integer, N As Integer Dim i As Integer, M As Integer, t As Integer, k As Integer N = Val(InputBox(请输入数组的大小N=?)) M = Val(InputBox(请输入移位次数M=?)) 输入循环次数的大小 If N = 0 Then Exit Sub ReDim A(N - 1) Print 原始数组值 For i = 0 To N - 1 给数组赋值 A(i) = Int(Rnd * 100) Print A(i); Next i Print 移位 For i = 1 To M 循环体完成右移一位，循环完成右移j位 t = A(N - 1) For k = N - 1 To 1 Step -1 循环右移 A(k) = A(k - 1) Next k A(0) = t Next i 打印右移后的数组值 Print 循环右移 M 位后的数组值 For i = 0 To N - 1 Print A(i); Next i Print End Sub 2. Const NM = 100 Private Sub Command1_Click() Dim a(1 To NM) As Single, b(1 To NM) As Integer, max As Integer Dim i As Integer, j As Integer, k As Integer, t As Integer For i = 1 To NM 输入100个数值 a(i) = Val(InputBox(请输入a( i ) 的值)) If Int(a(i)) = a(i) Then 判断是否为整数 k = k + 1 整数个数加1 b(k) = a(i) 将这个整数存放到数组B End If Next i 选择排择 For i = 1 To k - 1 max = i For j = i + 1 To k If b(max) b(j) Then max = j Next j If max i Then t = b(max): b(max) = b(i): b(i) = t End If Next i 打印输出 For i = 1 To k Print b(i); If i Mod 5 = 0 Then Print Next i End Sub 3. Private Sub Command1_Click() Dim a() As Integer Dim n%, i%, j% n = Val(InputBox(输入一个整数n=?)) ReDim a(n) Form1.Cls Randomize Print 产生的 n 个随机整数: For i = 1 To n a(i) = Int(Rnd * 21) - 10 Print a(i);