2011秋VB上机考试总复习.doc

2011秋VB上机考试总复习第一部分 上机题型分析及解题技巧一、 改错题：常见的错误有三种：语法错误、编译错误与逻辑错误。A、 语法错误：系统以红色显示出错的语句。B、 编译错误：运行时，系统给出明确提示，如，“溢出”。C、 逻辑错误：代码使用错误、函数使用错误、语句位置错误等。查错方法：上机查找，通过系统给出的提示，一步一步修改错误。1、 解题技巧：A、 输入源代码，按要求保存好程序。B、 运行错误程序，找出编译错误，逐个修改错误。C、 读懂程序意思，理清程序思路。D、 设置断点，使用调试窗口。E、 熟悉常见的编译错误及产生原因。F、 熟悉常见的逻辑错误。2、 常见编译错误：A、 按地址调用时，参数类型不符。B、 溢出。C、 变量未定义。D、 无效的过程定义或参数。E、 类型不匹配。F、 需要对象。G、 结构型语句不完整。H、 声明重复。I、 下标越界。J、 对象的属性值不正确。K、 变量参数与数组参数不能互相传递。3、 常见逻辑错误：A、 语句位置错。B、 Str与CStr使用错。C、 按值传递与按地址传递用错。D、 ReDim语句中缺少Preserve。E、 循环条件错。F、 字符连接顺序错。G、 Exit语句用错。H、 赋值语句两端数据颠倒。I、 过程调用语句错。J、 整除运算写成除法运算。K、 形参数组前加了ByVal。L、 循环变量递减时，未加Step。M、 给函数名赋值，函数名后加了括号。N、 运算符使用错。O、 静态变量使用错。P、 函数类型定义错。Q、 循环变量控制错，导致下标越界。R、 变量数据类型定义错。S、 按值传递时，形参前漏了ByVal。4、 真题分析：4-1本程序的功能是：从随机生成的由3位数组成的数组中找出所有的升序数。所谓升序数，是指该数的各位数字自左向右右依次递增的整数，如134、278、489等。Private Sub Command1_Click() Dim A(30) As Integer, i As Integer, k As Integer For i = 1 To 30 A(i) = Int(900 * Rnd) + 100 Picture1.Print A(i); If i Mod 5 = 0 Then Picture1.Print Next i Picture1.Print 升序数: For i = 1 To 30 If SX(A) Then Picture1.Print A(i); k = k + 1 End If Next i If k = 0 Then Picture1.Print 无升序数 Picture1.PrintEnd SubPrivate Function SX(N As Integer) As Boolean Dim i As Integer Dim w1 As Integer, w2 As Integer For i = 2 To Len(Str(N) w1 = Mid(N, i - 1, 1) w2 = Mid(N, i, 1) If w1 = w2 Then Exit For Next i SX = TrueEnd Function参考答案：1将第11行改为：If SX（A（i）Then2将第22行改为：For i=2 To Len(CStr(N)3将第25行改为：If w1=w2 Then Exit Function4-2本程序的功能是：将一个字符串中的英文词汇提取出来并重组成正常的英文句子。说明：输入的字符串必须以非英文字符串结束。Option Base 1Private Sub Command1_Click() Dim st As String, words() As String, i As Integer st = LCase(Text1) Call choice(st, words) st = For i = 1 To UBound(words) st = st & words(i) & Next i st = st & words(i) & . Text2 = UCase(Left(st, 1) & Mid(st, 2)End SubPrivate Sub choice(s As String, ws() As String) Dim st As String * 1, i As Integer, k As Integer Dim p As String For i = 1 To Len(s) st = Mid(s, i, 1) k = k + 1 If st = a And st = z Then p = p & st ElseIf p Then ReDim ws(k) ws(k) = p p = End If Next iEnd Sub参考答案：1将第8行改为：For i=1 To UBound（words）-12将第23行改为：ReDim Preserve ws（k）3将第19行移到第22行与23行之间4-3本程序的功能是：找出1300-1500内符合以下条件的四位正整数：设四位正整数各位数字分别为a、b、c、d，要求：a+b=c+d。Private Sub Command1_Click() Dim ts(2) As Integer Dim i As Integer, j As Integer, f As Boolean, st As String For i = 1300 To 1500 Call sub1(i, f, ts) f = False If f Then st = i & For j = 1 To 2 st = st & ts(j) & Next j List1.AddItem st End If st = Next iEnd SubPrivate Function sum(a As Integer) Dim k As Integer Do k = a Mod 10 sum = sum + k a = a 10 Loop Until a 2 Then F = False Exit Sub End If If A(I) = 2 Then Sum = Sum + 1 Next I If Sum = 1 Then F = True Else F = FalseEnd Sub2-2编写程序，找出介于A、B之间的所有只有素数因子（1和自身除外）的数。例如，106只能被2和53整除，而2和53都是素数，所以106是符合要求的数。编程要求：1. 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 运行程序，在文本框A与B中输入指定的数据范围，单击“查找”按钮，将找出的满足条件的数显示在列表框中。单击“清除”按钮，清空文本框与列表框的内容，并将焦点置于文本框A中。单击“退出”按钮，结束程序运行。3. 程序中应定义一个名为Prime的函数过程，用于判断一个整数是否为素数。参考代码：Option Base 1Private Sub Command1_Click() Dim N As Integer, A As Integer, B As Integer, F() As Integer Dim I As Integer, flag As Boolean, S As String A = Text1: B = Text2 For N = A To B Erase F flag = False factor N, F, flag If flag Then S = N & 的素数因子是： For I = 1 To UBound(F) S = S & Str(F(I) Next I List1.AddItem S End If Next NEnd SubPrivate Sub Command2_Click() Text1 = Text2 = List1.Clear Text1.SetFocusEnd SubPrivate Sub Command3_Click() EndEnd SubPrivate Function prime(N As Integer) As Boolean Dim I As Integer For I = 2 To Sqr(N) If N Mod I = 0 Then Exit Function Next I prime = TrueEnd FunctionPrivate Sub factor(N As Integer, A() As Integer, flag As Boolean) Dim I As Integer, K As Integer For I = 2 To N / 2 If N Mod I = 0 Then If prime(I) Then K = K + 1 ReDim Preserve A(K) A(K) = I flag = True Else flag = False Exit Sub End If End If Next IEnd Sub第二部分 有关考试过程中的一些注意事项一、 关于考试时间与上机考试系统的使用：1、 考试时间：10月22日（星期六）2、 上机考试系统的使用：A、 运行“江苏省高校计算机等级考试（二级）”的快捷方式图标。B、 仔细阅读“考生须知”。C、 单击“进入正式考试”按钮，出现“登录”界面。D、 正确输入两遍准考证号，将自动出现考生姓名。E、 单击“确定”按钮，出现确认对话框。F、 单击“确定”按钮，进入考试系统。G、 启动VB系统，开始做题。H、 每做完一题，都要正确存盘。I、 确认做完后，单击“退出”按钮。二、 关于应试的一些建议：1、 认真复习：A、 弄懂常考的知识点B、 多做几套历年的真题。C、 先独立完成试题，再看答案。2、 不要轻易放弃：理论考试已经过去了，还