全套试题1

闭卷考试，考试时间120分钟

一、选择题（40分，每题2分）

1）假如一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是

A）只保存窗体模块文件

B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件。 D）只保存工程文件。

2) 以下不属于Visual Basic系统的文件类型是

A) .frm B) .bat C) .vbg D) .vbp

3）为了清除窗体上的一个控件，下列正确的操作是： A）选择（单击）要清除的控件，然后按Del键 B）按回车键 C）按esc键

D）选择（单击）要清除的控件，然后按回车键

4）以下叙述中错误的是

A) 双击鼠标可以触发DblCLick事件

B) 窗体或控件的事件的名称可以由编程人员确定 C) 移动鼠标时，会触发MouseMove事件 D) 控件的名称可以由编程人员设定

5） 以下叙述正确的是

A）VB程序中dCount 和 DCOUNT是两个不同的变量

B）VB的语句以换行符（回车）作为结束符，一行可以有多个语句，用冒号“:”分割 C）在VB6.0中源程序中不再保留行号

D）VB源程序中的一行可以超过255个字符，并且没有长度限制

6）正确表达双精度浮点数(Double)3.14159的表达式为 A）3.14159 B) 0.314159E+1 C) 3.14159# D) 3.14159!

7）设a=10, b=5, c=1, 执行语句Print a>b>c后，窗体上显示的是

A) True B) False C) 1 D) 出错信息 8）语句Print 5/4*6\\5 Mod 2的输出结果是

A) 0 B) 1 C) 2

D) 3

9) 如果要改变窗体的标题，则需要设置的属性是

A) Caption B) Name C) BackColor D) BorderStyle 10) 设组合框Combol中有3个项目，则以下能删除最后一项的语句是

A) Combol.RemoveItem Text B) Combol.RemoveItem 2 C) Combol.RemoveItem 3

D) Combol.RemoveItem Combol.Listcount

11）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为

A) = B) * C) & D) -

12）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_ Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1

Loop While a <=0 Print s; a End Sub

程序运行后，单击命令按，则窗体上显示的内容是

A) 7 9 B) 34 0 C) 9 7 D) 死循环

13）以下关于函数过程的叙述中，正确的是：

A） 如果不指明函数过程参数的类型，则该参数没有数据类型 B）函数过程的返回值可以有多个

C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传引用方式传递 D）函数过程形参的类型与函数返回值的类型没有关系

14）假设有过程

Public Sub Test(ByVal A As Integer, ByVal B As Integer) C%=A+B

End Sub则不正确的调用为 A）Call Test(2, 3) B）C% = Test(2, 3) C）Test 2, 3

D）Call Test(2,2+3)

15)以下关于keyPress事件过程中参数KeyAscii的叙述中正确的是 A）KeyAscii参数是所按键的ASCII码 B）KeyAscii参数的数据类型为字符串 C）KeyAscii参数可以省略

D）KeyAscii参数是所按键上标注的字符

16)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 A）任何时刻最多只有一个窗体是活动窗体 B）不能把标准模块设置为启动模块

C）用hide方法只是隐藏一个窗体，不能内存中清除该窗体

D）如果工程中含有sub main 过程，则程序一定首先执行该过程。

17)目录列表框的path属性的作用是

A）显示当前驱动器或指定驱动器上的某个目录下的文件名 B）显示当前驱动器或指定驱动器上的目录结构 C）显示根目录下的文件名 D) 显示指定路径下的文件

18）下面不能正确按顺序访问模式打开”C:\\A.txt”的语句是 A）open ”C:\\A.txt” for append as #1 为顺序访问模式 B）open ”C:\\A.txt” for random as #1 len=128 C）执行open ”C:\\A.txt” for input as #1 D) open ”C:\\A.txt” for output as #1

19）下面关于DAO数据组件说明正取的是

A）通过database属性更改数据库后，数据组件会自动更新数据

B）无论在单用户和多用户环境下，简单的调用recordcount属性都能获得准确的记录总数 C）当记录指针到达最后一条记录之后，EOF值为true D) 当记录集为空时，BOF为FALSE

20）关于记录操作的说明错误的

A）在通过Addnew增加记录后，需要调用Update方法更新数据库 B）在通过Delete删除记录后，需要调用Update方法更新数据库 C）在通过Delete删除记录后，需要调用movelast或movenext方法 D) 在通过Edit编辑记录后，需要调用Update方法更新数据库

二、填空题（30分，每空2分）

1） 结构化程序设计中把程序的结果规定为___【1】___、___【2】____、_【3】__三种基本结构。 2）Visual Basic应用程序中标准模块文件的扩展名是【4】 。

3) 设有如下程序段：

a$=\

b$=Mid(a$,InStr(a$,\

执行上面的程序段后，变量b$的值为【5】 。

4）为了使标签能自动调整大小以显示全部文本内容，应把标签的【6】 属性设置为True。 5）VB中可以构成循环的语句包括 【7】 、 【8】 、 【9】

6）与数学表达式

cos2(a?b)3x?5对应的Visual Basic表达式是【10】 。 7) 将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是 【11】 。 8）为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【12】属性设置为【13】9） 设有以下函数过程

Function Fun(m as integer) as integer Dim k as integer ,sum as integer Sum=0

For k=m to 1 step –2

。 Sum=sum +k Next k Fun=sum End function

若在程序中用语句s=fun(10)调用次函数，则s的值为【14】

10） 名称为Form1的窗体上画一个文本框，其名称为Text1,在属性窗口中把该文本的Multiline属性设置为true，然后编写如下的事件过程。 Private sub form_click()

Open “d:\\test\\smtext1.txt” fot input as #1 Do while not __【15】___ Line input #1,aspect$

Whole$=whole$+aspect$+chr$(13)+chr$(10) Loop

Text1.text=whole$ Close #1

三、编程（30分，每题10分）

1、编程实现，将两个变量的值进行交换，例如a=5,b=4运行程序后a=4,b=5。 2、编写实现，计算1-100之间所有能被3整除的数得和。

3、设计一个form名称为form1，添加“打开文件”按钮cmdOpen,， “保存文件”按钮为cmdSave，文本框为txtSource。通过点击“打开文件”按钮调用通用对话框commonDialog1选择一文本（扩展名dat）”c:\\test.dat”，将内容显示到txtSource中，然后通过点击“保存文件”按钮将此文本框的内容保存到“c:\\test.txt”中。要求使用open命令打开文件，在form1_load中初始化cmdOpen和cmdSave的标题属性。

答案： 一、选择题

1.B 2.B 3.A 4.B 5.B 6.C 7.B 8.B 9.A 10.B 11.D 12 .C 13.D 14.B 15.A 16.D 17.B 18.B 19.C 20.B 二、填空题

1.顺序 2.选择 3.循环 4..BAS 5.Shanghai 6.AutoSize

7.while wend 8. for next 9. do while 10.cos(a+b)*cos(a+b)/(3*x)+5

11picture1.picture=loadpicture(\

12. interval 13.500 14. 30 15.EOF(1) 三、编程题 1、

Sub swap()

Dim c As Integer, a As Integer, b As Integer a=inputbox(“Enter an integer a”) b=inputbox(“Enter an integerb”) print a,b c = a a = b