VB程序设计试题及答案一Word文档格式.docx

VB程序设计试题及答案一Word文档格式.docx

《VB程序设计试题及答案一Word文档格式.docx》由会员分享，可在线阅读，更多相关《VB程序设计试题及答案一Word文档格式.docx（24页珍藏版）》请在冰豆网上搜索。

（B）123ab。

（C）integer 

（D）X-Y

6.以下关系表达式中，其值为False的是 

。

（A）"

ABC"

>

"

AbC"

（B）"

女"

男"

（C）"

BASIC"

=UCase（"

basic） 

（D）"

123"

<

23"

7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 

（A）x=1:

y=1:

z=1 

（B）x=1,y=1,z=1

（C）x=y=z=1 

（D）xyz=1

8.VB提供了结构化程序设计的三种基本结构，三种基本结构是 

（A）递归结构、选择结构、循环结构

（B）选择结构、过程结构、顺序结构

（C）过程结构、输入输出结构、转向结构

（D）选择结构、循环结构、顺序结构

9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 

（A）Ifsex="

Andage=4OAndInStr（duty，"

教授"

）>

OThenn=n+l

（B）Ifsex="

Andage=4OAnd（duty="

Orduty="

副教授"

）Thenn=n+l

（C）Ifsex="

Andage=4OAndRight（duty，2）="

Thenn=n+l

（D）Ifsex="

Andage=4OAndduty="

Andduty="

10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 

（A）DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次

（B）DoWhile…Loop循环和Do…LoopUntil循环可能都不执行

（C）DoWhile…Loop循环至少执行一次和Do…LoopUntil循环可能不执行

（D）DoWhile…Loop循环可能不执行和Do…LoopUntil循环至少执行一次

11.以下 

是正确的For…Next结构。

（A）Forx=1ToStep10 

（B）Forx=3To-3Step-3

… 

…

Nextx 

Nextx

（C）Forx=1To10 

（D）Forx=3to10step3

re:

Nexty

Ifi=10ThenGoTOre

12.如下数组声明语句， 

是正确的。

（A）Dima[3,4]AsInteger

（B）Dima（3,4）AsInteger

（C）Dima（n,n）AsInteger

（D）Dima（34）AsInteger

13.下列语句中（假定变量n有值），能正确声明可变长数组的是 

（A）Dima（）AsInteger 

（B）Dima（）AsInteger

ReDima（n） 

ReDima（n）AsString

（C）Dima（）AsInteger 

（D）Dima（10）AsInteger

ReDima（3,4） 

ReDima（n+10）

ReDimPreservea（4,4）

14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 

（A）Subf2（ByValn%,ByValm%） 

（B）Subf1（n%,ByValm%）

（C）Subf1（n%,m%） 

（D）Subf1（ByValn%,m%）

15.设有如下程序段：

PublicSubF1（n%）

n=3*n+4

EndSub

PrivateSubCommand1_Click（）

Dimn%,m%

n=3

m=4

‘调用F1语句

则在Command1_Click事件中有效的调用语句是 

（A）CallF1（n+m） 

（B）CallF1（m） 

（C）CallF1（5） 

（D）CallF1（m+5）

16.用来设置粗体字的属性是 

（A）FontItalic 

（B）FontName 

（C）FontBold 

（D）FontSize

17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 

DimxAsInteger

SubTimer1_Timer（）

Fori=1to10

x=x+1

Nexti

（A）1000 

（B）10000 

（C）10 

（D）以上都不对

18.在下列关于通用对话框的叙述中，错误的是 

（A）CommonDialog1.ShowFont显示“字体”对话框

（B）在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回

（C）在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回

（D） 

19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 

（A）KeyPress、KeyDown、KeyUp

（B）KeyDown、KeyUp、KeyPress

（C）KeyDown、KeyPress、KeyUp

（D）没有规律

20.在下面关于顺序文件的描述中，正确的是 

（A）顺序文件中每行的长度都是相同的。

（B）可以通过编程对文件中的某行方便地进行修改

（C）数据以ASCII码的形式存放在文件中，所以可通过记事本打开

（D）文件的组织结构复杂

21.随机文件是因为 

（A）文件中的内容是通过随机数产生的

（B）文件中的记录号通过随机数产生的

（C）可对文件中的记录根据记录号随机地读/写

（D）文件的每条记录的长度是随机的

22.从磁盘上读入一个文件名为“c:

\t1.txt”顺序文件，如下 

正确。

（A）F=“c:

\t1.txt”

OpenFForInputAs#1

（B）F=“c:

Open“F”ForInputAs#2

（C）Open“c:

\t1.txt”ForInputAs#1

（D）Openc:

\t1.txtForInputAs#2

23.坐标度量单位可由通过来 

改变。

（A）Drawstyle属性 

（B）DrawWidth属性

（C）Scale方法 

（D）ScaleMode属性

24.指令“Circle（1000,1000）,500,8,-6,-3”将绘制 

（A）画圆 

（B）椭圆 

（C）圆弧 

（D）扇形

25.用ADO数据控件建立与数据源的链接，设置操作过程按 

顺序进行。

①选择数据源连接方式；

②选择数据库类型；

③指定数据库文件名；

④指定记录源

（A）①②③④ 

（B）②③④①

（C）③①②④ 

（D）①③②④

二、填空题

1．VB是建立在BASIC语言基础上的 

可见 

化编程语言或编程环境。

2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 

TabIndex 

属性的值为 

0 

3．在VB中，1234、123456&

、1.2346E+5、1.2346D+5这4个常数分别表示 

整形 

、 

长整形 

单精度 

双精度 

类型。

4．表示x是5的倍数或是9的倍数的逻辑表达式为 

xmod5=0orxmod9=0 

5．数组声明时下标下界默认为0，利用 

Opation 

Base1 

语句可以使下标为1。

6．传地址方式是当过程被调用时，形参和实参共享 

存储单元 

7．窗体中的模块级变量应在 

窗口模块 

段声明，它作用于该窗体的 

全局范围 

8．当用户单击滚动条的空白处时，滑块移动的增量值由 

LargeChange 

属性决定。

9．如果菜单标题的某个字母前输入一个“&

”符号，那么该字母就成了热键字母；

如果建立菜单时在标题文本框中输入一个“ 

-（减号） 

”符号，那么显示时形成一个分隔符。

10．使用 

Scale 

方法可以自定义坐标系。

11．使用Line方法画矩形，不许在指令中使用关键字 

12．使用SQL语句设置ADO控件的RecordSource属性，这CommandType属性需要设置成 

1（adCmdText）或者（adCmdUnknown） 

13．为了显示一个窗体，所使用的方法为show；

而为了隐藏一个窗体，所使用的方法为__Hide_____。

14．如果要将某个命令按钮不显示，则可将___Visible________属性设置为False

15．在VB中窗体文件的扩展名为_____.FRM______。

三、编程应用题

1.程序阅读，写出下列程序的运行结果。

（1）

Dima,i%,min%,imin%,sum%,t%

a=Array（26,43,61,87,33,19,37,59,76,69）

min=a（0）:

imin=0:

sum=a（0）

Fori=1toUBound（a）

sum=sum+a（i）

Ifa（i）<

minThenmin=a（i）:

imin=i

t=a（0）:

a（0）=a（imin）:

a（imin）=t

Printsum;

a（0）

输出结果：

51019

（2）

DimchasString*1

ch=＂8＂

IfUCase（ch）>

=＂A＂AndUCase<

=＂Z＂Then

VB程序设计试题及答案

（二）

1.VB6.0集成开发环境不包括 

窗口。

（A）DOS界面窗口 

（B）窗体窗口

（C）代码窗口 

（D）属性窗口

2.有程序代码如下:

C

Tex1.Text="

Tex1.Text"

则Tex1、Text、"

分别代表

（A）对象、值、属性 

（B）对象、方法、属性

（C）对象、属性、值 

（D）属性、对象、值 

3.下面关于对象的描述中， 

是错误的。

（A）对象就是自定义结构变量

（B）对象代表正在创建的系统中的一个实体

（C）对象是一个特征和操作的封装体

（D）对象之间的信息传递是通过消息进行的

4.要使某控件在运行时不可显示，应对 

（B）Visible

（C）Backcolor 

（D）Caption

5.与数学表达式对应，不正确的VB算术表达式是 

（A）a*b/（3*c*d） 

（B）a/3*b/c/d

（C）a*b/3/c/d 

（D）a*b/3*c*d

6.InputBox函数返回值的类型是 

B 

。

（A）整型数值 

（B）字符串 

（C）变体 

（D）数值或字符串

7.下面正确的赋值语句是 

（A）x+y=30 

（B）y= 

*r*r

（C）y=x+30 

（D）3y=x

8.下面程序段运行后，显示的结果是 

Dimx

IfxThenPrintxElsePrintx+1

（A）l 

（B）O 

（C）-1 

（D）显示出错信息

9.下面程序段，运行后显示的结果是 

x=Int（Rnd）+5

SelectCasex

Case5

Print"

优秀"

Case4

良好"

Case3

通过"

CaseEElse

不通过"

EndSelect

（A）优秀 

（B）良好 

（C）通过 

（D）不通过

10.下列循环结构能正常结束循环的是 

（A）i=5 

（B）i=1

Do 

Do

i=i+1 

i=i+2

LoopUntili<

0 

LoopUntili=10

（C）i=10 

（D）i=6

Do 

i=i+1 

i=i-2

LoopUntili>

LoopUntili=1

11.下面的程序段的运行结果为多少？

D

Fori=1to5

n=0

Forj=ito5

n=n+1

Nextj

Printn

（A）10 

（B）5 

（C）15 

（D）1

12.要分配存放如下矩阵的数据， 

数组声明语句能实现（不浪费空间）。

1.1 

2.2 

3.3

4.4 

5.5 

6.6

7.7 

8.8 

9.9

（A）Dima（9）AsSingle

（B）Dima（3,3）AsSingle

（C）Dima（-1to1,-5to-3）AsSingle

（D）Dima（-3to-1,5to7）AsInteger

13.在窗体的通用声明段自定义了数据类型Students，下列 

定义方式是正确的。

（A）PrivateTypeStudents 

（B）TypeStudents

NameAsSting*10 

NameAsSting*10

StudnoAsInteger 

StudnoAsInteger

EndType 

EndStudents

（C）TypeStudents 

（D）TypeStudents

NameString*10 

StudnoInteger