2023年上海市高等学校计算机等级考试模拟卷.doc

《2023年上海市高等学校计算机等级考试模拟卷.doc》由会员分享，可在线阅读，更多相关《2023年上海市高等学校计算机等级考试模拟卷.doc（13页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、2023年上海市高等学校计算机等级考试模拟卷二级 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题有

8、3处错)启动解决方案文献C:ks改错.sln，请调试改正，并按原文献名和位置保存。对的结果见样例c:样张改错样例.exe。改错方法：不能修改或重新定义变量，不允许增长或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 *。调试改错题1：输入18位身份证号码，通过第710位取出出生年，给出寄语。对1959（含）出生的人，寄语为步入中老年，请您注意身体！；对1960年代和1990年代出生的人，寄语均为60后和后要多沟通，避免代沟！; 对于19701989年出生的人，寄语为70、80后的青年，祝你工作顺利！；对于2023后出生的人，寄语为小朋友，祝你茁壮成长！; 其余判断为输入错误，清空

9、文本框并置焦点。 Private Sub Button1_Click() Handles Button1.Click Dim bthyear%, lbltx$ bthyear = Val(Mid(TextBox1.Text, 7, 4) Select Case bthyear Case Is =1960 and bthyear=1990 and bthyear 2023 lbltx = 小朋友，祝你茁壮成长！ Case Else lbltx = 输入错了吧？！请重新输入 TextBox1.Text = TextBox1.Focus() End Select Label1.Text = lblt

10、x End Sub调试改错题2： 产生隔行轮换显示字母和数字的菱形图案（规律如图）Private Sub Button2_Click() Handles Button2.Click Dim i%, j%, k% Label2.Text = For i = 0 To 14 If i = 7 Then k = i Else k = 14 - i End If Label2.Text &= Space(7 - k) If k Mod 2 Then For j = k To 3 * k Label2.Text &= Chr(66 + k) Next j Else For j = k To 2 * k

11、Label2.Text &= k Next j End If Label2.Text &= vbCrLf Next iEnd Sub调试改错题3:随机产生120个大写字符串，并随机产生一个大写字母分别填入两个文本框中，记录这个大写字母在该串中出现的次数。Private Sub Button3_Click() Handles Button3.Click Dim str1$, str2$, i%, j%, sum% TextBox2.Text = i = Int(Rnd() * 20 + 1) 产生120之间的随机整数 For j = 1 To i TextBox2.Text &= Chr(64

12、+ Int(Rnd() * 26 + 1) 随机产生大写字母字符串 Next TextBox3.Text = Chr(Int(Rnd() * 26 + 1) str1 = TextBox2.Text str2 = TextBox3.Text sum = 1 For j = 1 To i If Left(str1, j, 1) = str2 Then sum += 1 End If Next If sum 0 Then Label3.Text = str2 & 在字符串中出现了 & sum & 次。 Else Label3.Text = str2 & 在字符串中没有出现过 End IfEnd S

13、ub四、编程题（35分）1在C:KS 目录下新建项目，解决方案文献为bct0.sln。2参见样例c:样张编程题样例.exe，在Form1窗体上放置两个列表框。建立如下菜单：菜单项备注应用一级菜单产生二级菜单筛选二级菜单-分隔线结束二级菜单绘图一级菜单3单击菜单产生随机产生10个大写字母，填入ListBox1中。单击菜单筛选将列表框1中K以后（含K，ASCII码值为75）的字母选出，填入ListBox2中。4单击绘图菜单项时，显示窗体2；单击结束菜单项时，结束程序的运营。5在窗体2上单击绘图命令按钮，设立画布原点（x0,y0) 为 (200,100),按以下公式绘制，当Y0为红色图形，Y0为蓝色图形，其中40为Y轴的显示放大倍数、20为X轴的放大倍数，t= -33： x = x0+ t * 20 y = y0+ Sin(t) * 40 （提醒：函数图形通过计算Y的值，画垂直于X轴的直线显示）单击返回命令按钮则关闭窗体2，返回窗体1。