VB实验三实验报告-2016精选.docVIP

实 验 报 告 三 课 程 VB程序设计 实验项目 VB数组应用(6学时) 成 绩 专业班级 国际经济与贸易1501 姓 名 邓成元 学 号 201531100828 实验日期 实验目的 （1）掌握一维数组（静态、动态）定义及使用 （2）掌握二维数组（静态、动态）定义及使用 （3）掌握“控件数组”的使用 （4）掌握数组相关算法（求最值，排序，查找） （5）通过数组巩固循环及多重循环程序设计 实验内容 【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分） 掌握一维静态数组的定义及使用 实验结果： 【实验1 代码】 Option Base 1 Dim A(1 To 10) As Integer Private Sub Command1_Click() Dim i As Integer For i = 1 To 10 A(i) = 2 * i - 1 Next i End Sub Private Sub Command2_Click() Dim i As Integer For i = 1 To 10 Print A(i) Next i End Sub Private Sub