VB实验三实验-2016介绍.doc

实 验 报 告 三 课 程 VB程序设计 实验项目 VB数组应用(6学时) 成 绩 专业班级 国际经济与贸易1501 姓 名 邓成元 学 号 201531100828 实验日期 实验目的 （1） （） （） （4）掌握数组相关算法（求最值，排序，查找） （5）通过数组巩固循环及多重循环程序设计 实验内容 【实验1】对一维数组A(1 to 10)先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。程序运行界面如下图所示。（5分） 掌握的定义及使用【】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 Form_Load() End Sub 【】 【实验2】用Array函数对一维数组进行赋值，程序运行界面如下图（5分） 掌