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分） 掌握的定义及使用【2 代码】 Option Base 1 Dim a Private Sub Command1_Click() a = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) 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 典型结果】 【实验3】动态数组声明及输入输出，程序运行界面如下图所示。（10分） 掌握的使用【3 代码】 Private Sub Command1_Click() Dim a() As Integer n = 3 ReDim a(n) a(1) = 10 a(2) = 20 a(3) = 30 Print a(1), a(2), a(3) n = 4 ReDim Preserve a(n) a(4) = 40 Print a(1), a(2), a(3), a(4) End Sub 【3 典型结果】 【实验4】静态声明一个二维数组，输入和输出该数组各元素的值 （10分） 要求：1.计算并输出数组主对角线和次对角线元素的和。 2.交换1、3行后输出整个数组的值 3.交换数组的行与列后输出整个数组的值 掌握的定义及使用【4 代码】 【4 典型结果】 【实验5】利用控件数组模拟电话拨号程序，界面设计如图4-4所示。要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的号码。 建立Command1控件数组，索引为0－9；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。（10分） 掌握的使用【5 代码】 Dim no As String, i As Integer Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text Index End Sub Private Sub Command2_Click() no = Text1.Text Text1.Text = i = 1 Timer1.Interval = 200 Timer1.Enabled = True End Sub Private Sub Command3_Click() Text1.Text = Timer1_Timer()Private Sub Timer1_Timer() Text1.Text=Text1.textmid(no,i,1) i=i+1 If i Len(no) Then Timer1.Enabled=False End Sub 【5 典型结果】 【实验6】随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框内数