资源描述：
《vb课程设计之数组》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、实验报告课程VisualBasic程序设计实验项目数组专业班级姓名学号实验日期指导教师成绩实验目的：(1)掌握静态数组和动态数组定义及使用(2)掌握数组元素的引用，数组的输入和输出(3)掌握“控件数组”的使用实验内容：(1)名称为form1的窗体上有一个命令按钮，请单击命令按钮，利用一维数组，统计一个班20名学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数。要求：（1）学生成绩通过随机函数Rnd产生，先输出同学成绩（每行5个），后输出统计结果。（2）用OptionBase1定义数组下界。（3）窗体文件
2、保存为sy6-1.frm，工程文件保存为sy6-1.vbp.程序代码:OptionBase1PrivateSubCommand1_Click()X1=0:X2=0:x3=0:x4=0:x5=0Dima(20)AsIntegerFori=1To20a(i)=Int(Rnd*101)Ifa(i)>=0Anda(i)<=59ThenX1=X1+1ElseIfa(i)>=60Anda(i)<=69ThenX2=X2+1ElseIfa(i)>=70Anda(i)<=79Thenx3=x3+1ElseIfa(i)>=80Anda(i)<=89T
3、henx4=x4+1ElseIfa(i)>=90Anda(i)<=100Thenx5=x5+1EndIfNextiFori=1To20Printa(i);IfiMod5=0ThenPrintEndIfNextiPrint"0-59分的人数";X1Print"60-69分的人数";X2Print"70-79分的人数";x3Print"80-89分的人数";x4Print"90-100分的人数";x5EndSub(1)名称为form1的窗体上有两个框架；三个标签，标签的名称属性如右图所示；三个文本框，如右图所示，从上到下名称属性分别为t
4、ext1、text2、text3，三个文本框的初始信息为空；三个单选按钮组成的控件数组，名称属性为op1。编写适当的事情过程，先在text1和text2中输入两个数，当选中单选按钮以后，根据所选的单选按钮来计算，并把计算结果显示在text3中。要求窗体文件保存为sy6-2.frm，工程文件保存为sy6-2.vbp程序代码：PrivateSubOp1_Click(IndexAsInteger)a=Val(Text1.Text)b=Val(Text2.Text)IfIndex=0ThenText3.Text=a/bElseIfIndex
5、=1ThenText3.Text=abElseIfIndex=2ThenText3.Text=aModbEndIfEndSub(1)名称为form1的窗体上有一个命令按钮，单击命令按钮，利用二维数组，将乘法“九九表”存入数组中，并将结果在窗体上显示出来。要求：（1）要求显示成九行九列的形式（2）窗体文件保存为sy6-3.frm，工程文件保存为sy6-3.vbp。程序代码：PrivateSubCommand1_Click()Dima(1To9,1To9)AsIntegerFori=1To9Forj=1To9a(i,j)=i*jNex
6、tjNextiFori=1To9Forj=1To9Printa(i,j);NextjPrintNextiEndSub(1)名称为form1的窗体上有一个命令按钮，单击命令按钮随机产生16个[10,99]范围内的随机整数且存放在四行四列的二维数组中，让用户输入两个行数，可以交换这两行的数的位置。要求：窗体文件保存为sy6-4.frm，工程文件保存为sy6-4.vbp。程序代码：PrivateSubCommand1_Click()Dima(1To4,1To4)AsIntegerFori=1To4Forj=1To4a(i,j)=Int(R
7、nd*90+10)NextjNextiFori=1To4Forj=1To4Printa(i,j);NextjPrintNextim=Val(InputBox("请输入要交换的一个行数"))n=Val(InputBox("请输入要交换的另一个行数"))Print"交换后："Fori=1To4t=a(n,i)a(n,i)=a(m,i)a(m,i)=tNextiFori=1To4Forj=1To4Printa(i,j);NextjPrintNextiEndSub(1)选作书上131页编程题第9题。程序代码：PrivateSubComman
8、d1_Click()Dima(1To6,1To6)AsVariantFori=1To6Forj=1To6Ifj=1Ori=jThena(i,j)=1ElseIfi>jThena(i,j)=a(i-1,j-1)+a(i-1,j)EndI
