资源描述：
《vb程序设计 习题及答案第6章 数组》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、第6章数组 6．1试将下面的算术乘法九九表存入数组中，并在窗口显示出来。1234567892468101214161836912151821242748121620242832365101520253035404561218243036424854714212835424956638162432404856647291827364554637281【参考答案】程序代码设计PrivateSubForm_Click()Dima(9,9)AsIntegerFori=1To9Forj=1To9a(i,j)=i*jNextjNextiFori=1To9
2、Forj=1To9PrintFormat(a(i,j),"@@@@@");NextjPrintNextiEndSub图6-1程序运行结果程序运行结果如图6-1所示： 6．2编写程序,输出上题乘法九九表对角线上的数。(两条对角线的数分两组输出)。【参考答案】程序代码设计PrivateSubForm_Click()Dima(9,9)AsIntegerFori=1To9Forj=1To9a(i,j)=i*jNextjNextiFori=1To9Forj=1To9Ifi=jThenPrintTab(5*j);a(i,j)NextjNextiFori=
3、1To9Forj=1To9Ifi+j=10ThenPrintTab(5*j);a(i,j)NextjNexti图6-2程序运行结果EndSub程序运行结果如图6-2所示： 6．3编写程序,输出上题乘法九九表中任意一列和任意一行上的数。【参考答案】程序代码设计PrivateSubForm_Click()Dima(9,9)AsIntegerFori=1To9Forj=1To9a(i,j)=i*jNextjNextin=Val(InputBox("输入行号:"))m=Val(InputBox("输入列号:"))Fori=1To9PrintTab(5
4、*i);a(n,i);NextiPrintForj=1To9PrintTab(5*m);a(m,j)NextjEndSub运行结果：如输入行号为：5，输入列号为：5图6-3程序运行结果则程序运行结果如图6-3所示： 6．4编写程序,交换上题乘法九九表中任意两列上对应的数。【参考答案】程序代码设计PrivateSubForm_Click()Dima(9,9)AsIntegerFori=1To9Forj=1To9a(i,j)=i*jNextjNextin=Val(InputBox("输入要交换的第一个列号:"))m=Val(InputBox("输
5、入要交换的第二个列号:"))Fori=1To9Forj=1To9Ifj=nThenPrintTab(5*j);a(i,m);ElseIfj=mThenPrintTab(5*j);a(i,n);ElsePrintTab(5*j);a(i,j);EndIfNextjPrintNextiEndSub运行结果：图6-4程序运行结果如将第1列与第5列交换，则程序运行结果如图6-4所示： 6．5编写程序,交换上题乘法九九表中任意两行上对应的数。【参考答案】程序代码设计PrivateSubForm_Click()Dima(9,9)AsIntegerFori
6、=1To9Forj=1To9a(i,j)=i*jNextjNextin=Val(InputBox("输入要交换的第一个行号:"))m=Val(InputBox("输入要交换的第二个行号:"))Fori=1To9Forj=1To9Ifi=nThenPrintTab(5*j);a(m,j);ElseIfi=mThenPrintTab(5*j);a(n,j);ElsePrintTab(5*j);a(i,j);EndIfNextjPrintNextiEndSub运行结果：如将第1行与第5行交换，则程序运行结果如图6-5所示：图6-5程序运行结果 6
7、．6矩阵转置，即将矩阵的行、列互换，如下所示： 123147456258789369 【参考答案】程序代码设计PrivateSubForm_Click()Dima(3,3)AsInteger,b(3,3)AsIntegerFori=1To3Forj=1To3a(i,j)=Val(InputBox("输入a数组:"))NextjNextiFori=1To3Forj=1To3b(j,i)=a(i,j)NextjNextiPrint"输出a数组:"Fori=1To3Forj=1To3PrintTab(5*j);a(i,j);NextjPrintNe
8、xtiPrint"输出b数组:"Fori=1To3Forj=1To3PrintTab(5*j);b(i,j);NextjPrintNextiEndSub图6-6程序
