计算机语言b课后练习答案Word格式.docx
- 文档编号:20056390
- 上传时间:2023-01-16
- 格式:DOCX
- 页数:8
- 大小:67.40KB
计算机语言b课后练习答案Word格式.docx
《计算机语言b课后练习答案Word格式.docx》由会员分享,可在线阅读,更多相关《计算机语言b课后练习答案Word格式.docx(8页珍藏版)》请在冰豆网上搜索。
0Thensum1=sum1+a(i)
Ifa(i)<
=0Thensum2=sum2+a(i)
Nexti
Print"
输入的十个数是:
"
;
Printa(i);
Next
正数的和是:
sum1
负数的和是:
sum2
平均数是:
(sum1+sum2)/10
EndSub
PrivateSubForm_Load()
Form1.Caption="
数据统计试验"
Form1.FontSize=20
Form1.FontBold=True
试验15-42
OptionBase1
Dima(2,3)AsInteger,b(3,2)AsInteger,iAsInteger,jAsInteger
A矩阵为:
Fori=1To2
Forj=1To3
a(i,j)=(i-1)*3+j
Printa(i,j);
b(j,i)=a(i,j)
Nextj
A的转置矩阵B为:
Forj=1To3
Fori=1To2
Printb(j,i);
Nexti
Nextj
Form1.FontSize=25
试验15-44
Dima(1To3,1To4)AsInteger
Dimi%,j%,max%,min%,s%,t%,k%,l%
产生的矩阵为:
Fori=1To3
Forj=1To4
Randomize
a(i,j)=Int(Rnd*90+10)
max=a(1,1):
min=a(1,1):
s=1:
t=1:
k=1:
l=1
Ifa(i,j)>
maxThenmax=a(i,j):
s=i:
t=j
Ifa(i,j)<
minThenmin=a(i,j):
k=i:
l=j
最大值:
max;
Spc
(2);
行号:
s;
列号:
t
最小值:
min;
k;
l
Form1.FontSize=12
试验15-48
暂缺!
!
试验15-50
Dima%(1To10),i%,j%,b%,n%
PrivateSubForm_Click()
a(i)=Rnd*20+1
b=InputBox("
输入要查找的数"
该数出现的位置:
n=0
Ifa(i)=bThen
n=n+1
Printi;
EndIf
该数出现次数:
n
Dima,i%,j%,x%
a=Array(7,6,5,1,8,5,3,9,4)
删除前的数组:
Fori=1To9
Printa(i);
x=InputBox("
请输入要删除的数"
Ifa(i)=xThenExitFor
Ifi<
=9Then
Forj=i+1ToUBound(a,1)
a(j-1)=a(j)
Next
ReDimPreservea(1ToUBound(a,1)-1)
删除后的数组:
Fori=1To8
试验15-53
PrivateTypeStud
nameAsString
engAsSingle
mathAsSingle
vbAsSingle
totalAsSingle
aveAsSingle
EndType
DimiAsInteger
Form1.Print"
姓名"
Spc(4);
英语"
数学"
vb"
总分"
平均分"
n=InputBox("
输入人数"
Dims()AsStud
ReDims(n)
Fori=1Ton
s(i).name=InputBox("
输入第"
个学生姓名"
s(i).eng=InputBox("
个学生英语成绩"
s(i).math=InputBox("
个学生数学成绩"
s(i).vb=InputBox("
个学生vb成绩"
Prints(i).name;
s(i).eng;
s(i).math;
s(i).vb;
s(i).eng+s(i).math+s(i).vb;
Format((s(i).eng+s(i).math+s(i).vb)/3,0#)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机语言 课后 练习 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)