资源描述：
《VB实验数组程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、实验三数组程序设计一、实验目的通过实验掌握vb的数组的概念和使用。二、实验设备1．PC机一台；2．VB6.0集成开发环境。三、实验内容及要求1.编写程序实现方阵的运算示例。点击“生成方阵A、B”按钮，允许用户输入方阵阶数，根据阶数随机产生两个方阵。分别点击运算框中的命令按钮，完成相应的运算。要求：方阵A、B、C采用动态二维数组存放；三个运算命令按钮使用命令按钮控件数组。2.编写程序实现一个信息输入与查询系统。用户从界面输入人员信息，点击新增按钮将信息加入记录数组；通过界面上的按钮完成人员信息的查询。要
2、求使用记录数组。五、程序代码草稿六、实验结果要求：将实验调试通过的程序代码考屏；程序运行结果考屏。七、实验中遇到的问题与解决方法或实验收获答案：1.方阵运算代码：OptionBase1Dima()AsInteger,b()AsIntegerDimnAsIntegerPrivateSubCommand1_Click()DimiAsInteger,jAsIntegern=InputBox("请输入方阵阶数","阶数")ShowRandomizeReDima(n,n)Print"方阵A："Fori=1Ton
3、Forj=1Tona(i,j)=Int(9*Rnd+1)Printa(i,j);NextjPrintNextiPrint"方阵B："ReDimb(n,n)Fori=1TonForj=1Tonb(i,j)=Int(Rnd*9+1)Printb(i,j);NextjPrintNextiEndSubPrivateSubCommand2_Click(IndexAsInteger)SelectCaseIndexCase0PrintPrint"方阵A："Fori=1TonForj=1TonPrinta(j,i);
4、NextjPrintNextiPrint"方阵B："Fori=1TonForj=1TonPrinta(j,i);NextjPrintNextiCase1PrintPrint"C=A+B"Fori=1TonForj=1TonPrintFormat(a(i,j)+b(i,j),"00");NextjPrintNextiCase2PrintPrint"C=A×B"Fori=1TonForj=1TonPrintFormat(a(i,j)*b(i,j),"00");NextjPrintNextiEndSelec
5、tEndSub截图：2.职工信息处理代码：OptionBase1PrivateTypeworkernumAsLongnamAsStringdepAsStringmonAsLongEndTypeDima()AsworkerDimnAsIntegerPrivateSubCommand2_Click()ReDimPreservea(n+1)Asworkern=n+1a(n).num=Text1.Texta(n).nam=Text2.Texta(n).dep=Text3.Texta(n).mon=Text4.
6、TextText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""EndSubPrivateSubCommand3_Click()p=InputBox("请输入要查找人的姓名：","查找")DimiAsInteger,tAsIntegert=0Fori=1TonIfp=a(i).namThenText1.Text=a(i).numText2.Text=a(i).namText3.Text=a(i).depText4.Text=a(i).mont=1EndI
7、fNextiIft=0Thenq=MsgBox("抱歉，没有您要查找的人！",5+48,"查找")Ifq=4Thenp=InputBox("请输入要查找人的姓名：","查找")t=0Fori=1TonIfp=a(i).namThenText1.Text=a(i).numText2.Text=a(i).namText3.Text=a(i).depText4.Text=a(i).mont=1EndIfNextiEndIfEndIfEndSubPrivateSubCommand1_Click(IndexAs
8、Integer)DimiAsIntegerSelectCaseIndexCase0Text1.Text=a(1).numText2.Text=a(1).namText3.Text=a(1).depText4.Text=a(1).monCase1Fori=1TonIfa(i).num=Text1.TextAndi>1ThenText1.Text=a(i-1).numText2.Text=a(i-1).namText3.Text=a(i-1).depText
