vb模拟考试.docx

上传人:b****6 文档编号:5383287 上传时间:2022-12-15 格式:DOCX 页数:10 大小:17.91KB
下载 相关 举报
vb模拟考试.docx_第1页
第1页 / 共10页
vb模拟考试.docx_第2页
第2页 / 共10页
vb模拟考试.docx_第3页
第3页 / 共10页
vb模拟考试.docx_第4页
第4页 / 共10页
vb模拟考试.docx_第5页
第5页 / 共10页
点击查看更多>>
下载资源
资源描述

vb模拟考试.docx

《vb模拟考试.docx》由会员分享,可在线阅读,更多相关《vb模拟考试.docx(10页珍藏版)》请在冰豆网上搜索。

vb模拟考试.docx

vb模拟考试

VisualBasic程序设计模拟试题

(2)

一、填空题

1.变量名最长可达个字符。

2.常量是指在程序运行过程中,的量。

3.整数类型数据分别包括整型和数据。

4.静态数组是指是固定不变的数组。

5.循环是一组重复执行的指令,重复次数由决定。

6.列表框(ListBox控件)显示,用户可从中选择一个或多个项目。

7.框架(Frame控件)可以用来进行分组,以便于用户识别,主要用于为单选按钮分组。

8.计时器控件通过定期激活Timer事件,使得Timer控件就执行一次Timer事件中的代码。

9.工程文件是与和对象以及所设置的环境信息的一个简单列表。

10.在程序中调用子过程需要指明,然后列出该子过程所要求的参数。

二、单项选择题

1.工程文件的扩展名是()。

A.vbgB.vbpC.vbwD.vbl

2.在以下窗体中没有采用的控件是()。

A.文本框B垂直滚动条C.框架D命令按钮

3.滚动条控件的Largechange属性所设置的是()

A.  单击滚动条和滚动箭头之间的区域时,滚动条控件Value属性值的改变量

B.  滚动条中滚动块的最大移动位置

C.  滚动条中滚动块的最大移动范围

D. 滚动条控件无该属性

4.单击Forml窗口,将执行如下程序:

PrivateSubForm_Click()

I=MsgBox(“aaaaaaa”,2,″bb″)

EndSub

其程序执行结果是()

5.以下选项中,不属于文本框的属性是()。

A.EnabledBCaptionC.NameDMin

6.要求改文本框中显示的文本,应当在属性窗口中改变的属性是()。

A.CaptionBNameC.TextDLabel

7.如要求从文本框中输入密码时在文本框中只显示#号,则应用在此文本框的属性窗口中设置()。

A.Text属性值为#BCaption属性值为#

C.Passwordchar属性值为#DPasswordchar属性值为真

8.允许在菜单项的左边设置打勾标记,下面哪种论述是正确的?

()

A.在标题项中输入&然后打勾B在索引项中输入“√”

C.在复选项中输入“√”D在有效项中输入“√”

9.当执行以下过程时,在窗体上将显示()。

PrivateSubCommandl_Click()

Print“VB”

Print“Hello!

”;

Print“VB”

EndSub

A.    VBHello!

VB

B.     VB

Hello!

VB

C.    VB

Hello!

VB

D.VB

Hello!

VB

10.分析下列程序,指出正确的结果是()。

PrivateSubForm_Click()

PrintSpc(6);″第一″;

PrintSpc(6);″第二″;

EndSub

D.以上结果,都不是

三、判断题(判断下列各题正确与否,正确的打√,错误的打,并写出正确答案,每小题2分,共20分)。

1.在定义了一个函数后,可以象调用任何一个VB内部函数一样使用它,即可以在任何表达式、语句或函数中引用它。

()

2.VisualBasic表达式为:

1284+COS(28)()

3.VisualBasic表达式为:

3*cos(c+d)^2或3*cos(c+d)*cos(c+d)()

4.  VB程序语言两个基本特点是:

结构化和事件驱动编程。

()

5.二进制文件与随机文件的主要区别是:

二进制文件与随机文件类似,必须限制固定长度,可用喜欢的方式来存取文件。

()

6.  在VB6.0中包括四个文件类控件,它们分别是DriveListBox控件,DirListBox控件、FileListBox控件和CommandDialog控件。

()

7.动态菜单,就是菜单中列出了最近使用过的文件名,这部分内容是随着应用程序的运行而不断改变着的,在动行时使菜单可以增长。

()

8.按照文件的存取方式及其组成结构可以分为两种类型:

文本文件和随机文件。

()

9.函数过程(FunctionProcedure)用来完成特定的功能但不返回相应的结果。

()

10.设A=3,B=4,C=5,D=6,计算表达式A>BANDC<=DOR2*A>C的值是False。

()

 

四、读程序题,写出程序运行结果(每小题5分,共20分)

1.PrivateSubForm_Click()

StaticSumAsInteger

ForI=1To10

Sum=Sum+I

NextI

PrintSum

EndSub

2.PrivateSubForm_Click()

Print"*";Tab(9);3,Tab(18);6

Print

ForI=15to16

PrintI;

Forj=3To6Step3

PrintTab(3*j);j*I;

Nextj

Print

NextI

EndSub

3.PrivateFunctionFac(nAsInteger)AsInteger

DimfAsInteger

f=f+n

Fac=f

EndFunction

 

PrivateSubForm_Click()

DimIAsInteger

ForI=1To5

Print"Σ";I&"="&Fac(I)

NextI

EndSub

 

4.PrivateSubCommand1_Click()

Text1.Text=努力

EndSub

 

PrivateSubCommand2_Click()

Text1.Text="学习"

EndSub

单击Command2按钮,又单击Command1按钮,在文本框中显示什么?

五、编程题(共20分)

1. 设计一个计时程序。

该程序用户界面如图所示,由一个文本框(text1),和两个按钮:

命令按钮1(Command1)按钮,命令按钮(Command2)组成。

程序运行后,用户按开始按钮,则开始计时,文本框中显示秒数,按停止按钮,则计时停止。

单击窗口则退出。

(10分)

OptionExplicit

DimI

PrivateSubCommandl_Click()

i=[1][1]

Timer1.Interval=1000

[2].Enabled=True[2]

EndSub

 

Private[3]Command2_Click()[3]

Timer1.Enabled=[4][4]

Endsub

 

PrivateSubForm_Click()

[5]Me[5]

EndSub

PrivateSubForm_Load()

Timer1.Enabled=[6][6]

Text1.[7]=[8][7]

EndSub[8]

PrivateSubTimer1_Timer()

i=i+[9][9]

Text1.Text=[10][10]

EndSub

 

2.设计一个欢迎程序。

该程序用户界面如图所示。

要求程序运行后,用户选中粗体复选框时“欢迎您!

”几个字的字体变成粗体,用户选中斜体复选框时,“欢迎您!

”几个字的字体变成斜体,若取消选中,则恢复原字体。

按结束,则退出。

(10分)

 

  

参考答案

 

一、填空题

1. 225

2. 其值不能改变

3. 长整型

4. 数组元素的个数

5. 条件

6. 项目列表

7. 对其它控件

8. 可以每隔一个时间段

9. 工程相关联的所有文件

10.             该过程的名称

二、单项选择题

1.B2.B3.A4.B5.D6.C7.C8.C9.B10.B

三、判断题

1. 正确

2. 错误。

正确的形式是:

128/4+COS(28*3.14159/180)

3. 正确

4. 错误。

正确答案是:

VB的两个基本特点是:

可视化设计和事件驱动编程。

5. 错误。

正确答案是:

二进制文件与随机文件类似,不必限制固定长度,可用喜欢的方式来存取文件。

6. 正确

7. 正确

8. 错误。

正确答案是:

按照文件的存取方式及其组成结构可以分为两种类型:

顺序文件和随机文件。

9. 错误。

正确答案是:

函数过程(FunctionProcedure)用来完成特定的功能并返回相应的结果。

10.             错误。

应为True。

四、读程序题,写出程序运行结果、

1. 结果为:

55

2. 结果为

 

3. 结果为:

 

4.结果为:

努力

五、编程题

1. 答:

[1]0[2]Timer1[3]Sub[4]False[5]Unload

[6]False[7]Text[8]0[9]1[10]i

 

2.答:

PrivateSubCheck1_Click()

IfCheck1.Value=1Then

Label1.Font.Bold=True

Else

Label1.Font.Bold=False

EndIf

Endsub

 

PrivateSubCheck2_Click()

IfCheck1.Value=1Then

Label1.Font.Italic=True

Else

Label1.Font.Italic=False

EndIf

Endsub

 

PrivateSubCommand1_Click()

UnloadMe

EndSub

(说明:

VB不区分大小写,所以将Label1写成label1也可以,以此类推。

判卷时应注意这一点。

展开阅读全文
相关资源
猜你喜欢
相关搜索
资源标签

当前位置:首页 > 高等教育 > 其它

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1