2010年上海市高等学校计算机等级考试模拟卷
- 格式：docx
- 大小：127.81 KB
- 文档页数：18
2010年上海市高等学校计算机
等级考试模拟卷2010年上海市高等学校计算机等级考试模拟卷
二级VB. NET程序设计 （C卷）
（本试卷考试时间 120 分饼 一、单选题（本大题15道小题，每小题1 分，共15分），从下面题目给出的A、B、C、D 四个可供选择的答案中选择一个正确答案。
1. 如果在实验课上进行程序调试，运行时遇到
意外出错，最有效的做法是：看清系统错误原因
提不信息， __________ ,以确定错误原因。B
A. 单击“调试”按钮，然后查看当时变量值
C.举手请老师帮忙
D.上网查找原因
2. 要想从子过程调用后返回两个结果，下面子
过程语句说明合法的是 _____ o C
A. Sub f2 (ByVai n%, ByVai m%) B. Sub fl (ByRef n%, ByVai m%) C. Sub fl (ByRef n%, ByRef m%)
D. Sub fl (ByVai n%, ByRef m%)
3・为了使控件对象不响应用户的事件，需要 B. 单击“结束”按钮, 检查程序代码 __________ o A
A. 设置控件的Enabled属性为False
B. 设置控件的TabStop属性为False
C. 设置控件的TabStop属性为True
4.在用通用对话框控件建立打开文件对话框
时，在文件列表框中只允许显示txt和rtf类型
的文件，则Filter属性的正确设置是
_______ o D
A. 文本文件(.txt) | | *・ txt | | rtf | | *・ rtf
B. 文本文件(・ txt) (*・ txt) (rtf) (*・ rtf)
C. 文本文件*・txt | rtf*, rtf
D. 文本文件(.txt) | *・ txt | rtf | *・ rtf 5・设变量 x = 1, y = -1, a = 5, b = 一5, 则以下表达式的值为“真”的是
A. x+a <= b+y
B. x > 0 And y < 0
C・ a = b Or x a+b And Not （y 〈 b）6. 下列可作为 Visual Basic 变量名的是 。 A
A. 3S
B. Print
C. Select My Name
D. Select_1
7. 要向C盘根目录下的名为my.txt的顺序文
件中读出数据，应先使用 __________ 语句打开文
件。 B
A. FileOpen(1, "my.txt ", OpenMode.Input)
B. FileOpen(1, "c:\my.txt", OpenMode.Input)
C. FileOpen(1, " c:\my.txt", OpenMode.Output)
D. FileOpen(1, " c:\my.txt",
OpenMode.Append)
8. 假定焦点已经位于文本框 TextBox1 中，则 能够触发 KeyPress 事件的操作是 。 D
A. 单击鼠标
B. 双击文本框
C. 鼠标滑过文本框
D. 按下键盘上的某个键 9. 在自定义函数中，可以通过 _____________
返回值。 B
A. Sub
B. Function
C. 函数名
D. ByVal 参数
10. 在程序运行期间可以用 _____________ 方法
把图形装入窗体、图片框。 D
A. AutoSize
B. OpenFile
C. Picture
D. Image.FromFile
11. 单击滚动条控件的箭头按钮，滑块的移动 幅度与 属性设置有关。 B
A. LargeChange
B. SmallChange
C. Max
D. Min
12. 以下能判断是否到达文件尾的函数是 。 D A. BOF
B. LOC
C. LOF
D. EOF
13. 列表框 ListBox1 中已有 10 个列表项，要 显示列表框 ListBox1 最后一项，有两种表示法， 是正确的。 A
A. ListBox1.Items(ListBox1.Items.Count -
1)
ListBox1.Items (9)
B. ListBox1.Items(ListBox1.Items.Count)
ListBox1.Items(9)
C. ListBox1.Items(ListBox1.Items.Count -
1)
ListBox1.Items(10) D. ListBox1.Items(ListBox1.Items.Count)
ListBox1.Items(10)
14. 复选框对象如果被选中，它的
性值为 ________ 。 C
A. 1
B. 0
C. True
D. False
15. 已知最多有 10 个元素的数组
表示它的上界，有两种赋值语句，
确的。 B
A. n=UBound(a)
n=10
B. n=UBound(a)
n=9
C. n=UBound(a)+1
n=9
D. n=UBound(a)+1
n=10
二、程序填空题（本大题3道小题,每空2.5 分，共Checked属
a,用变量n
______ 是正 30分）。
1. 单击窗体读当前文件夹中的文本文件 data.txt数据，找出其中年龄最大者的年龄、姓 名和全部人数，输出并保存在当前文件夹的中 result .txt。
data.txt 的数据格式为:
王海涛,18 李林,20
Private Sub Form1_Click( …)Handles Me.Click
Dim Name$, Age%, maxName$, maxAge%, n%
n = 0
Name =""
maxName =""
maxAge = 0
FileOpen(1, "data.txt", OpenMode.Input)
Do While NOT EOF⑴
lnput(1. Name)
lnput(1. Age)
n = n + 1
If Age > maxAge Then
MaxAge=Age
maxName = Name
End If
Loop
FileClose⑴
Labell.text =" 最大年龄："& maxAge & vbCrLf & " 最大年龄姓名："& maxName & vbCrLf &
"人数："& n
FileOpen(2, "result.txt", ____ (3) ______ ) Print(2, maxName, maxAge, n) FileClose(2)
End Sub
2.单击按钮执行在输入样本串中查找字串， 删
除字串字符后输出至结果文本框。用复选框可选
择查找方式是否区分大小写
Private Sub Button1_Click( …)Handles Buttonl.Click
Dim ss$, s0$, lenO%, ms$, i%
ss = TextBoxl.Text
sO = TextBox2.Text
If ____ (1) ____ The n
sO = ____ (2) _____
End If
lenO = Len(sO)
For i = 1 To Len(ss) - lenO + 1
If CheckBoxl.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 Sub 3. 单击窗体执行将所输入的整数插入排序后 的原数组元素适当位置。
Function lnsert(ByRef s%(), ByVai key As Integer) 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.EventArgs) 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 &= vbCrLf End Sub
