《2010年上海市高等学校计算机等级考试模拟卷》由会员分享，可在线阅读，更多相关《2010年上海市高等学校计算机等级考试模拟卷（9页珍藏版）》请在金锄头文库上搜索。
1、2010年上海市高等学校计算机等级考试模拟卷二级 VB.NET程序设计 （ C 卷）（本试卷考试时间 120 分钟） 一、单选题 ( 本大题 15 道小题 ，每小题 1 分，共 15 分），从下面题目给出的A、B、C、D四个可供选择的答案中选择一个正确答案。1. 如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，_，以确定错误原因。 BA. 单击“调试”按钮，然后查看当时变量值B. 单击“结束”按钮，检查程序代码C. 举手请老师帮忙D. 上网查找原因2. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是_。 CA. Sub f2(ByVal n
2、%,ByVal m%)B. Sub f1(ByRef n%, ByVal m%)C. Sub f1(ByRef n%, ByRef m%)D. Sub f1(ByVal n%, ByRef m%)3. 为了使控件对象不响应用户的事件，需要_。 AA. 设置控件的Enabled属性为FalseB. 设置控件的TabStop属性为FalseC. 设置控件的TabStop属性为TrueD. 设置控件的TabIndex属性为04. 在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_。 DA. 文本文件(.txt)|*.txt|rt
3、f|*.rtfB. 文本文件(.txt)(*.txt)(rtf)(*.rtf)C. 文本文件*.txt|rtf*.rtfD. 文本文件(.txt)|*.txt|rtf|*.rtf5. 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_。 BA. x+a 0 And y 0C. a = b Or x a+b And Not (y maxAge Then MaxAge=Age maxName = Name End If Loop FileClose(1) Label1.text = 最大年龄： & maxAge & vbCrLf & 最大年龄姓名： & max
4、Name & vbCrLf & 人数： & n FileOpen(2, result.txt,_(3)_) Print(2, maxName, maxAge, n) FileClose(2)End Sub2. 单击按钮执行在输入样本串中查找字串，删除字串字符后输出至结果文本框。用复选框可选择查找方式是否区分大小写。Private Sub Button1_Click() Handles Button1.Click Dim ss$, s0$, len0%, ms$, i% ss = TextBox1.Text s0 = TextBox2.Text If _(1)_Then s0 = _(2)_ E
5、nd If len0 = Len(s0) For i = 1 To Len(ss) - len0 + 1 ms = _(3)_ If CheckBox1.Checked Then ms = UCase(ms) End If If (ms = s0) Then ss = Mid(ss, 1, i - 1) + Mid(ss, i + len0) i = i - 1 End If Next i TextBox3.Text = _(4)_End Sub3. 单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。Function Insert(ByRef s%(), ByVal key As In
6、teger) As Integer Dim k%, i%, j% k = _(1)_ For i = 0 To UBound(s) If key s(i) Then k = i _(2)_ End If Next i ReDim Preserve s(UBound(s) + 1) For j = UBound(s) - 1 To k Step -1 _(3)_ Next j s(k) = key Insert = UBound(s) End Function Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.Ev
7、entArgs) Handles Me.Click Dim i%, p%, m% Dim a%() = 1, 3, 6, 8, 9, 13, 17, 20, 25 Label1.Text = For i = 0 To UBound(a) _(4)_ Next i Label1.Text &= vbCrLf p = InputBox(请输入要插入的数：) m = _(5)_ For i = 0 To m Label1.Text &= a(i) & Next i Label1.Text &= vbCrLfEnd Sub三、程序调试题(共20分，每错2.5分，第1题有2处错，第2题有3处错，第3题有3处错)启动解决方案文件C:ks改错.sln，请调试改正，并按原文件名和位置保存。正确结果见样例c:样张改错样例.exe。改错方
