改错题测试.docVIP

一、改错题 【题目】本程序是生成个位数分别是0、l、2、…9的十个三位随机整数，再按插入排序方法由大到小排序，并输出到列表框中。 Option Explicit Private Sub Command1_Click() Dim a(9) As Integer, x As Integer, k As Integer, i As Integer Do While i = 9 x = Int(Rnd * 900 + 100) k = x Mod 10 If a(k) = 0 Then a(k) = x i = i + 1 Text1 = Text1 Str(a(k)) End If Loop sort (a) ‘sort a For i = 0 To 9 List1.AddItem a(i) Next i End Sub Private Sub sort(a() As Integer) Dim x As Integer, i As Integer, j As Integer For i = 1 To UBound(a) x = a(i) j = i - 1 Do While j = 0 And x a(j) a(j) = a(j + 1) ‘a(j+1)=a(j) j = j - 1 If j 0 Then Exit Sub ‘Exit Do Loop If i j + 1 Then a(j + 1) = x End If Next i End Sub 二、改错题 【题目】本程序的功能是查找3位和4位的Armstrong数。若一个N位的正整数，其各位数字的N次方之和等于这个数本身。则这个数就是一个Armstrong数。 如：153=1^3+5^3+3^3，1634=1^4+6^4+3^4+4^。 Option Explicit Option Base 1 Private 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 I End Sub Private 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 = True End Sub 【要求】 1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可适当调整语句位置。 三、改错题 【题目】从10个各不相同的正整数中，剔除若干个数。使得保留下来的数中，任意两个数的和都不是平方数(所谓平方数就是该数等于某一个数的平方，例如4就是一个平方数)。