实验5-数组实验.docVIP

实 验 报 告 课 程 VB程序设计 实验项目 数组程序设计I 成 绩 专业班级 石油工程2班 指导教师 耿新宇 姓 名 李彬 学 号 1101010210 实验日期 实验目的： （1）掌握静态数组和动态数组定义及使用 （2）掌握“控件数组”的使用 实验内容： 【实验1】静态声明一个二维数组，输入和输出该数组各元素的值 要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值 实验结果： （1）程序代码(粘贴程序代码到此栏目下) Private Sub Command1_Click() Print 原数组为 Dim a(0 To 4, 0 To 4) As Long For i = 0 To 4 For j = 0 To 4 a(i, j) = j + 1 + (i * 5) Print Format(a(i, j), @@@@@); Next j Print Next i Print For i = 0 To 4 For j = 0 To 4 If i = j Then sum1 = sum1 + a(i, j) If i + j = 4 Then sum2 = sum2 + a(i, j)