实验报告-数组程序设计(4学时).docxVIP

西南石油大学实验报告课程VB程序设计实验项目数组程序设计1专业年级2013级机械工程（卓越班）指导教师张淮鑫成绩姓名韦瑜学号201303010516实验日期2014-04-30一、实验目的：（1）掌握静态数组的定义（2）掌握数组的初始化和数组的赋值（3）掌握控件数组的使用（4）掌握使用数组的常用算法二、实验内容：【实验1】已知10个数为53、67、42、89、65、8、98、67、54、36，编写程序，使用array函数存储这10个数并求和。（1）编写代码Private Sub Form_Click()Dim a As Varianta = Array(53, 67, 42, 89, 65, 8, 98, 67, 54, 36)Sum = 0For i = 0 To UBound(a)Sum = Sum + a(i)Next iFor i = 0 To UBound(a)Print a(i); ;Next iPrintPrint sum=; SumPrintEnd Sub（2）运行效果【实验2】编写程序，定义二维静态数组，分别计算下列矩阵两条对角线元素之和。（1）编写代码Option Base 1Private Sub Form_click()Dim a(3, 3) As Integer, sum1 As Integer, sum2 As IntegerFor i = 1 To 3