vb课程设计之数组实验报告.doc

----------------------------精品word文档 值得下载 值得拥有---------------------------------------------- ----------------------------精品word文档 值得下载 值得拥有---------------------------------------------- 实 验 报 告课 程Visual Basic程序设计实验项目数组专业班级姓 名学 号实验日期指导教师成 绩实验目的：掌握静态数组和动态数组定义及使用掌握数组元素的引用，数组的输入和输出掌握“控件数组”的使用实验内容：在名称为form1的窗体上有一个名称为shape1的形状控件画一个名称为L1的列表框，并在属性窗口中设置列表项的值为1,2,3,4,5，将窗体的标题设为“图形控件”。单击列表框中的某一项，则按照所选的值该表形状控件的形状。例如，选择3，则形状控件被设为圆形，如下图所示。要求：窗体文件保存为sy7-1.frm，工程文件保存为sy7-1.vbp.程序代码：Private Sub L1_Click() Shape1.Shape = L1.TextEnd Sub界面如上图所示，窗体上所有对象的名称属性都使用默认值。单击命令按钮时候计算出最后得分。计算方法是去掉一个最高得分和一个最低得分，求剩下得分的平均值再乘以难度系数，最后结果保留到小数点后面两位。要求窗体文件保存为sy7-2.frm，工程文件保存为sy7-2.vbp程序代码：Option Base 1Private Sub Command1_Click() Dim a As Variant a = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text), Val(Text5.Text), Val(Text6.Text)) Max = a(1) Min = a(1) For i = 2 To 6 If Max a(i) Then Max = a(i) If Min a(i) Then Min = a(i) Next i For i = 1 To 6 Sum = a(i) + Sum Next i Text8.Text = Int((Sum - Max - Min) / 4 * Text7.Text * 100) / 100End Sub名称为form1的窗体上有一个命令按钮，单击命令按钮，利用随机函数生成一个6行6列的整型数组（取值范围【10，90】）。找出摸个指定行内最大的元素所在的列号。要求：窗体文件保存为sy7-3.frm，工程文件保存为sy7-3.vbp。程序代码：Private Sub Command1_Click() Dim a(1 To 6, 1 To 6) As Integer For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 81 + 10) Next j Next i For i = 1 To 6 For j = 1 To 6 Print a(i, j); Next j Print Next i m = InputBox(请输入要所要选定的行数) Max = 1 For i = 2 To 6 If a(m, Max) a(m, i) Then Max = i Next i Print 最大元素所在列号=; MaxEnd Sub名称为form1的窗体上有一个命令按钮，单击命令按钮输入一个班10个学生的姓名和成绩，然后对学生成绩降序排序，输出排序后的成绩和学生姓名。要求：窗体文件保存为sy7-4.frm，工程文件保存为sy7-4.vbp。程序代码：Private Type student nam As String * 8 mark As IntegerEnd Type Private Sub Command1_Click() Dim a(1 To 10) As student, t As student For i = 1 To 10 a(i).nam = InputBox(请输入第 i 个学生的姓名:) a(i).mark = InputBox(请输入第 i 个学生的成绩:) Next i Print 姓名 成绩 For i = 1 To 10 Print a(i).nam; Tab(12); a(i).mark