vb课后习题答案Word格式.docx

vb课后习题答案Word格式.docx

《vb课后习题答案Word格式.docx》由会员分享，可在线阅读，更多相关《vb课后习题答案Word格式.docx（44页珍藏版）》请在冰豆网上搜索。

FontSize=50

3、多位数组元素的输出

PrivateSubCommand3_Click（）

Dima（3,5）AsInteger'

定义一个二维数组

Fori=1To3'

控制第一维的循环变量放在最最外层循环

Forj=1To5

a（i,j）=i*j'

下行中i、j必须用引号，注意是二维的

a（"

"

j;

a（i,j）'

print放在循环体中

Nextj

Nexti

4、数组元素的输出

OptionBase1‘下标从1开始

Dima（4,4）AsInteger

Forj=1To4

a（i,j）=InputBox（"

enterdata"

放在循环体中

Printa（i,j）;

5、数组元素的复制

OptionBase1

Dimname1（）,name2（）'

中间必须加逗号，定义空维数组，为万能类型

ReDimname1（10）,name2（10）'

重新定义，是一维数组

Fori=1To10

msg$=InputBox$（"

）'

name1（i）=InputBox$（"

）

name1（i）=msg$'

跟上述语句是一样的效果，只是带换了一下

Printname1（i）;

Print'

换行，不能放在循环体中

name2（i）=name1（i）'

把数组一的值赋给数组二,必须用循环体复制

Printname2（i）;

'

输出

FontSize=50'

不能放在窗体层

6、输出数组的上下界

Dima（1To10,1To100,1To1000）

PrintLBound（a,1）;

UBound（a,1）'

lboundandubound分别表示定义的变量的下界和上界

PrintLBound（a,2）;

UBound（a,2）

PrintLBound（a,3）;

UBound（a,3）

7、定义默认数组

Statica（5）

a

（1）=100

a

（2）=123.23

a（3）="

zhanghaie"

a（4）="

20"

&

Now

a（5）=&

HAAF

Fori=1To5

）="

a（i）

8、求数组的和

Dima

（2）,b

（2）,c

（2）,i'

定义为万能类型

a

（1）=1

b

（1）=1

a

（2）=1

b

（2）=1

Fori=0To1

c（i）=a（i）+b（i）

c（"

c（i）

9、数组名在一个过程中不能重

PrivateSubForm_Click（）

Dima（5）

Dimb

b=8'

在同一个过程中，数组名和其他变量名不能一样

a

（2）=10

Printb,a

（2）

10、erase语句的用法

StaticSubForm_Click（）

FontSize=20

Dimtest（1To20）AsInteger'

用static定义一个静态数组

Fori=1To20'

循环，给数组赋值并输出

test（i）=i

Printtest（i）;

Erasetest'

清空数组，还原值为0，释放空间

换行

Erasetest（）"

输出字符串

nowthetestarrayisfilledwithzeros..."

Fori=1To20

输出清空后的数组

11、冒泡排序法

Staticnumber（1To10）AsInteger

msg$="

enternumberforsort"

'

$表示字符串，用msg$，msgtitle$只是为了代换

msgtitle$="

sortdemo"

Fori%=1To10'

%表示为整形

number（i%）=InputBox（"

msg$,msgtitle$"

也可直接输字符串

Nexti%

Fori%=10To2Step-1

Forj%=1Toi%-1

Ifnumber（j%）>

number（j%+1）Then

t=number（j%+1）'

number（j%+1），number（j%）交换数值

number（j%+1）=number（j%）

number（j%）=t

EndIf

Nextj%

Fori%=1To10

Printnumber（i%）

12统计人数

Dimscore（）AsSingle

n=InputBox（"

输入学生人数n"

ReDimscore（n）

Dimcount（11）AsInteger

Fori=1Ton

score（i）=InputBox（"

输入第"

i&

个学生成绩"

Printscore（i）;

k=Int（score（i）/10）+1

count（k）=count（k）+1

Nexti

Print

Fori=1To10

Print（i-1）*10;

to"

（i-1）*10+9,count（i）

Print100;

Spc（9）;

count（11）

FontSize=30

13、作业题5

Dimnam（）,sex（）,age（）,culture（）,addr（）

enterpeoplenumber:

"

ReDimnam（n）

ReDimsex（n）

ReDimage（n）

ReDimculture（n）

ReDimaddr（n）

nam（i）=InputBox（"

entername:

Printnam（i）,

sex（i）=InputBox（"

entersex:

Printsex（i）,

age（i）=InputBox（"

Enterage:

Printage（i）,

culture（i）=InputBox（"

输入文化程度：

Printculture（i）,

addr（i）=InputBox（"

输入籍贯：

Printaddr（i）

Next

100

findName=InputBox（"

输入要查询的姓名：

flag=0

IffindName=nam（i）Then

Printnam（i）,sex（i）,age（i）,culture（i）,addr（i）

flag=1

Ifflag=0Then

您要查询的人不存在！

！

EndIf

msg=MsgBox（"

您要继续查找吗？

vbYesNo+vbDefaultButton1,"

询问框"

Ifmsg=vbYesThen

GoTo100

Else

End

14、作业题

FontSize=16

DimiAsInteger

DimjAsInteger

Dimarr（1To10,1To10）AsInteger

Forj=1To10

Ifi=jOri+j=11Then

arr（i,j）=1

arr（i,j）=0

Next

Forj=1To10

Printarr（i,j）;

Print

15、作业题8

OptionExplicit

Dima（）AsInteger

Dimb（）AsInteger

FontSize=26

DimnAsInteger,mAsInteger

请输入矩阵的行数：

m=InputBox（"

请输入矩阵的列数：

ReDima（n,m）AsInteger

ReDimb（m,n）AsInteger

Print"

转置前的矩阵为：

Forj=1Tom

输入数组A的元素值：

b（j,i）=a（i,j）

转置后的矩阵为：

Fori=1Tom

Forj=1Ton

Printb（i,j）;

16、作业题9

FontSize=24

Dimarr（10,10）AsInteger

arr（0,0）=1

arr（i,0）=1

Forj=1Toi

Ifi=jThen

arr（i,j）=arr（i-1,j-1）+arr（i-1,j）

Fori=0To10

Forj=0Toi

PrintTab（6*j）;

arr（i,j）;

17、作业题1、2

Dima（1To10）AsSingle

DimtAsSingle

对换前的数组值依次为：

a（i）=InputBox（"

输入数值：

Printa（i）;

Fori=1To5

t=a（i）

a（i）=a（11-i）

a（11-i）=t

对换后的数组值依次为：

DimarrAAsVariant

DimarrB

DimarrSum（8）AsVariant

Cls

arrA=Array（2,8,7,6,4,28,70,25）

arrB=Array（79,27,32,41,57,66,78,80）

Fori=1To8

PrintarrA（i）;

PrintarrB（i）;

arrSum（i）=arrA（i）+arrB（i）

PrintarrSum（i）;

Dimb（10）AsInteger

b（i）=a（11-i）

Printb（i）;

18、第3题

Dimarr（）AsInteger

DimnAsInteger

DimmAsInteger

DimiAsInteger,jAsInteger

DimmaxAsInteger

DimrowAsInteger,colAsInteger

输入数组的行数：

输入数组的列数：

ReDimarr（n,m）

arr（i,j）=InputBox（"

输入数组的元素值：

max=arr（1,1）

row=1:

col=1

Ifmax<

arr（i,j）Then

max=arr（i,j）

row=i:

col=j

最大值的行号：

row,"

列号：

col

最大值是：

max

19、第四题

Dimarr（4,4）AsInteger

DimarrB（4,4）AsInteger

DimRowSum（4）AsInteger,ColSum（4）AsInteger

DimtempAsInteger

输出矩阵两个对角线上的数：

Fori=1To4

Ifi+j=5ThenPrintarr（i,j）;

分别输出各行各列的的和：

RowSum（i）=RowSum（i）+arr（i,j）

ColSum（j）=ColSum（j）+arr（i,j）

第"

行之和为：

RowSum（i）

列之和为：

ColSum（i）

交换第一行和第三行的位置：

Forj=1To4

arrB（i,j）=arr（i,j）

temp=arrB（1,j）

arrB（1,j）=arrB（3,j）

arrB（3,j）=temp

PrintarrB（i,j）;

PrivateSubCommand4_Click（）

交换第二列和第四列的位置：

temp=arr（i,2）

arr（i,2）=arr（i,4）

arr（i,4）=temp

输入数组的数据：

20、第六题

Dimnum,score,order

Dimtemp,tem

num=Array（"

207"

077"

156"

231"

453"

276"

096"

122"

339"

302"

score=Array（14.5,15.1,14.2,14.7,15.2,13.9,15.7,13.7,14.9,14.5）

Fori=1To9

Forj=1To10-i

Ifscore（j）>

score（j+1）Then

temp=score（j）:

score（j）=score（j+1）:

score（j+1）=temp

tem=num（j）:

num（j）=num（j+1）:

num（j+1）=tem

名次"

运动员号"

成绩"

Printi,num（i）,score（i）

21、第十题

*"

Fork=1To4

PrintTab（k*6）;

3*k;

Nextk

Fori=15To18

Printi;

i*3*k;

22、九九乘法表

FontSize=13

PrintTab（65）;

九九乘法表"

Fori=1To9

PrintTab（j*15）;

*"

="

i*j;

第七章

1、求3和7的倍数的数

PrivateSubCom