2012年上海市高等学校计算机等级考试试卷
二级 VB.NET程序设计（ A 卷）
（本试卷考试时间 120 分钟）
一、单选题 ( 本大题 10 道小题，每小题 1.5 分，共 15 分），从下面题目给出的
A、B、C、D四个可供选择的答案中选择一个正确答案。
1.当运行程序时，系统自动执行启动窗体的__________事件过程。答案：A
A.Load
B.Click
2019高考满分作文C.UnLoad
D.GotFocus
2.已知列表框（ListBox1）中有10个数据项，对列表框操作正确的语句是___________。
答案：B
A.ListBox1.Clear()
B.ListBox1.Items.RemoveAt(4)
C.ListBox1.Items.RemoveAt("计算机")
D.ListBox1.Items.Add(1, "打印机")
3.若要使标签控件显示时不覆盖窗体的背景图案，要对___________ 属性进行设置。答案：A
A.BackColor
B.BorderStyle
C.Back
D.ForeColor
4.下列函数中，_________函数返回值是数值型的。答案：D
A.Chr
B.Mid
C.Replace
D.Val
5.下面的过程定义语句中_________是不合法的。
答案：A
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
下列语句正确的是__________。
答案：D
A.s={100001,"张三"}
B.Name="张三"
C.Student.Name="张三"
D.s.Name="张三"
7.VB程序设计中，响应对象的外部动作称为______ , 而对象可以执行的动作或对象本身的行为则称为______。答案：B
A.方法，事件
B.事件，方法
C.属性，方法
D.过程，事件
8.在过程A中定义了静态变量y。当调用过程A第一条语句开始，在退出过程A前，y的值为5。当下次再进入过程A时，y的值为_____。答案：A
A.5
B.0
C.不定值
D.出错
9.用户单击水平滚动条HScrollBar1两端的箭头（“>”或“<”）按钮，Value属性增加或减少的值为2，可通过语句： HScrollBar1._________ = 2来实现。答案：C
A.LargeChange
B.Maximum
C.SmallChange
D.Minimum
10.要打开FontDialog1对话框选取字体属性来改变TextBox1的字体，下面_________语句组是正确的。答案：D
A.FontDialog1.Show()
TextBox1.FontName= FontDialog1.Font
B.FontDialog1.ShowDialog()
TextBox1.FontName= FontDialog1.Font
C.FontDialog1.Show()
TextBox1.Font= FontDialog1.Font
中国化妆品品牌排名D.FontDialog1.ShowDialog()
新驾校考试规则TextBox1.Font= FontDialog1.Font
二、程序填空题 ( 本大题 2 道小题，每空 2.5 分，共 22.5 分）。
1. 产生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
1）：【10】【=9】
2）：【90 + 10】
3）：【True】
4）：【tmp】
2. 求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)
（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
1）：【Shu(i)】
2）：【ListBox2.Items.Add(n)】
3）：【k = 0】
4）：【Mid(n, 3, 2)】
5）：【m】
三、操作题
三、程序调试题(共30分，每改正一错得3分，第1题有3处错，第2题有3处错，第3题有4处错)
启动解决方案文件"C:\ks\改错A.sln"，请调试改正，并按原文件名和位置保存。正确结果见样例"c:\样张\改错样例A.exe"。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句，所修改的语句必须在句尾加上注释标记'***********。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论