2021年江苏省高校计算机等级考试二级VB上机改错题题型与总结.docVIP

江苏省高校计算机等级考试二级VB上机改错题题型和总结 冠军：Byval被错误定义为Byref 真题：秋上机试卷06 真题：秋上机试卷04 真题：秋上机试卷06 真题：春上机试卷03 真题：秋上机试卷02 真题：秋上机试卷05 真题：春上机试卷01 真题：秋上机试卷03 真题：春上机试卷06 真题：秋上机试卷02 亚军：Redim后无Preserve 真题：秋上机试卷04 真题：秋上机试卷06 真题：秋上机试卷06 真题：秋上机试卷03 真题：秋上机试卷05 真题：秋上机试卷06（*有两个Redim语句） 真题：秋上机试卷05 真题：秋上机试卷06 季军：Exit结构混用 应该用Exit Sub、Exit Function而错用成Exit For、Exit Do 真题：秋上机试卷06 真题：春上机试卷07 真题：秋上机试卷04 真题：秋上机试卷02 真题：秋上机试卷06 应该用Exit For、Exit Do而错用成Exit Sub、Exit Function 真题：秋上机试卷06 初始值位置错 类型一 真题：秋上机试卷06 真题：秋上机试卷07 类型二 真题：春上机试卷06 真题：春上机试卷07 类型三 真题：秋上机试卷03 真题：春上机试卷04 Str→Cstr 真题：秋上机试卷05（*不用改例子） 真题：秋上机试卷06（*不用改例子） 真题：春上机试卷03 真题：秋上机试卷07 真题：春上机试卷06 真题：秋上机试卷02 连续整除\和求余Mod后Loop条件错 n0等→n=0（用于一个数中数字提取或进制转换） 真题：春上机试卷03 真题：秋上机试卷02 真题：春上机试卷04（*特殊情况：Until被改成While） n0等→n=1（用于相关一个数质因子分析） 真题：春上机试卷01 真题：秋上机试卷05 除号“/”和整除号“\” 真题：春上机试卷03 真题：秋上机试卷03 Or?And 真题：秋上机试卷03 真题：秋上机试卷05 真题：春上机试卷01 参数类型不符合错误 真题：春上机试卷07 真题：秋上机试卷07 真题：春上机试卷04 真题：秋上机试卷01 For-next起点等错 真题：秋上机试卷01 真题：春上机试卷01 真题：秋上机试卷03 Do-loop结束条件（非n0等→n=0） 真题：秋上机试卷01 真题：春上机试卷01 求gcd赋值错 真题：秋上机试卷06 真题：秋上机试卷05 If后条件错 真题：秋上机试卷02 真题：春上机试卷03 其它类型错误（省略） 自测真题 自测真题一 自测真题二 自测真题三 自测真题四 春上机试卷03 题目：本程序功效是：查找四位整数，它9倍恰好等于n反序数。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer Dim st As String Text1 = 结果是： vbCrLf For n = 1000 To 2400 k = 9 * n If nx(n) = k Then st = n -- k Text1 = Text1 st vbCrLf End If Next n End Sub Private Function nx(n As Integer) As Integer Dim i As Integer, sa As String Dim k As Integer i = 1 此处原题有错，不应该有这句话 Do k = n Mod 10 sa = sa Str(k) n = n /10 Loop While n 0 nx = sa End Function 秋上机试卷01 题目：本程序功效是: 随机生成一个有n个元素数组（n由InputBox函数输入），找出其中最大元素并将它删除，再输出删除后数组。 Option Explicit Option Base 1 Dim a() As Integer, n As Integer Private Sub Command1_Click() Dim i As Integer n =