计算机语言b课后练习答案.docx
- 文档编号:7031873
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:8
- 大小:67.40KB
计算机语言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"正数的和是:
";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
Nexti
Print"A的转置矩阵B为:
"
Forj=1To3
Fori=1To2
Printb(j,i);
Nexti
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
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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机语言 课后 练习 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)