江苏省二级VB改错题真题解析.pptVIP

* 江苏省二级VB改错题解析 宿迁学院 计算机科学系 王学军 2008年（秋）01 本程序的功能：随机生成一个有n个元素的数组（n由InputBox函数输入），找出其中的最大元素并将它删除，再输出删除后的数组。 2008年（秋）01 Option Explicit Option Base 1 Dim a() As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer n = InputBox(请输入数组元素个数, , 10) ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1 = Text1 Str(a(i)) Next i Call Lookup(a) For i = 1 To UBound(a) Text2 = Text2 Str(a(i)) Next i End Sub Private Sub Lookup(a() As Integer) Dim Maxv As Integer, maxp As Integer, i As Integer Maxv = a(1): maxp = 1 For i = 2 To n If a(i) Maxv Then Maxv = a(i): maxp = i End If Next i Call move_f(a, maxp) End Subk Private Sub move_f(a() As Integer, k As Integer) Dim i As Integer For i = k+1 To UBound(a) a(i) = a(i + 1) Next i ReDim a(UBound(a) - 1) End Sub Preserve k to UBound(a)-1 2008年（秋）02 本程序的功能：查找80~150范围内的特殊十进制数，其特点是该十进制数对应的八进制数为回文数。例如，十进制数105对应的八进制数为151，151属于回文数，所以105就是符合要求的数。 2008年（秋）02 Option Explicit Private Sub Command1_Click() Dim i As Integer, hw As String, fg As Boolean Dim st As String For i = 80 To 150 fg = False Call hw8(i, hw, fg) If fg Then st = CStr(i) == hw O List1.AddItem st End If Next i End Sub Private Sub hw8(n As Integer, hw As String, f As Boolean) Dim k As Integer, st() As String * 1, i As Integer hw = Do k = k + 1 ReDim Preserve st(k) st(k) = n Mod 8 hw = st(k) hw n = n \ 8 Loop Until n 0 For i = 1 To UBound(st) / 2 If st(i) st(UBound(st) - i + 1) Then Exit For Next i f = True End Sub ByVal n n = 0 Exit Sub 2008年（秋）03 本程序的功能是将密文解密。密文中被非数字字符分隔的连续的数字是五进制数，每个五进制数对应一个明文字符的ASCII代码。例如，五进制数242对应的ASCII代码值是72，也就是字母“H”，密文本尾以非数字字符结束。 2008年（秋）03 Option Explicit Option Base 1 Private Sub Command1_Click() Dim mw As String, st As String, i As Integer Dim p As