【免费下载】上海市计算机等级考试 二级 VB 真题

2010年上海市高等学校计算机等级考试二级 VB A卷单选题：

1.设A="12345678"，则表达式Val(Left(A,4)+Mid(A,4,2))+9的值是_________c___。_

a.123456

b.123465

c.123454

d.1234459

2. 设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是_________b___。__

a.x+a<=b+y

b.x>0 And y<0

c.a=b Or x

d.x+y >a+b And Not (y

3. 下列可作为Visual Basic 变量名的是______d______。_

a.3S

b.Print

c.Select My Name

d.Select_1

4.以下Case语句中错误的是________c___。____

a.Case 1 To 9

b.Case Is > 9

c.Case Is > 7 And Is <33

d.Case 3 , 5 , Is > 7

5. 如果要使某句代码不起作用，可以在该代码前加上______d______。______

a.Echo

b.冒号

c.双撇号

d.单撇号

6. 假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是______d______。___

a.单击鼠标

b.双击文本框

c.鼠标滑过文本框

d.按下键盘上的某个键

7. 在自定义函数中，可以通过______c______返回值。____

a.Sub

b.Function

c.函数名

d.ByVal参数

8. 若要删除列表框中指定索引位置的项目，可使用______b______方法来实现。______

a.Del

b.RemoveItem

c.Clear

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

1.改错题1

'10位学生参加2门课程的考试，在图形框内显示每个学生的2门课程的平均成绩

'利用Rnd产生0~100分数，程序中有3个错误，请调试改正。

Private Sub Command1_Click()

Dim aver!,i%,j%,m%

Picture1.Cls

Picture1.Print "成绩1 成绩2 平均"

For i = 1 To 10

aver = 1

For j = 1 To 2

m = Int(Rnd * 100) ' 产生0~100分数

Picture1.Print m & String(7 - Len(str(m))," "); ' 显示成绩,控制距离

aver = aver & m ' 成绩累加

Next j

aver = aver / 2

Picture1.Print Format(aver, "00.00") ' 显示平均成绩

Next i

End Sub

2.改错题2

' 本程序段用数字1~9绘制一个倒三角形（17个9,15个8……），结果显示在Label1。

' 程序中有2个错误，请调试改正

Private Sub Command1_Click()

Dim i%, j%

lable1.Caption = vbCrLf ' vbCrLf回车换行

For i = 9 To 1 Step -1

Label1.Caption = Label1.Caption & Space(20 - 2 * i) ' Space控制距离

For j = 1 To i - 1 ' 产生一行上的数字

Label1.Caption = Label1.Caption & Str(i)

Next

Label1.Caption = Label1.Caption & vbCrLf

Next i

End Sub

五、编程题（36分）

1．在Form1窗体上放置文本框Text1、Text2、时钟控件和命令按钮。设置按钮Caption为"暂停"，Enabled为False；设置Text2为多行；其他说明性标签如样例。按下表建立菜单。