2011-2012学年度上期高中部期中

10级计算机专业《VB》试题

一、 判断题在正确的后面写T,错误的后面写F(2X10=20)

1、VB是一种传统的结构化设计语言（ ）

2、对象的属性只能在属性列表中为具体的对象设置属性（ ）

3、print语句有标准格式和紧凑格式两种输出格式，但两种格式不能混合使用（ ）

4、变量在使用前一般要预先声明，变量的类型用于识别变量在内存中德位置（ ）

5、unload语句的功能是结束正在运行的程序（ ）

6、在VB中，算术运算、字符运算、关系运算和布尔运算，其中布尔运算优先

级最高（ ）

7、在VB的事件过程中，private表示此过程只可以被本工程中的其他过程调用（ ）

8、在标准模块中用public声明全局变量，使变量在整个应用程序中有效（ ）

9、要退出for…next循环，可使用的语句是exit do ( )

10、下列程序运行的结果是-1 （ ）

x=2:y=1

if x*y<1 then y=y-1 else y=-1

print y-x>0

二、 填空（2X15=30 ）

1、 在VB中的常量分为两种，一种是一般常量和______________

2、 在VB对象的三要素中，把___________看作一个对象的性质，把____________看作

对象的响应，把_____________看作对象的动作

3、 VB中拥有多个窗体的程序可用___________语句窗体载入内存，用____________语句

从内存中删除指定窗体

4、 字符串常量由任何ASCII字符组成，在程序中，它必须由___________括起来

5、 在select case 结构中应至少包含一个_________子句

6、 在select case结构中，使用“to 表达式”来指定一个范围，必须把________的值写在前面

7、 产生100-200之间（含100和200）的随机数表达式___________________

8、 启动VB时，VB默认的工程类型是______________________

9、 x、y都小于z的VB表达式为______________________

10、VB中，工程文件、窗体文件的后缀分别是__________、____________

11、逻辑常量值为true或_________

三、计算（4X5=20）

1、（3+2）*7__________ 2、26\3mod2 _______________

3、int(2.6) ____________ 4、3*7\2 _______________

四、选择题（2X10=20）

1、下列关于FOR….NEXT语句的说法正确的是（ ）

A、循环变量、初值、终值和步长都必须为数值型

B、Step后的步长只能为正数

C、初值必须小于终值

D、初值必须大于终值

2、下述的说法哪种是VB的程序设计方法（ ）

A、面向对象，顺序驱动 B、面向过程，事件驱动

C、面向过程，顺序驱动 D、面向对象，事件驱动

3、当程序运行时，在窗体上单击鼠标，以下（ ）事件是窗体不会接受到的

A、 MouseDown B、MouseUp C、load D、Click

4、VB的三种工作模式是（ ）

A、编译、编辑与运行 B、设计、运行与中断

C、中断、打开与关闭 D、设计、编辑与编译

5、假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（ ）

A、Print 100 B、Picture1.print 100 C、print.Text1 D、Debug.print 25

6、下列可以为VB的变量名的是（ ）

A、4*Delta B、Alpha C、4ABC D、Ab

7、以下程序段的输出结果是（ ）

A=0

For j=1 to 15

a=a+(j mod 3)

Next j

Print a

A、0 B、15 C、90 D、120

8、设a=6,则执行x=IIF(a>5,-1,0)后，x的值为（ ）

A、5 B、6 C、0 D、-1

9、InputBox函数返回值的类型为（ ）

A、数值 B、字符串 C、变体 D、数值或字符串

10、数学式子sin25。写成VB表达式是（ ）

A、sin25 B、 sin(25) C、sin（25。） D、sin(25*3.14/180)

五、补全程序（2X10=20）

1、成绩等级评定：90分以上的是优秀，80-90的是良好，70-80的是一般，60-70的是及格

60分以下的是不及格。

Private sub command1-click()

Dim x as single

x=val(Text1.text)

select case ____________

case ____________

Text2.text=“优秀”

Case IS>80

____________________________

Case IS>70

Text2.text=“中等”

Case IS>60

Text2.text=“及格”

Case else

Text2.text=“不及格”

End select

End sub

2、以下程序是一个评分程序，有10名评委，去掉一个最高分和一个最低分，计算平均分

（设满分为100分）

Private sub command1-click()

Max=0:Min=100

For i=1 to 10

n=val(inputbox(“请输入分数：”))

if _____________________then Max=n

if______________________then Min=n

s=s+n

Next i

s=______________________________

P=s/8

Print “最高分：”；Max,“最低分：”；Min

Print “最后得分：”P

End sub

六、写出程序运行结果（2X5=10）

1、

Private sub Form-click()

For j=10 to 6 step -1

k=j

Next j

Print k;j

End sub

___________________________________________

2、写出程序段的运行结果

Private sub Form-click()

Dim s as long,x as integer

S=0

For x=1 to 10 step 2

S=s+x

next x

text1.text=s

End sub

____________________________