Visual Basic程序设计期末综合练习

Visual Basic程序设计期末综合练习

期末综合练习一

一、单项选择题 1．如果要在文本框中键入字符时，只显示某个字符，如星号（*）,应设置文本框的（ ）属性。

A．Caption B．PasswordChar C．Text D．Locked 2．在Visual Basic中，程序执行的顺序是（ ）。

A．从主程序开始执行 B．由代码行的顺序决定 C．由事件驱动 D．按模块顺序执行 3．MsgBox函数的返回值的数据类型是（ ）。 A．字符串 B．日期型 C．逻辑型 D．整型 4．后缀为.bas的文件表示（ ）。

A．类模块文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件

5．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（ ）属性设置就有效。

A．MaxButton B．BorderSyle

C．Width D．MinButton 6．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把（ ）指定为启动窗体。

A．不包含任何控件的窗体 B．设计时的第一个窗体 C．最后一个添加的窗体 D．命名为Frm1的窗体 7．VB程序中通常不会产生错误提示的是（ ）。 A．编译错误 B．实时错误 C．运行时错误 D．逻辑错误

8．应用程序打包后，其包文件的后缀为（ ）。

A．.exe B．.cab C．.txt D．.ocx

9．要设置命令按钮的背景图形，必须设置的两个属性是（ ）。 A．Style和Picture B．Style和Icon C．Caption和Picture D．Value和Icon

10．当运行程序时，系统自动执行启动窗体的（ ）事件过程。 A．Load B．Unload

C．Click D．GotFocus 11．下列关于变量的说法不正确的是（ ）。

A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量 B．局部变量在声明它的过程执行完毕后就被释放了

C．静态局部变量是在过程中用Static语句声明的

1

D．局部变量的作用域仅限于声明它的过程

12．设窗体的名称为Form1，则在程序运行过程中，单击窗体时，被执行的事件过程的名称是（ ）。

A．Form1_Click() B. Form1_DbClick() C．Form_Click() D．Form_DbClick()

13．如下数组声明语句，正确的是（ ）。

A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer C．Dim a(n,n) As Integer D．Dim a(3 4) As Integer 14．能够改变标签（Label）控件显示标题的属性是（ ）。

A．Name B．Caption C．Text D．Click

15．若使图像框Image控件自动适应其中的图形大小，应（ ）。

A．将控件的 AutoSize属性设为True B ．将控件的 AutoSize属性设为False C．将控件的 Stretche属性设为True D．将控件的 Stretche属性设为False 16．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ ）

A．Help B．F10 C． F1 D．Enter

17．执行Form1.Scale (-14, 14)-(14, -14)语句后，Form1窗体坐标系x轴和y轴的正方向是（ ）。

A．向左和向下 B．向右和向上

C．向左和向上 D．向右和向下

18．Visual Basic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（ ）。

A．设计模式 B．执行模式 C．中断模式 D．编写代码模式

19．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（ ）

A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Interval=0且Enabled=False D．Enabled=False 且Visible=False 20．以下叙述中正确的是（ ）。

A．窗体的Name属性的值是显示在窗体标题栏中的文本 B．对象的Name属性值可以为空

C．可以在运行期间改变对象的Name属性的值

D．窗体的Name属性指定窗体的名称，用来标识一个窗体

21．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（ ）。 A．Execute B．CommandType C．Open D．ActiveConnection

22．在设计动画时，用时钟控件来控制动画速度的属性是（ ） A．Enabled B．Interval C．Timer D．Move 23．要发送数据，通称使用Winsock控件的（ ）。

2

A．Accept方法 B．Listen方法 C．SendData方法 D．GetDate方法

24．在VB中，下列变量名不合法的是（ ）。

A．take_1 B．take C．take-1 D．take_1_2 25．用来从数据库表中删除记录的SQL命令是（ ）。 A．DELETE B．SELECT C．UPDATE D．WHERE

26．用于设置在文本框中显示字符的属性是（ ）。 A．AutoSizi B．Passwordchar C．MultiLine D．ScrollBars 27．不属于VB数据库引擎的是（ ）。

A．ODBC B．BDE C．Jet引擎 D．OLE DB 28．确定一个控件在窗体上的位置的属性是（ ）。

A．Width或Height B．Width和Height C．Top或Left D．Top和Left 29．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）

A．Tag B．Caption C．Index D．没有参数 30．下列赋值语句正确的是（ ）。

A．a = b + c B．b + c = a C．-b = a D．4 = a + b

二、填空题

1．在VB中想获得帮助，需要按的键是 ；要设置断点需要按 键。 2. Dim s As String，则运行时变量s的初始值是 。 3．窗体文件和工程文件的扩展名分别是 和 。

4．定时器（Timer）控件可识别的事件是 ，发生该事件的时间间隔由定时器的 属性设置。

5．在控件数组中，所有元素的 属性均相同，数组中的每个元素由 属性指定。

6．执行赋值语句a=\，变量a的值是 。

7．假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是 。

8．表达式3 + 15 Mod 4 * 2 + 2的值是 。 9．一个VB应用程序可以包含 个vbp文件。 10．要在窗体Form1内显示“欢迎您!”，使用的语句是 。 11．列表框控件中最后一项的序号等于ListCount属性减 。

12．变量的声明方法有隐式和 声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为 。

13．全局变量是指那些在 中有效的变量，一般在模块代码编辑器的顶部使用 声明

14．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从

3

-1到2，第二维下标从1到4，则相应数组声明语句为 。

15．Dim i As Integer，则运行时变量i的初始值是 。

16．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。模块级或窗体级变量的作用域是 ，全局变量在整个应用程序中有效，其作用域是 。

17．VB中参数传递的方式有两种，一种是 参数，另一种是 参数。

18. Winsock控件主要用来编制 或 协议的通话程序。

三、阅读程序题

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

Private Sub Form_Click()

Dim I As Integer, j As Integer Dim c As Integer c = 1

For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print c End Sub

文件框Text1的输出结果是：

2．

Private Sub Command1_Click()

Dim n As Integer,y As Integer,x As Integer X = 1

Do While x < 20 n = n + 1 y = x + y

x = x * (x + 1) Loop

Text1.Text = n Text2.Text = x Text3.Text = y End Sub

写出程序运行时单击Command1后，文件框Text1、 3.

Text2和 Text3的输出结果。

4

Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1

Do While i < 9 i = i + 2 s = s + i Loop

Text1.Text = s End Sub

写出程序运行时，单击命令按钮文本框Text1中的输出结果。

4．

Private Sub Command1_Click() Dim x As Integer Static s As Integer

x = Val(InputBox(\请输入一个正整数=\ If x < 5 Then s = s * x Else

s = s + x End If

Text1.Text = \End Sub

程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。 5.

Function F(a As Integer) b = 2 Static c b = b + 1 c = c + 1 F = a + b + c End Function

Private Sub Command1_Click() Dim a As Integer a = 2

For i = 1 To 3 Print F(a)

5

本文来源：https://www.bwwdw.com/article/ishv.html