VB程序设计阶段性作业21.docx

中国地质大学（武汉）远程与继续教育学院

中国地质大学(武汉)远程与继续教育学院

VB程序设计课程作业2（共4 次作业）

学习层次：专升本 涉及章节：第5章——第7章

一、判断题

For/Next语句中，循环控制变量只能是整型变量。

Do/LoopWhile结构中的循环体，至少被执行一次。

Do/LoopUntil结构的循环，是“先判断、后执行（循环体）”的循环结构。

使用OnErrorGoTo语句并编写相应程序，可以捕获程序中的编译错误。

二、选择题

若i的初值为8，则下列循环语句的循环次数为 次。

DoWhilei=17i=i+2

Loop

A、3次 B、4次 C、5次 D、6次

由“Fori=1To9Step-3”决定的循环结构被执行 次。

A、4 B、5 C、6 D、03．窗体通用部分的语句“OptionBase1”，决定本窗体中数组下标界 。

A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0

三、填空题

声明动态数组的语句是 语句。

语句“DimcAs ”定义的变量c，可用于存放控件的Caption的值。3．用Dimc(2to5)AsInteger语句定义的数组占用 个字节的内存空间。

四、程序阅读题（写出下列程序的运行结果）

程序1.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

Dima(5,5)AsByte,iAsByte,jAsByteFori=1To5:Forj=1To5

a(i,j)=i*jNextj,i

Fori=1To5:Printa(i,i);:NextiEndSub

程序2.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

DimiAsInteger,jAsIntegerFori=1To6

PrintSpc(6-i);

Forj=1To(2*i)-1:PrintW;:Nextj

Print

Nexti

EndSub

程序3.请写出单击窗体后，窗体上的显示结果。

PrivateSubForm_Click()

Dima(1

To2,1

To3)AsInteger,iAsInteger,jAsInteger

Fori=

1To2

Forj

=1To

3

a(i,j)=i+j:PrintTab(j*5+2);a(i,j),Nextj

PrintNexti

EndSub

五、程序填空题

【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

PrivateSub

Dima(30)

Form_Click()

Asbyte,iasByte,jAs

Byte,mAsByte

ForFor

ii

=1

=1

ToTo

30:a(i)= ⑴ :

29

Nexti

Forj= ⑵

Ifa(i)a(j)Then

m=a(i): ⑶ :a(j)=mEndIf

Nextj,i

Fori=1To30

If ⑷ ThenPrinta(i);Nexti

EndSub

【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。

单击窗体则开始猜数，如要终止VisualBasic程序运行可以按Ctrl+Break组合键。

PrivateSubForm_Click()

DimrAsInteger,xAsInteger,iAsIntegerRandomize:r= （1）

Fori=1To10

x=Val(InputBox(请输入一个整数：))

If

x

r

Thenm=MsgBox(太小了，请继续猜！)

If

x

r

Thenm=MsgBox(太大了，请继续猜！)

If

x

=

r

Then

Print

猜中了！共猜了+ （2） +

次

Ifi=5ThenPrint

（3）

EndIf

太棒了！ElsePrint加油！

NextiEndSub

六、程序设计题

计算下式的和，变量x与n的数值用输入对话框输