1、实 验 报 告课 程 Visual Basic 程序设计 实验项目 数组专业班级 姓 名 学 号实验日期 指导教师 成 绩实验目的：(1) 掌握静态数组和动态数组定义及使用(2) 掌握数组元素的引用，数组的输入和输出(3) 掌握“控件数组”的使用实验内容：(1) 名称为 form1 的窗体上有一个命令按钮，请单击命令按钮，利用一维数组，统计一个班 20 名学生成绩 059，6069，7079，8089，90100 各分数段的人数。要求：（1）学生成绩通过随机函数 Rnd 产生，先输出同学成绩（每行 5 个） ，后输出统计结果。（2）用 Option Base 1 定义数组下界。（3）窗体文件保
2、存为 sy6-1.frm，工程文件保存为 sy6-1.vbp.程序代码:Option Base 1Private Sub Command1_Click()X1 = 0: X2 = 0: x3 = 0: x4 = 0: x5 = 0Dim a(20) As IntegerFor i = 1 To 20a(i) = Int(Rnd * 101)If a(i) = 0 And a(i) = 60 And a(i) = 70 And a(i) = 80 And a(i) = 90 And a(i) j Thena(i, j) = a(i - 1, j - 1) + a(i - 1, j)End IfNext jNext iFor i = 1 To 6For j = 1 To 6Print a(i, j);Next jPrintNext iEnd Sub
