2011年netA模拟题

2011年上海市高等学校计算机等级考试试卷 二级 VB.NET程序设计 （ A 卷）

（本试卷考试时间 120 分钟）

一、单选题 ( 本大题 15 道小题 ，每小题 1 分，共 15 分），从下面题目给出的A、B、C、D答案选1个。

1.当运行程序时，系统自动执行启动窗体的__________事件过程。 A.Load B.Click C.UnLoad D.GotFocus

2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是___________。 A.ListBox1.Clear()

B.ListBox1.Items.RemoveAt(4) C.ListBox1.Items.RemoveAt(\计算机\D.ListBox1.Items.Add(1, \打印机\

3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。 A.BackColor B.BorderStyle C.Back D.ForeColor

4.下列函数中，_________函数返回值是数值型的。 A.Chr B.Mid C.Replace D.Val

5.下面的过程定义语句中_________是不合法的。 A.Sub Sub1(ByVal n%) As Integer B.Sub Sub1(ByVal sub1%)

C.Function Sub1(ByVal n%) As Integer D.Function Sub1%(ByVal n%)

6.定义结构类型并声明变量如下： Structure Student Dim No As Integer Dim Name As String End Structure Dim s As Student 下列语句正确的是__________。

A.s={100001,\张三\张三\C.Student.Name=\张三\张三\

7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。

A.方法，事件 B.事件，方法 C.属性，方法 D.过程，事件

8.在过程A中定义了静态变量y。当调用过程A第一条语句开始，在退出过程A前，y的值为5。当下次再进入过程A时，y的值为_____。

A.5 B.0 C.不定值 D.出错

9.用户单击水平滚动条HScrollBar1两端的箭头（“>”或“<”）按钮，Value属性增加或减少的值为2，可通过语句： HScrollBar1._________ = 2来实现。 A.LargeChange B.Maximum C.SmallChange D. Minimum

10.要打开FontDialog1对话框选取字体属性来改变TextBox1的字体，下面_________语句组是正确的。

A.FontDialog1.Show()

B.FontDialog1.ShowDialog() D.FontDialog1.ShowDialog() TextBox1.Font= FontDialog1.Font

TextBox1.FontName= FontDialog1.Font TextBox1.FontName= FontDialog1.Font C.FontDialog1.Show()

11.在多分支结构的Case子句中，判断字符变量 C 的值是“W”到“Y”之间的字母，以下写法中正确的是________。 A. Case \ B.Case C>=\C.Case W,X,Y

D. Case C=\12.下面________不属于VB的变量作用域。 A. 窗体/模块级变量 C. 局部变量

13.若要在一窗体内安排两组单选按钮，可用________控件加以分隔。 A. 框架 C. 标签

B. 文本框

D.菜单

B.外部变量 D.全局变量

TextBox1.Font= FontDialog1.Font

14.若用Dim a（10） As Integer 声明了数组a,以下语句中错误的是________。 A. a(10)=10

15.执行循环语句：

For i=1 To 10 Step 0

... Next

结果为________。 A.死循环 C.语法错误

B.循环体执行一次

D.循环体一次也不执行

B.a(10)=a(11)+10

D.a(10)=Lbound(a)

C. a(10)=a(1)+a(2)

二、程序填空题 ( 本大题 3 道小题 ，每空 2.5 分，共 30 分）。 1. 文本文件“D:\\score.txt”中存放着不超过100个学生的成绩，每行仅存放一个学生的成绩。程序打开该文件，逐个读入学生成绩，存放在数组score并显示在文本框TextBox1中，同时计算所有学生成绩合格率（大于等于60分为合格），并显示在标签上，如下图所示，请完成填空。

【程序】

Sub Form1_Click(…) Handles MyBase.Click

Dim score(100) As Integer, n As Integer, m As Integer FileOpen(1, \ n = 0 '总人数

m = 0 '成绩合格人数 TextBox1.Text = \

Do While Not （1） n = n + 1

score(n) = Val( （2） )

TextBox1.Text = TextBox1.Text & score(n) & vbCrLf If score(n) （3） Then

m = m + 1 '合格人数计数 End If Loop

Label1.Text = \合格率为\ FileClose(1)

End Sub

2. 产生10个不重复的2位随机整数。算法思想是先产生一个随机数tmp，然后在已经存放着不重复随机数的数组a中，查找tmp是否已经存在。如果已经存在，则丢弃，再重新产生；反之，就将tmp存放入数组a中。

【程序】

Sub Form1_Click(…) Handles MyBase.Click

Dim tmp As Integer, i As Integer, j As Integer Dim a(10) As Integer

Dim isExist As Boolean ' 重复随机数标志 Randomize()

Label1.Text = \不重复的2位随机整数：\ i = 0

Do While (i < （1） ) isExist = False

tmp = Int(Rnd() * （2） )

For j = 1 To i '找重复的随机数 If a(j) = tmp Then

isExist = （3） Exit For End If Next j

If Not isExist Then '找到了一个不重复的随机数 i = i + 1

a(i) = （4）

Label1.Text = Label1.Text + Str(tmp) + \字符处理 End If Loop End Sub

3. 现求1000~9999之间的零巧数。

零巧数：一个百位数字为0的四位数，如果去掉这个零得到三位数的9倍等于原数。

例如2025的百位数是0，去掉这个0，得到225。因为225 * 9 =2025，所以2025是零巧数。 函数Shu功能是判断是否是零巧数。其返回值：如果是零巧数，则返回三位零巧数；否则返回-1。

列表框1显示零巧数，列表框2显示对应的三位数。

【程序】

Sub Button1_Click(…) Handles Button1.Click Dim i%, n%

For i = 1000 To 9999 n = （1）

If n > 0 Then '若是零巧数，则添加 ListBox1.Items.Add(i) ListBox2. （2） End If Next i

End Sub

Function Shu(ByVal n%) As Integer Dim k%, m% Shu = -1

k = Mid(n, 2, 1) '获取百位数 If （3） Then

m = Mid(n, 1, 1) & （4）

If m * 9 = n Then Shu = （5） End If

End Function

三、程序调试题(共20分，每错2.5分，第1题有2处错，第2题有3处错，第3题有3处错) 启动解决方案文件\C:\\ks\\改错A.sln\，请调试改正，并按原文件名和位置保存。正确结果见样例\c:\\样张\\改错样例A.exe\。

改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记 ' ***********。

本文来源：https://www.bwwdw.com/article/68lf.html