计算机语言b课后练习答案.docx

计算机语言b课后练习答案.docx

《计算机语言b课后练习答案.docx》由会员分享，可在线阅读，更多相关《计算机语言b课后练习答案.docx（8页珍藏版）》请在冰豆网上搜索。

计算机语言b课后练习答案

试验15-41

PrivateSubCommand1_Click（）

Form1.Cls

Dima（1To10）AsSingle,iAsInteger,sum1AsSingle,sum2AsSingle,aveAsSingle

sum1=0

sum2=0

Fori=1To10

a（i）=InputBox（"请输入第"&i&"个数"）

Ifa（i）>0Thensum1=sum1+a（i）

Ifa（i）<=0Thensum2=sum2+a（i）

Nexti

Print"输入的十个数是:

";

Fori=1To10

Printa（i）;

Next

Print

Print"正数的和是:

";sum1

Print"负数的和是:

";sum2

Print"平均数是：

";（sum1+sum2）/10

EndSub

PrivateSubForm_Load（）

Form1.Caption="数据统计试验"

Form1.FontSize=20

Form1.FontBold=True

EndSub

试验15-42

OptionBase1

PrivateSubCommand1_Click（）

Dima（2,3）AsInteger,b（3,2）AsInteger,iAsInteger,jAsInteger

Print"A矩阵为：

"

Fori=1To2

Forj=1To3

a（i,j）=（i-1）*3+j

Printa（i,j）;

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

Nextj

Print

Nexti

Print"A的转置矩阵B为：

"

Forj=1To3

Fori=1To2

Printb（j,i）;

Nexti

Print

Nextj

EndSub

PrivateSubForm_Load（）

Form1.FontSize=25

Form1.FontBold=True

EndSub

试验15-44

Dima（1To3,1To4）AsInteger

Dimi%,j%,max%,min%,s%,t%,k%,l%

PrivateSubCommand1_Click（）

Print"产生的矩阵为：

"

Fori=1To3

Forj=1To4

Randomize

a（i,j）=Int（Rnd*90+10）

Printa（i,j）;

Nextj

Print

Nexti

max=a（1,1）:

min=a（1,1）:

s=1:

t=1:

k=1:

l=1

Fori=1To3

Forj=1To4

Ifa（i,j）>maxThenmax=a（i,j）:

s=i:

t=j

Ifa（i,j）

k=i:

l=j

Nextj

Nexti

Print"最大值：

";max;Spc

（2）;"行号：

";s;Spc

（2）;"列号：

";t

Print"最小值：

";min;Spc

（2）;"行号：

";k;Spc

（2）;"列号：

";l

EndSub

PrivateSubForm_Load（）

Form1.FontSize=12

EndSub

试验15-48

暂缺！

！

！

试验15-50

OptionBase1

Dima%（1To10）,i%,j%,b%,n%

PrivateSubForm_Click（）

Fori=1To10

a（i）=Rnd*20+1

Printa（i）;

Next

Print

b=InputBox（"输入要查找的数"）

Print"该数出现的位置：

";

n=0

Fori=1To10

Ifa（i）=bThen

n=n+1

Printi;

EndIf

Next

Print

Print"该数出现次数：

";n

EndSub

PrivateSubForm_Load（）

Form1.FontSize=12

EndSub

试验15-50

OptionBase1

PrivateSubForm_Click（）

Form1.Cls

Dima,i%,j%,x%

a=Array（7,6,5,1,8,5,3,9,4）

Print"删除前的数组：

";

Fori=1To9

Printa（i）;

Next

Print

x=InputBox（"请输入要删除的数"）

Fori=1To9

Ifa（i）=xThenExitFor

Next

Ifi<=9Then

Forj=i+1ToUBound（a,1）

a（j-1）=a（j）

Next

ReDimPreservea（1ToUBound（a,1）-1）

EndIf

Print"删除后的数组：

";

Fori=1To8

Printa（i）;

Next

EndSub

PrivateSubForm_Load（）

Form1.FontSize=12

Form1.FontBold=True

EndSub

试验15-53

PrivateTypeStud

nameAsString

engAsSingle

mathAsSingle

vbAsSingle

totalAsSingle

aveAsSingle

EndType

DimiAsInteger

PrivateSubForm_Click（）

Form1.Print"姓名";Spc（4）;"英语";Spc（4）;"数学";Spc（4）;"vb";Spc（4）;"总分";Spc（4）;"平均分"

Print

n=InputBox（"输入人数"）

Dims（）AsStud

ReDims（n）

Fori=1Ton

s（i）.name=InputBox（"输入第"&i&"个学生姓名"）

s（i）.eng=InputBox（"输入第"&i&"个学生英语成绩"）

s（i）.math=InputBox（"输入第"&i&"个学生数学成绩"）

s（i）.vb=InputBox（"输入第"&i&"个学生vb成绩"）

Prints（i）.name;Spc（4）;s（i）.eng;Spc（4）;s（i）.math;Spc（4）;s（i）.vb;Spc（4）;s（i）.eng+s（i）.math+s（i）.vb;Spc（4）;Format（（s（i）.eng+s（i）.math+s（i）.vb）/3,0#）

Next

EndSub