1、姓 名李彬学 号1101010210实验日期实验目的：（1）掌握静态数组和动态数组定义及使用（2）掌握“控件数组”的使用实验内容：【实验1】静态声明一个二维数组，输入和输出该数组各元素的值要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值 实验结果：（1）程序代码（粘贴程序代码到此栏目下）Private Sub Command1_Click（）Print 原数组为Dim a（0 To 4, 0 To 4） As LongFor i = 0 To 4 For j = 0 To 4 a（i, j） = j + 1 + （
2、i * 5） Print Format（a（i, j）, ）; Next j PrintNext iPrint If i = j Then sum1 = sum1 + a（i, j） If i + j = 4 Then sum2 = sum2 + a（i, j）主对角线之和为： & sum1次对角线之和为： sum2一三行交换后的数组 t = a（0, j）: a（0, j） = a（2, j）: a（2, j） = t行列交换后的数组 Print Format（a（j, i）, End Sub（2）运行结果窗体（截取运行结果图粘贴到此栏目下）【实验2】利用一维数组，统计一个班学生成绩059，
3、6069，7079，8089，90100各分数段的人数，生成一个各分数段的柱状图或曲线图（2选1）。人数为运行时输入，成绩给定方法要求为键盘输入。Dim a（5 To 10） As IntegerFor i = 1 To 20 S = Val（InputBox（输入 i & 位学生成绩） If S = 60 And S = 100 Then k = S 10 a（k） = a（k） + 1 Else a（5） = a（5） + 1 End Ifa（9） = a（9） + a（10）For j = 0 To 4 Shape1（j）.Height = a（5 + j） * 150 Shape1（j
4、）.Top = 4680 - a（5 + j） * 150 Label6（j）.Caption = a（5 + j） Label6（j）.Top = 4680 - a（5 + j） * 160Next j【实验3】从键盘输入10个整数，存放在一个一维数组中，然后将钱5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换（1）程序代码Dim a（1 To 10） As IntegerFor i = 1 To 10 a（i） = Val（InputBox（请输入数据 Print Format（a（i）, If i = 5 Then t = a（i） a（i） = a（10 - i + 1） a（10 - i + 1） = t End If Print Format（a（i）, （2）运行结果窗体实验小结：（1）遇到的问题：（2）解决的方法：（3）意见和建议：
