资源描述:
《第7章课后习题答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、习题7-2Dima(10),b(5,5)AsIntegerDimi,jAsIntegerDimstr1,str2AsStringstr1="":str2=""Fori=0To10a(i)=Int(Rnd()*101)str1=str1&Str(a(i))+""NextFori=0To5Forj=0To5b(i,j)=Int(Rnd()*101)str2=str2&Str(b(i,j))Nextstr2=str2&vbCrLfNextMsgBox("一维数组:"&vbCrLf&str1&vbCrLf&"二维数组:"&vbCrLf&str2)
2、习题7-3Dima()AsInteger={2,8,7,6,4,28,70,25}Dimb()AsInteger={79,27,32,41,57,66,78,80}Dimc(7)AsIntegerDimiAsIntegerDimstr1,str2,str3AsStringstr1="A数组为:"str2="B数组为:"str3="C数组为:"Fori=0To7c(i)=a(i)+b(i)str1=str1+Str(a(i))str2=str2+Str(b(i))str3=str3+Str(c(i))NextMsgBox(str1+Chr(
3、13)+Chr(10)+str2+Chr(13)+Chr(10)+str3)习题7-5Dima(9)AsIntegerDimi,tAsIntegerDimstr1AsStringstr1="原数组为:"+Chr(13)+Chr(10)Fori=0To9a(i)=Val(InputBox("请输入数组元素:"))str1=str1+Str(a(i))6Nextstr1=str1+Chr(13)+Chr(10)Fori=0To4t=a(i)a(i)=a(9-i)a(9-i)=tNextstr1=str1+"对换后的数组为:"+Chr(13)+
4、Chr(10)Fori=0To9str1=str1+Str(a(i))NextMsgBox(str1)习题7-6Dima(,)AsIntegerDimn,m,i,j,min,col,rowAsIntegerDimstr1,str2AsStringstr1=""n=Val(InputBox("PleaseinputN(行下标上界):"))m=Val(InputBox("PleaseinputM(列下标上界):"))ReDima(n,m)Randomize()Fori=0TonForj=0Toma(i,j)=Int(Rnd()*100)str
5、1=str1+Str(a(i,j))+""Nextstr1=str1+Chr(13)+Chr(10)NextTextBox1.Text=str1min=a(0,0)row=0col=0Fori=0TonForj=0TomIfa(i,j)6、,n,i,jAsIntegerDima(,),b(,)AsIntegerDimstr1AsStringm=Val(InputBox("请输入数组行下标上界:"))n=Val(InputBox("请输入数组列下标上界:"))ReDima(m,n),b(n,m)str1="原数组为:"+Chr(13)+Chr(10)Fori=0TomForj=0Tona(i,j)=Val(InputBox("请输入数组元素:"))str1=str1+Str(a(i,j))Nextjstr1=str1+Chr(13)+Chr(10)Nextistr1=str1
7、+Chr(13)+Chr(10)str1=str1+"转置后的数组为:"+Chr(13)+Chr(10)Fori=0TonForj=0Tomb(i,j)=a(j,i)str1=str1+Str(b(i,j))Nextjstr1=str1+Chr(13)+Chr(10)NextiMsgBox(str1)习题7-8Dima(,)AsInteger={{25,36,78,13},{12,26,88,93},{75,18,22,32},{56,44,36,58}}Dimi,j,tAsIntegerDimsrow(3),scol(3)AsInteg
8、erDimstr1,str2AsStringstr1="":str2=""'输出两对角线上的元素Fori=0To3str1=str1&Str(a(i,i))str2=str2&Str(a(i,