初三_vb期末考试试卷+答案

九年级期末VB 考试试卷

班级：学号：姓名：

123456789101112131415

一、选择题（每题两分，共十五题）

1.下列叙述中正确的是 (c)

A. 只有窗体才是VB中的对象

B.只有控件才是VB中的对象

C. 窗体和控件都是VB中的对象

D.窗体和控件不是VB中的对象

2. 下列可以激活属性窗口的操作是(D)

A. 用鼠标双击窗体的任何部位

B.执行“工程”菜单中的“工具箱”命令

C. 按 Ctrl+F4 键

D.按F4键

3. 下列不能打开工具箱窗口的操作是(B)

A. 执行“视图”菜单中的“工具箱”命令

B.按 Alt+F8键

C. 单击工具栏上的“工具箱”按钮

D.按 Alt+V键，然后按 Alt+X键

4.假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先

应执行的操作是 (A)

A. 单击窗体上没有控件的地方

B.单击任一个控件

C. 不执行任何操作

D.双击窗体的标题栏

5. 为了把窗体上的某个控件变为活动的，应执行的操作是(C)

A. 单击窗体的边框

B.单击该控件的内部

C. 双击该控件

D.双击窗体

6. 确定一个控件在窗体上的位置的属性是(D)

A. Width 或 Height

B. Width和 Height

C. Top 或 Left

D. Top和 Left

7. 确定一个窗体或控件的大小的属性是(B)

A. Width 或 Height

B. Width和 Height

C. Top 或 Left

D. Top和 Left

8. 为了同时改变一个活动控件的高度和宽度，正确的操作是( B)

A. 拖拉控件 4 个角上的某个小方块

B.只能拖拉位于控件右下角的小方块

C. 只能拖拉位于控件左下角的小方块

D.不能同时改变控件的高度和宽度

A. '

B.:

C.\

D._

10.设 a=2,b=3,c=4,d=5, 下列表达式的值是 B a>b

AND c<=d OR 2*a>c

A.True

B. False

C. -1

D. 1

11.设 a=2,b=3,c=4,d=5, 下列表达式的值是 C

3>2*b OR a=c AND b<>c OR c>d

A.1

B. True

C.False

D.-1

12.设 a=2,b=3,c=4,d=5, 下列表达式的值是 D

NOT a<=c OR 4*c=b^2 AND b<>a+c

A.-1

B. 1

C. True

D.False

13.下列可作为 VB 的变量名的是 B

A.3*Dleta

B.PrintChar

C.Abs

D.ABπ

14.语句的 Print5*5\5/5的输出结果是B

A.5

B.25

C.0

D.1

15.设 a、b、 c 为整型变量，其值分别为1、 2、 3，以下程序段的输出结果是D

a=b:b=c:c=a

Print a;b;c

A.123

B.231

C.321

D.232

二填空题（每题 4 分，共 5 题）

1. 语句 Print"25+32=";25+32的输出结果是25+32=57。

2. 以下语句的输出结果是Beijing。

s$="China"

s$="Beijing"

Print s$

3. 以下语句的输出结果是3。

a%=3.14156

4. 以下程序段的输出结果是9 10 11。

x=8

Print x+1;x+2;x+3

5. 以下程序段的功结果是9。

x=72

y=sqr(x+9)

Print y

三编程题（ 3 题，共 50 分）

以下程序代码在窗体的单击事件过程（Form_Click)中编写，结果输出到窗体上。

1. 从键盘上输入 4 个数，编写程序，计算并输出这 4 个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均数。（15 分）

Dim a,b,c,d,sum as integer

Dim pj as single

A= val(inputbox(“请输入第一个数”, ”提示” ))

B= val(inputbox(“请输入第二个数”, ”提示” ))

C= val(inputbox(“请输入第三个数”, ”提示” ))

D= val(inputbox(“请输入第四个数”, ”提示” ))

Sum=a+b+c+d

Pj=sum/4

Print sum

Print pj

2.一位妇女在河边洗碗，邻居问：“家里来了多少客人？”她回答：“每两个客人合用一个菜碗，每三个

客人合用一个汤碗，每四个客人合用一个饭碗，共用了碗65 只。”问共来了多少客人？（15 分）X个客人

Dim a as ingeter

For a=12 to 260

If a/2+a/3+a/4=65 Then

Exit for

End If

Next a

Print a

3．编程计算：12+22+3 2+⋯⋯ +1002之和（ 20 分）

Dim a,b as integer

B=0

For a=1 to 100

B=b+c*c

Next a

Print b