vb期末考试练习卷3和答案

第第页vb期末考试练习卷3和答案百度文库-让每个人同等地提升自我

1练习卷三

一、语言基础题〔40分〕

判断题〔此题10分，每题1分〕

1．都能显示和输入文字是控件Te*tBo*与Label的共同特点之一。

2．DoUntilLoop语句实现循环时,当条件为False时才执行循环。

3．通过vb编译生成的文件具有.E*E文件扩展名，该文件只能在VB环境下执行。

4．InputBo*函数的数据类型是String。

5．变量尾部的%符号隐式声明变量为整型。

6．Dima1,a2asInteger语句显式声明变量a1和a2都为整型变量。

7．过程调用时，实际参数的个数与形式参数的个数不肯定要相等。

8．可以在窗体或标准模块的通用声明部分声明全局变量，但不能在过程里声明全局变量。

9．控件数组的每个元素都有相同的Name属性值和不同的Inde*属性值，其中最小的Inde*属性值为0。10．当拖曳滚动条中的滚动框时，便发生滚动条Scroll事项。

单项选择题〔此题10分，每题1分〕

1．转变某控件在窗体中的上下位置应修改该控件的()属性。

[A][B][C]Top[D]Left

2．假定flge是规律型变量,下面赋值语句中正确的选项是()

[A]flge=True[B]flge=True

[C]flge=#True#[D]flge=34

3．一个对象可以执行的动作和可被对象识别的动作分别称为:

[A]事项、方法[B]方法、事项

[C]属性、方法[D]过程、事项

4．Sub过程与Function过程最根本的区分是:

[A]前者可以运用Call或径直运用过程名调用,后者不能.

[B]后者可以有参数,前者不能.

[C]两种过程参数的传递方式不同.

[D]前者无返回值,但后者有.

5．列表框控件的以下几个属性中,哪一个不是数组:

[A]List[B]ListInde*[C]Selected[D]ItemData

6．下面哪种类型的对象不能作为控件的容器:

[A]Form[B]PictureBo*[C]Shape[D]Frame

7．下面哪类控件不支持Change事项:

[A]Te*tBo*[B]Label[C]PictureBo*[D]ListBo*

8．以下函数中,返回值是字符串的是:

[A]Chr[B]InStr[C]Val[D]Asc

9．移动滚动条中的滚动框,将触发该滚动条的什么事项:

[A]Scale[B]KeyDown[C]Change[D]Scroll

10．下面哪种对象没有Caption属性:

[A]Form[B]Te*tBo*

[C]CommondButton[D]Frame

填空题〔此题20分，每题2分〕

1．定时器控件的Interval属性值是指时间间隔，当每隔此间隔的时间，定时器会触发一次事项。2．VB为添加到窗体上的第一个图片框提供的默认对象名为。

3．当复选框被选中,它的Value属性值为。

4．在过程调用中，参数传递分为按值传递和按地址传递，其中按地址传递是默认方式。运用关

百度文库-让每个人同等地提升自我

2键字来修饰参数，可以使之按值传递。

5．判断变量*是不是能被5整除的偶数，规律表达式写为。

6．表达式〔-5〕Mod8的值为。

7．假如在模块的声明段中有OptionBase0语句,那么在模块中运用Dima(6,3To5)声明的数组有个元素

8．假如要强制变量的声明,应在模块的声明段运用语句。

9．已知a、b、c都是整型变量,，描述条件a和b中至少有一个大于c的VB规律表达式是。10．声明变量类型有二种方法，它们是：。

二、程序阅读题〔此题20分，每题5分〕

1．设窗体上有两个控件：文本框Te*t1和按钮Command1,下面是按钮的Click事项过程,单击按钮后,文本框中最终显示什么:

PrivateSubCommand1_Click()

Dima(2,4)AsInteger,b(4)AsInteger

DimcAsInteger

DoWhilec=4

a(1,c)=a(1,c)+2*c-1

a(2,c)=a(2,c)+12-2*c

c=c+1

Loop

c=1

DoWhilec=4

b(c)=a(1,c)+a(2,5-c)

=b(c)

c=c+1

Loop

EndSub

2．单击窗体打印出的结果是：

PrivateSubForm_click()

A=1：

B=A

DoUntilA=5

*=A*B

PrintStr$(A)*Str$(B)=;Str$(*)

A=A+B

B=B+A

Loop

EndSub

3．单击窗体打印出的结果是：

PrivateSubForm_Click()

DimF(2)

ForI=0To2

F(I)=SQ(I*I+1)

Ne*tI

I=I-1

DoUntilI=0

I=I-1

PrintF(;I;)=;F(I)

百度文库-让每个人同等地提升自我

3Loop

EndSub

PublicFunctionSQ(*)

*=*+2

SQ=**4-5

EndFunction

4．当单击窗体时,窗体上显示内容的第一行和第二行分别是:

PrivateSubForm_Click()

test2

EndSub

PublicSubtest(*AsInteger)

*=**2+1

If*6Then

Calltest(*)

EndIf

*=**2+1

Print*

EndSub

三、程序填空题〔此题20分，每空2分〕

1．用随机数产生十个[1050]的随机整数(包括10和50),并按由小到大顺次并五个一行打印出来OptionBase1

Dima(10)AsInteger

PrivateSubForm_Click()

Dimi,jAsInteger

DimtAsInteger

Randomize

Fori=1To10

a(i)=(1)

Ne*ti

Print排序前数据:

Fori=1To(2)

Printa(i);

If(3)ThenPrint

Ne*ti

Print

Fori=1To9

imin=i

Forj=(4)To10

Ifa(imin)a(j)Thenimin=j

Ne*tj

t=a(i)

a(i)=a(imin)

a(imin)=(5)

Ne*ti

Print排序后数据:

Fori=1To10

Printa(i);

IfiMod5=0ThenPrint

Ne*ti

百度文库-让每个人同等地提升自我

EndSub

2．盘上有个文件，数据为某班级同学姓名，计算机成果，编写程序求该班计算机平均成果。

平均成果

PrivateSubCommand2_Click()

OpenFor〔1〕As1

total=0计算总分

n=0统计同学人数

DoWhileNot〔2〕

Input#1,stu_name,score

total=total+score

n=n+1

Loop

Print平均成果=Str(total/n)

〔3〕

EndSub

删除

PrivateSubCommand6_Click()

Dimf_nameAsString

Dimstu_nameAsString

DimscoreAsInteger

f_name=

OpenForInputAs1

OpenForOutputAs2

DoWhileNotEOF(1)

Input#1,stu_name,score

Ifstu_name=〔4〕ThenE*itDo

Write#2,stu_name,score

Loop

DoWhileNotEOF(1)

Input#1,stu_name,score

〔5〕#2,stu_name,score

Loop

Close

Kill删除文件格式Killfile

NameAs

EndSub

四、程序设计题〔此题20分，每题10分〕

1．编写计算阶乘的Function过程,利用e*的下述近似公式计算e直到最末一项小于1E-8为止)。编写窗体代码要求在马上窗口输出计算结果。

e*≈1+*/1!+*2/2!+*3/3!+…..+*n/n!

2．利用文本框检查用户口令，运用静态变量来限制输入三次，在文本框中输入口令按回车后，假如口令错，那么提示对不起，口令错！，如输入三次仍错，那么提示对不起，您无权运用。如三次内口4

百度文库-让每个人同等地提升自我

5令正确,那么提示欢迎运用本系统!。

练习卷三标准答案及评分标准

五、语言基础题

1．2．√3．4．√5．√6．7．8．√9．√10．√1．C2．D3．B4．D5．B6．C7．D8．A9．D10．B

1．Timer

2．Picture1

3．1

4．ByVal

5．*Mod10=0

说明：写”*Mod10”得一分

6．-5

7．21

8．OptionE*plicit

9．acORbc

10．显式声明变量和隐式声明变量

六、程序阅读题

评分标准：每题5分。完全与标准答案吻合可以得5分，假设数据正确或格式正确那么酌情给分。

1．172．

1*1=1

2*3=6

Te*t1

Label1

七、程序填空题

评分标准：此题20分，每空2分。

1．

〔1〕Int(Rnd*41)+10或Int(Rnd*(50-40+1))+10

〔2〕10

〔3〕imod5=0

〔4〕i+1

〔5〕t

2．

〔1〕Input

〔2〕Eof(1)

〔3〕Close1

〔4〕f_name

〔5〕Write

八、程序设计题

1．评分标准：此题10分

事项名及变量声明〔1分〕：变量可以不声明，但是假如声明错误要扣分。函数声明〔1分〕

For循环〔2分〕：其中初值1分，循环结构1分。

函数返回值(1分)。

Do循环〔4分〕：其中初值1分，循环结构2分，循环条件1分。

循环结构语句不限。

s得(1分)

参考程序：

PublicFunctionfact(*AsInteger)

DimpAsLong

p=1

Forn=1To*

p=p*n

Ne*tn

fact=p

EndFunction

PrivateSubForm_Click()

DimnAsInteger

s=1:n=1:t=1

Do

t=1/fact(n)

s=s+t

n=n+1

LoopWhilet=10^-8

s

6

百度文库-让每个人同等地提升自我EndSub

2．评分标准：此题10分

事项过程格式(1分)

静态变量正确声明〔1分〕

IfKeyAscii=13Then(1分)

If=abcdefgThen和对应的Else(1分)

全部的=…共(2分):错一个去1分,两个及以上去2分

n=n+1语句(1分)

ifn=3then….else语句(2分)

=False语句(1分)

参考程序：

PrivateSubTe*t1_KeyPress(KeyAsciiAsInteger)

StaticnAsInteger

IfKeyAscii=13Then

If=abcdefgThen

=欢迎运用本系统

Else

n=n+1

Ifn=3Then

=对不起，您无权运用

=False

Else

=对不起，口令错!

=0

=Len

EndIf

EndIf

EndIf

EndSub

7

百度文库-让每个人同等地提升自我

1练习卷三

一、语言基础题〔40分〕

判断题〔此题10分，每题1分〕

1．都能显示和输入文字是控件Te*tBo*与Label的共同特点之一。

2．DoUntilLoop语句实现循环时,当条件为False时才执行循环。

3．通过vb编译生成的文件具有.E*E文件扩展名，该文件只能在VB环境下执行。

4．InputBo*函数的数据类型是String。

5．变量尾部的%符号隐式声明变量为整型。

6．Dima1,a2asInteger语句显式声明变量a1和a2都为整型变量。

7．过程调用时，实际参数的个数与形式参数的个数不肯定要相等。

8．可以在窗体或标准模块的通用声明部分声明全局变量，但不能在过程里声明全局变量。

9．控件数组的每个元素都有相同的Name属性值和不同的Inde*属性值，其中最小的Inde*属性值为0。10．当拖曳滚动条中的滚动框时，便发生滚动条Scroll事项。

单项选择题〔此题10分，每题1分〕

1．转变某控件在窗体中的上下位置应修改该控件的()属性。

[A][B][C]Top[D]Left

2．假定flge是规律型变量,下面赋值语句中正确的选项是()

[A]flge=True[B]flge=True

[C]flge=#True#[D]flge=34

3．一个对象可以执行的动作和可被对象识别的动作分别称为:

[A]事项、方法[B]方法、事项

[C]属性、方法[D]过程、事项

4．Sub