VB考试真题一含答案.docx

VB考试真题一含答案.docx

《VB考试真题一含答案.docx》由会员分享，可在线阅读，更多相关《VB考试真题一含答案.docx（17页珍藏版）》请在冰豆网上搜索。

VB考试真题一含答案

本卷共有3道大题:

一、单项选择题（40道小题，共40分）

1、在VisualBasic中应用的是（C）。

（1分）

A、面向过程的程序设计方法B、面向数据的程序设计方法

C、面向对象的程序设计方法D、面向用户的程序设计方法

2、如果想让代码窗口中代码的字体大些，可以使用（A）命令设置。

（1分）

A、“工具”菜单的“选项”B、“视图”菜单的“缩放”

C、“编辑”菜单的“替换”D、“视图”菜单的“定义”

3、开发一个标准EXE程序时，工程资源管理器窗口应包含（B）文件。

（1分）

A、.BASB、.FRM

C、.RESD、.CLS

4、在设计模式下，双击窗体上的一个控件，则会打开（C）。

（1分）

A、属性窗口B、工程资源窗口

C、代码窗口D、窗体布局窗口

5、下列属性中，能表示窗体执行时以正常窗口状态显示的属性是（D）。

（1分）

A、TabIndexB、ControlBox

C、BorderStyleD、WindowsState

6、Text1是个文本框，语句Text1="*"和下面（D）的作用相同。

（1分）

A、Text1.Caption="*"B、Text1.Password="*"

C、Text1.MaxLength="*"D、Text1.Text="*"

7、Command1是一个按钮控件，它的Pictrue属性已经被成功设置为一个可显示图形，但运行时该图形未被显示，其原因可能是（D）。

（1分）

A、该图形太大B、ForeColor被设置为黑色

C、BackColor被设置为黑色D、Style属性值被设置为0

8、为了使标签覆盖背景，应把BackStyle属性设置为（B）。

（1分）

A、0B、1

C、TureD、False

9、要使时钟控件的Timer事件每隔3秒发生一次，应该把它的Interval属性设置为（D）。

（1分）

A、3B、30

C、300D、3000

10、下列控件中，没有KeyPress事件的控件是（D）。

（1分）

A、窗体B、文本框

C、图形框D、标签

11、下列声明语句中，错误的声明是（B）。

（1分）

A、Constvar1=123B、Dimvar2='ABC'

C、Dimvar（4）D、Staticvar3AsInteger

12、下列运算符中，优先级最高的运算符是（D）。

（1分）

A、ModB、Not

C、/D、＾

13、表达式x+1>x是（B）。

（1分）

A、算术表达式B、关系表达式

C、字符串表达式D、非法表达式

14、表达式a%*b&-d#\2#+c!

的结果的数据类型是（D）。

（1分）

A、整型B、长整型

C、单精度型D、双精度型

15、若a=9.8596，则执行PrintFormat（a,"$00,00.00"）后，显示的结果是（D）。

（1分）

A、0,009.86B、$9.86

C、9.86D、$0,009.86

16、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）。

（1分）

A、0B、-1

C、TrueD、False

17、设a=1，b=2，c=3，d=4，下面逻辑表达式的值为真的是（B）。

（1分）

A、Sqr（d）>bB、d>cAndb>a

C、Abs（a-d）

18、已知a%=12.8:

b!

=14.5，则执行Printa%;b!

后，输出结果是（D）。

（1分）

A、12.814B、1214.5

C、12.815D、1314.5

19、表达式INT（4*Rnd+1）*（INT（4*Rnd－1））值的范围是（D）。

（1分）

A、[0，8]B、[-1，8]

C、[-3，8]D、[-4，8]

20、若有m$="ABCDE":

MID$（m$,1,5）="abcde"，则m$的值是（C）。

（1分）

A、abcdeABCDEB、ABCDEabcde

C、abcdeD、ABCDE

21、若x=2，执行程序段：

Printx+1:

Printx+2:

Printx+3后，变量x的值是（A）。

（1分）

A、2B、3

C、4D、5

22、x,y均为整数，下列正确的条件语句是（A）。

（1分）

A、ifx≥ytheny=x^3B、ifxtheny=x^3

C、if3*y>x>ytheny=x^3D、ifx<3*y:

x>ytheny=x^3

23、设有语句x=InputBox（"输入姓名","输入框示例","王晓明"），运行后从键盘上输入“李明”并回车，则x中的结果是（D）。

（1分）

A、"输入姓名"B、"输入框示例"

C、"王晓明"D、"李明"

24、已知：

a="SoftwareandHardware"，b=Len（a），c=Left（a,8），执行MsgBoxa,b,c后，在弹出的信息框的标题栏中显示的信息是（B）（1分）

A、SoftwareandHardwareB、Software

C、HardwareD、19

25、已知：

x=5，执行Fori=20To1Step-2:

x=x+i/5:

Nexti后，x的值为（D）（1分）

A、24B、25

C、26D、27

26、已知：

i=0，s=0，执行DoUntili>=4:

s=i+s:

i=i+1:

Loop后，s的值是（A）。

（1分）

A、6B、10

C、11D、15

27、若有k=0，则循环结构DoUntilk>=10:

k=k+1:

Ifk>=8ThenExitDo（回车换行）Loop中的循环体执行次数是（C）。

（1分）

A、8B、9

C、10D、11

28、已知：

OptionBase1，DimA（-2To2,2,0To2,4）AsInteger，则数组A的元素个数及其第2维的下界分别是（B）。

（1分）

A、120和0B、120和1

C、120和2D、120和-2

29、声明为（D）类型的数组，其数组元素既可以具有相同数据类型，也可以相互不同。

（1分）

A、StringB、Single

C、IntegerD、Variant

30、下列说法中，不正确的说法是（D）。

（1分）

A、使用ReDim语句可以变更数组的上界

B、静态数组是在程序编译时分配存储空间的

C、动态数组是在程序执行到ReDim语句时分配存储空间的

D、若有DimaAsVariant，则可以使用ReDim将该数组的类型改为其他数据类型

31、已知：

OptionBase0，Dima（）AsInteger,Dimb（2to4）AsInteger，如果执行a=b，则数组a的下界是（C）。

（1分）

A、0

B、1

C、2

D、3

32、在VisualBasic中，有3种过程，其中常用的2个是（B）。

（1分）

A、Sub过程和事件过程

B、事件过程和通用过程

C、Sub过程和Function过程

D、事件过程和Function过程

33、以（A）保留字开始的为子过程。

（1分）

A、SubB、Event

C、FunctionD、Property

34、过程（或函数）与外界的数据通信有两种方式，分别是（B）。

（1分）

A、局部变量和参数表中的参数B、非局部变量和参数表中的参数

C、非局部变量和Static型的变量D、Static型的变量和参数表中的参数

35、可以在窗体模块的通用声明段中声明（A）。

（1分）

A、全局变量B、全局常量

C、全局数组D、全局用户自定义类型

36、设置工程中某一个窗体作为启动窗体，必需的操作步骤是（）。

（1分）

A、先打开“属性窗口”，然后选择作为启动窗体的窗体名称B、先打开“代码窗口”，然后选择作为启动窗体的窗体名称

C、先打开“工程窗口”，然后选择作为启动窗体的窗体名称D、先打开“窗体设计器”窗口，然后选择作为启动窗体的窗体名称

37、下面语句中，肯定不能用来结束一个应用程序的语句是（A）。

（1分）

A、UnloadB、End

C、StopD、Exit

38、下列叙述中，正确的叙述是（A）。

（1分）

A、文件是记录的集合B、读写文件不需要通过内存

C、从内存向外存传送数据，为读文件，使用读语句D、从外存向内存传送数据，为写文件，使用写语句

39、下列语句从顺序文件中读出数据，正确的语句是（D）。

（1分）

A、Get#文件号,变量名B、Write#文件号,表达式列表

C、Put#文件号,变量名D、Input#文件号,变量名

40、要打开一个顺序文件作为读，正确的语句是（C）。

（1分）

A、F="C\t1.txt":

OpenFForInputAs#1B、F="C\t1.txt":

Open"F"ForOutputAs#2

C、Open"C\t1.txt"ForOutputAs#1D、OpenC\t1.txtForInputAs#2

二、填空题（5道小题，共30分）

1、*判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。

*程序段如下：

S=0

ForI=1ToN-1

IfNModI=0ThenS=S+I

NextI

IfN=Then

Print"是完全数"

Else

Print"不是完全数"

EndIf

（6分）

--------------------------------------------------------------------------------

2、*使用InputBox函数接收一批字符，将其中的数字打印输出。

*程序段如下：

PrivateSubForm_Click（）

DimsAsString,stAsString,iAsInteger

s=InputBox（"请输入一个带数字的字符串"）

Fori=1ToLen（s）

st=Mid（s,i,1）

Ifst>="0"Andst<="9"Then

Printst;

EndIf

Nexti

EndSub

（6分）

--------------------------------------------------------------------------------

3、*程序功能是统计二维数组A（1TO6,1TO6）第一行所有元素中偶数元素的个数，并在窗体上输出其结果。

*数组元素值为[0，10]内的随机整数。

*程序代码如下：

OptionBase1

PrivateSubForm_Click（）

Dima%（6,6）,n%

Fori=1To6

Forj=1To6

a（i,j）=Int（Rnd*11）

Nextj

Nexti

n=0

Fori=1To6

Forj=1To6

Ifi=1Anda（i,j）Mod2=0Thenn=n+1

Nextj

Nexti

Print"第一行所有元素中偶数元素的个数为：

";n

EndSub

（6分）

--------------------------------------------------------------------------------

4、*设计一个求最小公倍数的子过程。

*程序代码如下：

PrivateSubgbs（M,N）

DimXAsInteger

a=M:

b=N

IfM=0OrN=0ThenExitSub

r=MModN

DoWhiler<>0

a=b

b=r

r=aModb

Loop

X=M*N/b

PrintX

EndSub

（6分）

--------------------------------------------------------------------------------

5、*程序的功能是：

把D:

盘根上顺序文件zhengda1.txt的内容读入内存，

*并在文本框Text1中显示出来。

*程序段如下：

PrivateSubCommand1_Click（）

DiminDataAsString

Text1.Text=""

Open"d:

\zhengda1.txt"ForInputAs#1

DoWhileNotEOF

（1）

Input#1,inData

Text1.Text=Text1.Text&inData

Loop

Close#1

EndSub

（6分）

--------------------------------------------------------------------------------

三、编程题（3道小题，选作2道，每道15分，共30分）

1、*编写一个计算矩形周长的程序，如图x_14d.jpg所示。

*界面要求：

*使用文本框，标签，命令按钮完成。

*运行要求：

*1、点击“初始化”按钮，清空所有文本框内容；

*2、点击“计算”按钮，根据文本框中输入的长、宽，计算出矩形的周长并显示到相应的文本框。

*（此题要求上载窗体文件，不要求填写程序运行结果）

（下载文件“x_14d.jpg”）下载方法：

在链接上右击打开弹出菜单，选择“目标另存为”。

（15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

VERSION5.00

BeginVB.FormForm1

Caption="Form1"

ClientHeight=4425

ClientLeft=60

ClientTop=450

ClientWidth=8010

LinkTopic="Form1"

ScaleHeight=4425

ScaleWidth=8010

StartUpPosition=3'窗口缺省

BeginVB.CommandButtonCommand2

Caption="计算"

BeginPropertyFont

Name="宋体"

Size=12

Charset=134

Weight=400

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Height=495

Left=4800

TabIndex=7

Top=3360

Width=1215

End

BeginVB.CommandButtonCommand1

Caption="出始化"

BeginPropertyFont

Name="宋体"

Size=12

Charset=134

Weight=400

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Height=495

Left=960

TabIndex=6

Top=3360

Width=1215

End

BeginVB.TextBoxText3

Height=855

Left=5280

TabIndex=5

Top=1560

Width=1695

End

BeginVB.TextBoxText2

Height=855

Left=2640

TabIndex=4

Top=1560

Width=1695

End

BeginVB.TextBoxText1

Height=855

Left=120

TabIndex=3

Top=1560

Width=1815

End

BeginVB.LabelLabel3

Caption="周长"

BeginPropertyFont

Name="宋体"

Size=12

Charset=134

Weight=400

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Height=1095

Left=5520

TabIndex=2

Top=240

Width=1215

End

BeginVB.LabelLabel2

Caption="宽"

BeginPropertyFont

Name="宋体"

Size=12

Charset=134

Weight=400

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Height=975

Left=2880

TabIndex=1

Top=360

Width=1215

End

BeginVB.LabelLabel1

Caption="长"

BeginPropertyFont

Name="宋体"

Size=12

Charset=134

Weight=400

Underline=0'False

Italic=0'False

Strikethrough=0'False

EndProperty

Height=735

Left=480

TabIndex=0

Top=480

Width=1215

End

End

AttributeVB_Name="Form1"

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_PredeclaredId=True

AttributeVB_Exposed=False

PrivateSubCommand1_Click（）

Text1.Text=""

Text2.Text=""

Text3.Text=""

EndSub

PrivateSubCommand2_Click（）

Dima%,b%,c%

a=Text1.Text

b=Text2.Text

c=2*（a+b）

Text3.Text=c

EndSub

--------------------------------------------------------------------------------

2、*编写程序：

*设窗体上有一命令按钮控件Command1，对其Click事件设计一事件过程。

*统计二维数组A（1To6,1To6）的所有是5的倍数的元素的个数，并在窗体上输出其结果。

*数组元素值为[0，100]内（包括0和100）的随机整数。

（15分）

（本题不要求填写运行结果）

请将你解答本题所写的源程序粘贴到下面或者上载源程序

VERSION5.00

BeginVB.FormForm1

AutoRedraw=-1'True

Caption="Form1"

ClientHeight=4620

ClientLeft=60

ClientTop=450

ClientWidth=6810

LinkTopic="Form1"

ScaleHeight=4620

ScaleWidth=6810

StartUpPosition=3'窗口缺省

End

AttributeVB_Name="Form1"

AttributeVB_GlobalNameSpace=False

AttributeVB_Creatable=False

AttributeVB_PredeclaredId=True

AttributeVB_Exposed=False

OptionBase1

PrivateSubForm_Load（）

Dima%（6,6）

n=0

Fori=1To6

Forj=1To6

a（i,j）=Int（Rnd*101）

Ifa（i,j）Mod5=0Then

n=n+1

EndIf

Nextj

Nexti

Print"二维数组A（1To6,1To6）的所有是5的倍数的元素的个数是"&n

EndSub

--------------------------------------------------------------------------------

3、*编写程序：

*求1+1/4+1/7+1/10+...+1/（3*n+1），直到最后一项的值小于0.0001。

（15分）

必须将本题程序最后的运行结果填入下面的框中。

否则，该题以零分计!