改错题测试.doc

一、改错题【题目】本程序是生成个位数分别是0、l、2、9的十个三位随机整数，再按插入排序方法由大到小排序，并输出到列表框中。Option ExplicitPrivate Sub Command1_Click() Dim a(9) As Integer, x As Integer, k As Integer, i As Integer Do While i = 0 And x a(j) a(j) = a(j + 1) a(j+1)=a(j) j = j - 1 If j j + 1 Then a(j + 1) = x End If Next iEnd Sub二、改错题【题目】本程序的功能是查找3位和4位的Armstrong数。若一个N位的正整数，其各位数字的N次方之和等于这个数本身。则这个数就是一个Armstrong数。如：153=13+53+33，1634=14+64+34+4。Option ExplicitOption Base 1Private Sub Command1_Click() Dim I As Integer, A() As Integer, f As Boolean, n As Integer Dim j As Integer, st As String st = 下移一行 For I = 153 To 9999 f = False Call Arms(I, f, A, n) If f Then st = st & I & = For j = 1 To UBound(A) - 1 st = st & A(j) & & n & + Next j st = st & A(j) & & n List1.AddItem st End If Next IEnd SubPrivate Sub Arms(k As Integer, f As Boolean, B() As Integer, n As Integer) ByVal k as Integer Dim I As Integer, Sum As Integer, M As Integer n = Len(Str(k)CStr(k) M = k ReDim B(n) For I = n To 1 Step -1 B(I) = k Mod 10 k = k 10 Next I For I = 1 To n Sum = Sum + B(I) n 计算各位数字的N次方之和 Next I If Sum = M Then f = TrueEnd Sub【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置。三、改错题【题目】从10个各不相同的正整数中，剔除若干个数。使得保留下来的数中，任意两个数的和都不是平方数(所谓平方数就是该数等于某一个数的平方，例如4就是一个平方数)。Option ExplicitOption Base 1Private Sub Command1_Click()Dim A(10) As Integer, I As Integer, J As Integer, P As Integer, K As IntegerDo While P = 10 P Then P = P + 1 A(P) = K Text1 = Text1 & Str(K) End IfLoopCall Delete(A, P)For I = 1 To P Text2 = Text2 & Str(A(I)Next IEnd SubPrivate Sub Delete(A() As Integer, P As Integer)Dim Idx As Integer, J As Integer, Sum As IntegerIdx = 2Do While Idx Idx - 1 ThenJIdx - 1 A(Idx) = A(P) P = P - 1 Else Idx = Idx + 1 End IfLoopEnd Sub【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置。四、改错题【题目】本程序的功能是：输入一个由正整数组成的数字串(各整数由逗号隔开，最后以#号结束)，从中找出所有是3的幂的数并显示在列表框中。Option ExplicitOption Base 1Private Sub Command1_C1ick() Dim S As String, ch As String, k As Integer Dim a() As Integer, t As Integer, i As Integer S = Text1 For i = 1 To Len(S) ch = Mid(S, i, 1) k = k + 1位置错 If ch , And ch # Then t = t * 10 + Val(ch) E1se ReDim Preserve a(k) a(k) = t t = 0 End If Next i For i = 1 To UBound(a) If Judge(a(i) Then List1.AddItem a(i) Next iEnd SubPrivate Function Judge(n As Integer) As BooleanByVal n As Integer Do While n 1 If n Mod 3 0 The