vb实验报告—数组及其他自定义数据

《vb实验报告—数组及其他自定义数据》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、排序信息工程学院程序设计基础(VB)实习报告学院：班级姓名学号:成绩实习四、数组与自定义数据类型一.实验目的：掌握数组与自定义类型的使用方法二.实验过程例题05-11输出文件中的1()名学生3门考试成绩，耍求按照分数由高到低排列，并输出姓名，各科分数，乎均分i马鸿雁20110129。5q回冈华忠荣丽敏名萍振音碧银昱燕卉硕泠姓马王罗杨何董李戴王刘数学英语语文平均分61699073.33334•严00685258.3333395659183.6666691756978.3333476858983.333

2、3457646160.6666772828479.3333499807183.3333478667673.3333480518471.66666忠敏丽荣华名音揆卉疼啻萍颖婷昱振姓罗何戴李杨马王刘董王数学英语语文平均分95659183.6666676858983.3333499807183.3333472828479.3333491756978.3333461699073.3333478667673.3333430518471.6666657646160.6666755685258.33333全班成绩

3、按其平均分由高到低琲序输出如下=====道出05-12在窗体上建立一个由loo个命令按钮组成的io行io列控件数组。SJ马鸿雁201101.•.(Z)回区实验报告的内容&格式按任课教师的要求书1。05-13输入两个数，根据不同的运算符计算相应的运算结果。习题1代码：OptionBase1PrivateSubCommand1_Click()Dima%(lTo8),b%(lTo8),c%(lTo8),i%，j%+Picture1.Print°数组3中的数据为："Open叩:马鸿雁VB实验4XT1-

4、1.txt'*ForInputAs#lOpennF:马鸿雁VB实验4XTl-2.txt"ForInputAs#2Fori=1To8Input#1,a(i)Input#2,b(i)c(i)=a(i)+b(i)Picture1.Printc(i);NextiCloseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Picture1.FontSize=16EndSub习题2代码OptionBase1PrivateSubCom

5、mandI_C1ick()Dima%(),maxAsInteger,i%,j%,k%n=4:m=3:k=1ReDima(lTon,1Tom)Fori=1TonForj=1Toma(i,j)=Int(Rnd*10)k=k+1Picture1.PrintTab(4*((k-2)Mod3)+2);a(i,j);max=a(l，1):x=1:y=1Nextj,iFori=2TonForj=2TomIfmax

6、icture1.Printn最大的数是：n&max&Chr(lO)&n它在第n&x&1•行n&n，第”&y&列”EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Me.FontSize=18Picture1.FontSize=18EndSub习题3代码OptionBase1Dima(10),b(10)，i%PrivateSubCommandl_Click()Fori=1To10a(i)=I叩utBox("请输入一个元素：")k

7、=k+1Picture1.PrintTab(3*((k-1)Mod10)+2);a⑴;NextiEndSubPrivateSubCommand2_Click()Fori=1To10b(i)=a(i)NextiFori=1To5t=b(i)b(i)=b(ll-i)b(ll-i)=tNextiFori=1To10k=k+1Picture2.PrintTab(3*((k-1)Mod10)+2);b(i);NextiEndSubPrivateSubCominand3_Click()EndEndSubPriv

8、ateSubForm_Load()EndSub习题44裢雁20II0I29D5B回®Xrv.el56、60,78,90,89,67,56,45,67,69,78，77,73,80,89,88，90、93,94,99,97,96,54,43,90,100,23,83,84,82,87,88，49,69,79,70,85,74,75,76,70,100，100,100,94,91、90,93统计结来如下：90-100分冇16人80分-89分介：10人70分-79分有:10