VB实验三 实验报告 - 2016

实验报告三

实验目的

（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 T o 10) As Integer

Private Sub Command1_Click()

Dim i As Integer

For i = 1 T o 10

A(i) = 2 * i - 1

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer

For i = 1 T o 10

Print A(i)

Next i

End Sub

Private Sub Form_Load()

End Sub

【实验1 典型结果】

【实验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 T o 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)

Print "用Redim Preserve a(n)改变数组大小"

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.交换数组的行与列后输出整个数组的值

12345678910111213141516171819202122232425⎡⎤

⎢⎥⎢

⎥⎢⎥⎢

⎥⎢⎥⎢⎥⎣⎦

掌握二维数组的定义及使用

实验结果：

【实验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)

T ext1.T ext = T ext1.T ext & Index

End Sub

Private Sub Command2_Click()

no = T ext1.T ext

T ext1.T ext = ""

i = 1

Timer1.Interval = 200

Timer1.Enabled = True

End Sub

Private Sub Command3_Click()

T ext1.T ext = ""

Timer1_Timer()Private Sub Timer1_Timer()

T ext1.T ext=T ext1.text&mid(no,i,1)

i=i+1

If i >Len(no) Then Timer1.Enabled=False

End Sub

【实验5 典型结果】

【实验6】随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框内数据插入、删除等操作，使得列表框内数据还是有序。程序运行界面如下图所示（10分）

掌握数组插入与删除操作

实验结果：

【实验6 代码】

【实验6 典型结果】

【实验7】设计一个利用简单组合框对各省、直辖市名称维护的应用程序。要求：添加不重复的省或直辖市到组合框中，对不正确的可修改，以按汉字内码顺有序显示。运行效果如下图所示。（10分）

掌握数组常用算法：插入与删除操作