VB笔试模拟试卷194(题后含答案及解析)

VB笔试模拟试卷194

(题后含答案及解析)

题型有：1. 选择题 2. 填空题

选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有

一个选项是正确的，请将正确选项涂写在答题卡相应位置上。

1． 下列成员中不属于主窗口的是( )。

A．最大化按钮

B．状态栏

C．系统菜单

D．工具栏

正确答案：B

2． 英文缩写OLE的含义是( )。

A．面向对象程序设计

B．对象链接

C．对象嵌入

D．对象链接与嵌入

正确答案：D

3． 当一个对象(如窗体或图片框)被移动或改变大小之后，或当一个覆盖该

对象的窗体被移开之后，如果要保持该对象上所画图形的完整性，可以选择触发

( )事件来完成图形的重画工作。

A．Paint

B．Load

C．Click

D．Active

正确答案：A

4． 如果将PassWord Char属性设置为一个字符，如星号(*)，运行时，在文

本框中输入的字符仍然显示出来，而不显示星号，原因可能是( )。

A．文本框的MulfiLine属性值为True

B．文本框的Locbcd属性值为True

C．文本框的MulfiLine属性值为False

D．文本框的Lochcd属性值为False

正确答案：A

5． 设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda,则另一

命令按钮的名称可能是( )。

A．cmdc

B．cmdb

C．cmda

D．Commandl

正确答案：D

6． 以下( )不能存入在资源文件里。

A．独立的字符串

B．位图

C．声音文件

D．事件过程

正确答案：D

7． 下列程序段的执行结果为( )， n=0 Fori=1 To 3 Forj=5

To 1Step-1 n=n+1 Nextj，i Printn;j;I

A．12 0 4

B．15 04

C．12 3 1

D．15 31

正确答案：B

8． 在窗体上绘制一个文本框，然后编写如下事件过程： Private Sub

Form_Click( ) x=InputBox(“请输入一个整数”) Print x+

End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框

中输入123，单击“确定”按钮后，在窗体上显示的内容为( )。

A．123

B．456

C．579

D．123456

正确答案：D

9． 下列各选项中，不是可视化编程方法特点的是( )。

A．不必运行程序就能看到所要做的界面

B．采用面向对象驱动事件的机制

C．使用工程的概念来建立应用程序

D．将代码和数据集成到一个独立的对象中去

正确答案：C

10． 运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的

Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的( )事件。

A．Click

B．DblClick

C．GotFocus

D．Change

正确答案：D

11． 下列叙述中正确的是( )。

A．一个逻辑数据结构只能有一种存储结构

B．数据的逻辑结构属于线性结构，存储结构属于非线性结构

C．一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处

理的效率

D．一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理

的效率

正确答案：D

12． 为了清除窗体上的一个控件，下列正确的操作是( )。

A．按回车键

B．按Esc键

C．选择(单击)要清除的控件，然后按Del键

D．选择(单击)要清除的控件，然后按回车键

正确答案：C

13． 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命

令按钮，然后编写如下事件过程： Private Sub Commandl_Click( )

Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3

Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti =array

A．12

B．13

C．14

D．15

正确答案：A

14． 通过文本框的( )事件过程可以获取文本框中输入字符的ASCII码

值。

A．Change

B．GotFocus

C．LostFocus

D．KeyPress

正确答案：D

15． 目录列表框的Path属性的作用是( )。

A．显示当前驱动器或指定驱动器上的某目录下的文件名

B．显示当前驱动器或指定驱动器上的目录结构

C．显示根目录下的文件名

D．显示指定路径下的文件

正确答案：B

16． 设有如下语句： Dim a，b As Integer c=“VisualBasic”

d=#7/20/2005# 以下关于这段代码的叙述中，错误的是( )。

A．a被定义为Integer类型变量

B．b被定义为Integer类型变量

C．c中的数据是字符串

D．d中的数据是日期类型

正确答案：A

17． Mid(“HelloEveryone”，7,3)的执行结果是( )。

A．ong

B．every

C．Eve

D．one

正确答案：C

18． 任何控件都具有( )属性。

A．Text

B．Caption

C．Name

D．ForeCol0r

正确答案：C

19． 要使一个图片框控件能自动地附着在窗体的一条边上，应设置它的

( )属性。

A．Picture

B．Aligmen

C．Border

D．Align

正确答案：D

20． 执行以下程序段后，变量c$的值为( )。

S$=“VisualBasicProgramming” b$=“Quick” c$=b$&UCase(Mid$(a$，7，

6))&Right$(a$，12)

A．VisualBASICProgramming

B．QuickBasicProgramming

C．QUICKBasicProgramming

D．QuickBASICProgramming

正确答案：D

21． 下列说法正确的是( )。

A．一个应用程序中只能创建一个窗体

B．一个应用程序中只能创建一个模块

C．一个应用程序中只能创建一个MDI窗体

D．一个应用程序中只能创建一个MDI子窗体

正确答案：C

22． 在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个

命令按钮，并编写如下事件过程： Private Sub Commandl_click( )

=“AllFiles(*.*)|*.*|Text Files”&_”(*.txt)|*.txt|Executable

Files(*.exe)|*.exe” Index=3 CommonD

A．AllFries(*.*)

B．TextFiles(*.txt)

C．Executable Fries(*.exe)

D．不确定

正确答案：C

23． 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变

灰)，应使用的语句为( )。

A．d=False

B．d=True

C．e=Tme

D．e=Hase

正确答案：A

24． 单击命令按钮时，下列程序代码的执行结果为( )。 Private Sub

Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m10

End Sub PrivateSubCommandl_Click( ) Dimx As Integer Dimy As

Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

正确答案：A

25． 下面叙述中正确的是( )。

A．SW函数只能用于Print方法中

B．Space函数既可以用于Print方法中，也能用于表达式

C．Spc函数与Space函数均生成空格，没有区别

D．以上说法均不对

正确答案：B

26． 下面程序运行后的结果是( )。 Private Sub Form_Click( )

Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1

to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End

Sub

A．6

B．72

C．144

D．432

正确答案：D

27． 在数据管理技术的发展过程中，经历了人工管理阶段，文件系统阶段

和数据库系统阶段。其中数据独立性最高的阶段是( )。

A．数据库系统

B．文件系统

C．人工管理

D．数据项管理

正确答案：A

28． 下列程序运行时输出的结果是( )。 Private Sub Form_Click( )

Dima a=Array(“天天向上”，”清华大学”，”天上人间”，”程序设计”)

forI=Lbound(a，1) to Ubound(a，1) ifleft(a(i)，1)=“天”then print a(i)；

nextI End Sub

A．天天向上

B．天天向上天上人间

C．出错信息

D．天天向上清华大学天上人间程序设计

正确答案：B

29． 下面程序运行后，输出结果是( )。 Private Sub mysub(b( )As

Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI

End Sub Private Sub Commandl_Click( ) Dima(1 to 4)As Integer，I As

Integer Callmysub(a( )，5) Mysuba( ) ForI=1 to 4 Prin

A．5101520

B．2468

C．出错

D．0000

正确答案：B

30． 运行以下程序后，输出的图形是( )。 Forr=O To 150

Circle(320,240)，r Fori=1 To 1000 Nexti Nextr

A．一个固定的空心圆

B．一个半径逐渐变大的空心圆

C．一个固定的实心圆

D．一个半径逐渐变大的实心圆

正确答案：D

31． 程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是( )。

A．MouseDown

B．MouseUp

C．Load

D．Chck

正确答案：C

32． 以下关于焦点的叙述中，错误的是( )。

A．如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据

B．当文本框失去焦点时，触发LostFocus事件

C．当文本框的Enabled属性为False时，其Tab顺序不起作用

D．可以用Tab Index属性改变Tab顺序

正确答案：A

33． 以下定义数组或给数组元素赋值的语句中，正确的是( )。

A．

B．

C．

D．

正确答案：A

34． 执行语句s=Len(Mid(“VisualBasic”,1,6))后，s的值是( )。

A．Visual．

B．Basic

C．6

D．11

正确答案：C

35． 3下列语句中正确的是( )。

A．IfX＜3*YAndX＞YThenY=X

B．IfX＜3*YAndX＞YThenY=X3

C．IfX＜3*Y:X＞YThenY=X

D．IfX＜3*YAndX＞YThenY=X**3

正确答案：A

填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡上。注

意：以命令关键字填空的必须拼写完整。

36． 为同一种对象设置不同的属性，可以使一种对象具有不同的外观和不

同的______。

正确答案：内在性能

37． 快捷键Ctrl+O的功能相当于执行文件菜单中的______命令。

正确答案：打开工程

38． 在VB6.0中，InputBox函数用于产生______对话框。

正确答案：输入

39． 在面向对象的程序设计中，类描述的是具有相似性质的一组______。

正确答案：对象

40． 以下程序段的输出结果是______。num=0 Whilenum＜=2

nam=hum+1 Wend Printnam

正确答案：3

41． 在C盘当前文件夹下建立一个名为的顺序文件。要求用

InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。

Pfivate Sub Form_Click( ) Open”C:”ForOut PUt As#1

Fori=l To5 StuNo=InputBox(“请输入学号”) StuName=InputBox(“请输入

姓名”) StuEng=Val(1nputBox

正确答案：Whte#1,StuNo，StuNanne，StuEng

42． 以下程序用于求S=1+3+32+33+…+310的值。Private Sub

Commandl_Click( ) S=1 T=1 ForI=1 To 10 T=______ S=S+T

NextI Print”S=“；S End Sub

正确答案：T*3

43． 滚动条响应的重要事件有______和Change。

正确答案：ScroU

44． 阅读以下程序：Private Sub Form_Click( ) Dimk,n,m As Integer

n=10 m=1 k=1 DoWhilek＜=n m=m+2 k=k+1 Loop Printm

End Sub 单击窗体，程序的执行结果是______。

正确答案：21

45． 语句FontSize=FontSize*2的功能是______。

正确答案：将当前字体放大两倍

46． 以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数

组，然后画一个名为Text2的文本框和名为Commandl的命令按钮。运行时在文

本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2

文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如下图所

示。请填空。 Pfivale Sub Commaildl_C1iCk( ) Dimk As hteger Dimsum

As Single，maxAs Single，min As Single

正确答案：sum或max或Text1(0)或Text1(0).Text

47． 有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除

以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本

框的内容。 Private Sub Commandl_Click( ) x=Val() If

[9] Then PrintX Else =““ [10] End

If End Sub

正确答案：xMod4=1 AndxMod5=2,Tex(us

48． 下面程序的功能是找出给定的10个数中最大的一个数，最后输出这个

数以及它在原来 10个数中的位置。请在下划线处填入适当的内容，将程序补充

完整。 Option Base 1 Private

x=Array(23，-5,17,38，-31,46,11，8，5，-4)

ifx(k)＞x(max)then [13] End if

正确答案：Max=k,x(Max)

SubForm_Cfick(

Max=1 k=1

) Dim X

10 k=k+1