数组补充实验(1)

《数组补充实验(1)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、补充一、【题目】生成一个4*3的矩阵，并求出每行中最大的元索。【实验步』1、创建窗体并设置属性，如上图所示。2、完善程序代码OptionExplicitPrivateSubCmdClear_Click()■清空图片框EndSubPrivateSubCmdExit_Click()Picture1.CisEndSubPrivateSubCmdStart_Click()Dima(4,3)AsInteger,iAsInteger,jAsIntegerDimmaxAsIntegerFori=1To4Forj=1To3a(i,j)=Int(90*Rnd+10)Picture1.Printa(i

2、j),NextjNextiFori=1To4Forj=2To3Ifmax

3、输入数据的因子，存放到数组中，并对因子进行累加。所谓一个数的因子，就是可以整除n的数，因为无法预知一个数因子的个数，所以需要使用动态数组。【实验步骤】1、在窗体上摆放LabelTextBox、FramePictureBox（用于显示结果，放在Frame里面）各一个，再将三个CommandButton拖放到窗体上，可参见所给界面。2、完善程序代码OptionExplicitPrivateSubCmdJudge_Click()DimmAsInteger,iAsInteger,jAsInteger,kAsIntegerDima()AsIntegerm=Textl.TextReDima(l

4、)a(l)=lk=1j=lFori=2ToIfThen’求因子和j=j+l'统计因子个数'重定义数组，并保留原有数据'将因子保存在数组元素中EndIfNextiIfm=kThenPicture1.Printm&”是完数，因为”Picture1.Printm;,r=K;Fori=1ToUBound(a)-1*UBound()为数组上界函数Picture1.Printa(i);”+“；NextiPicture1.Printa(i)'输出戢后一个因子ElsePicture!.Printm&”不是完数”EndIfEndSubPrivateSubCmdExit_Click()UnloadMe

5、EndSubPrivateSubCmdNext_Click()Picture1.CisText1.Text二”“'将焦点置于文本框Text1EndSub