VB考试题及答案-2023修改整理

千里之行，始于足下让知识带有温度。第第2页/共2页精品文档推荐VB考试题及答案1、VB应用程序中可以包括三种模块：(窗体模块)、(标准模块)和类模块。

2、下列过程不能在标准模块中定义的是(A)。

A、大事过程

B、子过程

C、函数过程

D、公共过程

3、以下讲述中错误的是D

A、假如过程被定义为Static类型，则该过程中的局部变量都是Static类型

B、Sub过程中不能嵌套定义Sub过程

C、Sub过程中可以嵌套调用Sub过程

D、大事过程可以像通用过程一样由用户定义过程名

2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必需在该过程名前加上(窗体名称)。

2、自定义的过程有两种形式：＿Sub＿和＿Function＿。

3、用于退出过程的语句是(D)。

A、Exit

B、ExitFor

C、ExitDo

D、ExitSub

4、在过程的参数列表中列入__Optional__关键字，就可以指定过程的参数为可选的。

5、假如使用Call关键字来调用一个需要参数的过程，参数就必需要加上__括号__。

1、在窗体代码中有以下大事过程的声明，其中Private表示(B)

PrivateSublblAbc_Change()

……

EndSub

A、此过程可以被任何其它过程调用

B、此过程只可以被本窗体模块中的其它过程调用

C、此过程不行以被其它过程调用

D、此过程只可以被本工程中的其它过程调用

9、假定已定义了一个过程SubAdd(aAsSingle,bAsSingle)，则正确的调用语句是(A)。

A、Add12,5

B、Call(2*x,Add(1.57))

C、CallAddx,y

D、CallAdd(12,12,x)

10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是(C)。

A、SubProcl(ByVal,n,ByValm)

B、SubProcl(n,ByValm)

C、SubProcl(n,m)

D、SubProcl(ByValn,m)

6、写出单击命令按钮Command1时的窗体显示结果。

PublicSubProc(ByRefnAsInteger,ByValmAsInteger)

n=nMod10

m=m\10

EndSub

PrivateSubCommand1_Click()

DimxasInteger,yAsInteger

x=15:y=30

CallProc(x,y)

Printx;y

EndSub显示结果：530

7、下列程序代码的功能是计算

!8!7

!5+

=

s的值，在横线上填上适当内容。PrivateSubCommand1_Click()

Dimf1AsLong,f2AsLong,f3AsLong,sAssingle

Callfact(5,f1)

Callfact(7,f2)

Callfact(8,f3)

s=(f1+f2)/f3

Print“s=”;s

EndSub

Subfact(ByvalnAsInteger,ByreffAsLong)

DimtAsLong,iAsInteger

t=1

Fori=1Ton

t=t*i

Nexti

f=t

EndSub

11、单击命令按钮，在输入对话框中输入234，窗体输出结果为__24__。FunctionFun(numAsInteger)AsInteger

DimkAsInteger

k=1

num=Abs(num)

DoWhilenum

k=k*(numMod10)

num=num\10

Loop

Fun=k

EndFunction

PrivateSubCommand1_Click()

DimnAsInteger

DimrAsInteger

n=InputBox("请输入一个数")

n=Val(n)

r=Fun(n)

Printr

EndSub

12、编程实现显示以下图形：

**

****

******

****

**

PrivateSubp(ByValiAsInteger)

Dimj%,k%

Forj=0To7-i

Print"";

Nextj

Fork=0To2*i-1

Print"*";

Nextk

Print

EndSub

PrivateSubCommand1_Click()

Dimi%

Fori=1To2

pi

Nexti

Fori=3To1Step-1

pi

Nexti

EndSub

20、补全程序题：以下过程实现求2到50以内奇数的和，请在划线处将过程补充完整：Submult()

DimsumasInteger

sum=0

DimIasInteger

ForI=2to50

ifIMOD2=___0___Then__Loop__

___sum=sum+I___

___NextI______

Printsum

EndSub

16、补全程序题：以下Prime过程，用于推断一个数是否为素数。请在划线处将过程补充完整：

SubPrime(inputvarAsInteger)

Fori=__2Toinputvar-1

IfinputvarModi=_0___Then

GoTocomfinish

EndIf

Nexti

Print"素数"

GoTo__finish__

comfinish:

Print"不是素数"

finish:

EndSub

9、在窗体上有一个名称为Command1的命令按钮，程序的功能：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换，请填空补全程序。

OptionBase1

PrivateSubCommand1_Click()

Dima(10)AsInteger

Fori=1To10

a(i)=i

Next

Callswap(a)

Fori=1To10

Printa(i);

Next

EndSub

Subswap(b()AsInteger)

n=10

Fori=1Ton/2

t=b(i)

b(i)=b(n)

b(n)=t

n=n-1

Next

EndSub

3.5常用内部函数简介

5、表达式Sgn(-25)+Sqr(625)的值为＿24＿。

1、要返回不大于X最大整数的函数是(A)。

A、Int(x)

B、Fix(x)

C、Cint(x)

D、Clng(x)

2、求COS35°可以使用的函数是(D)。

a)Cos35B、Cos(35)C、Cos(35o)D、Cos(35*3.14159/180)

1、通过调用函数实现从字符串“VisualBasic6.0”中截取子串“Basic”，调用形式为(Mid(“VisualBasic6.0”,8,5))。

6、产生[a,b]区间的随机整数，可使用表达式_a+Int(Rnd*(b-a+1))_。

1、以下哪种形式能够得到[1，6]之间的随机整数(D)。

A、Rnd*5+1

B、Int(Rnd*5+1)

C、Rnd*6+1

D、Int(Rnd*6+1)

2、可以同时删除字符串前导和尾部空白的函数是(C)。

A、Ltrim

B、Rtrim

C、Trim

D、Mid

3、执行以下程序段后，变量c$的值为(D)。

a$=“VisualBasicPrograming”

b$=“Quick”

c$=b$i;")=";S(i)

NextI

3.6自定义类型与枚举类型

9、下面讲述中不正确的是(C)。

A、自定义类型的数据就是若干变量组成的一个集合

B、自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型

C、自定义类型只能在窗体模块的通用声明段举行声明

D、在窗体模块中定义自定义类型时必需使用Private关键字

2、设有以下语句

TypeStu

nameAsString*10

ScoreAsSingle

EndType

DimStulAsStu,Stu2AsStu

则下面讲述中错误的是(C)。

A、Type是保留字

B、Stu是用户定义的记录类型

C、name和score表示记录变量Stu1的成员

D、Stu1和Stu2是属于记录类型Stu的变量

2、有如下程序段

TYPEgoods

NumASINTEGER

NamASSTRING*13

ENDTYPE

DIMclothASgoods

该程序段定义了两个程序成分,它们分离是_A_。

A、记录类型和记录变量

B、记录类型和数组

C、显示类型和数组

D、记录变量和数组

3、若有以下说明语句

Typeemployee

numAsInteger

salaryAsSingle

EndType

DimprogrammerAsemployee

则下面表示记录变量programmer的成员Salary正确的是(D)。

A、programmer->salary

B、.salary

C、grammer

D、programmer.salary

4、下面大事过程的功能是：输入若干个同学的姓名和年龄存放到一维数组S中，然后输入一个姓名，查询该同学的年龄并输出，在横线上填上适当内容。

PrivateTypestu

nameAsString*10

ageAsInteger

EndType

PrivateSubCommand1_Click()