期末模拟试题1及参考答案

VB期末模拟试题1

一、单项选择题（每题2分，共30分）

1．在设计应用程序时，可以查看到应用程序工程中所有组成部分的窗口是（）。

A、窗体设计器

B、代码编辑器窗口

C、属性窗口

D、工程资源管理器窗口

2．窗体的Load事件的触发时机是（）

A、用户单击窗体时

B、窗体被加载时

C、窗体显示之后

D、窗体被卸载时

3．与传统的程序设计语言相比，Visual Basic最突出的特点是（）

A、结构化程序设计

B、程序开发环境

C、事件驱动编程机制

D、程序调试技术

4．无论何种控件，共同具有的属性是（）。

A．Text属性B．Caption属性C．Name属性D．Autosize属性5．如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（）

A、Text.Mytext

B、Mytext.Text

C、Mytext.(Text)

D、Mytext*Text

6．按照变量的作用域可将变量划分为（）

A、公有、私有、系统

B、全局变量、模块级变量、过程级变量

C、动态、常数、静态

D、Public、Private、Protected

7．可获得字符的ASCII码的函数是（）。

A、Val

B、Fix

C、Asc

D、Chr

8．要退出Do…Loop循环，可使用的语句是（）。

A、Exit

B、Exit For

C、End Do

D、Exit Do

9．把数值型转换为字符串型需要使用的函数是（）。

A、Val

B、Str

C、Asc

D、Chr

10．关于语句行，下列说法正确的是（）。

A、一行只能写一条语句

B、一条语句可以分多行书写

C、每行的首字符必须大写

D、长度不能超过255个字符

11．设置对象的边框类型的属性是（）

A、Drawstyle

B、Borderstyle

C、DrawWidth

D、ScaleMode

12.为了清除图片框Picture1中的图形，应采取的正确方法是（）

A、选择图片框，然后按Del键

B、执行语句Picture1.Picture = LoadPicture("")

C、执行语句Picture1.Picture = ""

D、选择图片框，在属性窗口中选择Picture属性条，然后按回车键

13．要绘制不同形状的图形，需要设置Shape控件的（）属性

A、Shape

B、Borderstyle

C、FillStyle

D、Style

14．要绘制多种式样的直线，需要设置Line控件的（）属性

A、Shape

B、Borderstyle

C、FillStyle

D、Style

15．如果准备读文件，打开顺序文件”text.dat”的正确语句是（）

A、open "text.dat" For wrire As # 1

B、open "text.dat" For Binary As # 1

C、open "text.dat" For Input As # 1

D、open "text.dat" For Random As # 1

二、填空题（每题2分，共20分）

1．Winsock控件主要用来编制或UDP协议的通讯程序。

2．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则X轴的正向向右，Y轴的正向向。

3．图像框对象的Stretch属性设置为时，图像框可自动改变大小以适应其中的图形。

4．用Dim A(5,5)语句声明二维数组后，数组A的元素共有个。

5．设CurrentX=50,CurrentY=100，执行指令“Line(100,20)-Step(300,500)”后，CurrentY = 。

6．使用Hide方法会隐藏被调用的窗体，但是在调用Hide方法之后不会把窗体移出内存，被调用的窗体中的属性等已处于。

7．将下列数学式子写成Visual Basic运算表达式。

s

s

s-

-

-：。

a

)(

)

)(

(c

s

b

8．将1≤ x <12写成Visual Basic逻辑表达式。

9．设A=2，B=3，C=4，D=5。表达式Not A<=C Or 4*C = B^2 And B<>A+C的值为。

10．VB中的程序错误类型主要有编译错误、等三种。

三、阅读程序题（共25分）

阅读下列程序并写出程序运行结果

1．Private Sub Form_Click()

Static Sum As Integer

For I = 1 To 2

Sum = Sum + I

Next I

Print Sum

End Sub

点击窗体两次后，变量Sum的值是：

2．Private Sub Form_Click()

Dim a,c As Integer

For a=1 To 5

c=a+1

Print c

Next a

End Sub