上机题4.docVIP

改错题： 【题目】本程序的功能是从给定的数中，找出互质的数对。所谓互质，是指两个数的最大公约数为1.例如，在给定的数“28，45，32，57，63，82”中，28和45就是互质数对之一。本题程序界面如图所示。 Option Explicit Private Sub Command1_Click() Dim a() As Integer, i As Integer, n As Integer Dim f As Boolean, st As String, k As Integer st = RTrim(Text1) Do n = InStr(st, ,) k = k + 1 ReDim a(k) If n 0 Then a(k) = Left(st, n - 1) st = Right(st, Len(st) - n) Else a(k) = st End If Loop Until n = 0 For i = 1 To UBound(a) - 1 f = False For n = i + 1 To UBound(a) Call hz(a(i), a(n), f) If f Then List1.AddItem ( a(i) , a(n) ) Next n Next i End Sub Private Sub hz(a As Integer, ByVal b As Integer, f As Boolean) Dim r As Integer Do r = a Mod b a = b b = r Loop Until r = 0 If a = 1 Then f = True End Sub 错误：1）ReDim a(k)改成ReDim Preserve a(k) 2）f = False应该在Call hz(a(i), a(n), f)语句之前 3）Private Sub hz(ByVal a As Integer, ByVal b As Integer, f As Boolean)改成Private Sub hz(ByVal a As Integer, ByVal b As Integer, f As Boolean) 编程题： 【题目】编写程序，随机生成20个10~20之间的整数，统计其中每个不同整数出现的次数。 注：程序中至少要用一个通用过程。 参考答案： Option Explicit Option Base 1 Private Sub Command1_Click() Dim a(20) As Integer, i As Integer, b(10 To 20) As Integer For i = 1 To 20 a(i) = Int(11 * Rnd) + 10 Text1 = Text1 Right( a(i), 2) Next i List1.AddItem 数据 出现次数 Call compare(a, b) End Sub Private Sub compare(a() As Integer, b() As Integer) Dim i As Integer For i = 1 To UBound(a) b(a(i)) = b(a(i)) + 1 Next i For i = 10 To 20 If b(i) 0 Then List1.AddItem i b(i) End If Next i End Sub 改错题: 【题目】下列程序的功能是：单击“数组生成”按钮，则利用随机函数生成一个元素均为两位正整数的5×5的二维数组，并且在图片框1中；单击“处理”按钮，则调整数组各行的顺序最后显示在图片框2中。改错时，不得增加或删除语句，但可适当调整语句位置。 Option Explicit 2 Option Base 1 3 Private Sub Command1_Click() 4 Dim A(5, 6) As Integer 5 Dim I As Integer, J As Integer, Sum As Inte