VB实验三实验报告Word格式.docx

VB实验三实验报告Word格式.docx

《VB实验三实验报告Word格式.docx》由会员分享，可在线阅读，更多相关《VB实验三实验报告Word格式.docx（10页珍藏版）》请在冰豆网上搜索。

实验日期

实验目的

（1）掌握一维数组（静态、动态）定义与使用

（2）掌握二维数组（静态、动态）定义与使用

（3）掌握“控件数组”的使用

（4）掌握数组相关算法（求最值，排序，查找）

（5）通过数组巩固循环与多重循环程序设计

实验容

[实验1]对一维数组A（1to10）先赋值1、3、5、7、9、11、13、15、17、19，然后再输出。

程序运行界面如以下图所示。

（5分）

掌握一维静态数组的定义与使用

实验结果：

[实验1代码]

OptionBase1

DimA（1To10）AsInteger

PrivateSubCommand1_Click（）

DimiAsInteger

Fori=1To10

A（i）=2*i-1

Nexti

EndSub

PrivateSubCommand2_Click（）

PrintA（i）

PrivateSubForm_Load（）

[实验1典型结果]

[实验2]用Array函数对一维数组进行赋值，程序运行界面如以下图（5分）

掌握一维动态数组的定义与使用

[实验2代码]

Dima

a=Array（1,3,5,7,9,11,13,15,17,19）

Printa（i）;

[实验2典型结果]

[实验3]动态数组声明与输入输出，程序运行界面如以下图所示。

（10分）

掌握动态数组的使用

[实验3代码]

Dima（）AsInteger

n=3

ReDima（n）

a

（1）=10

a

（2）=20

a（3）=30

Printa

（1）,a

（2）,a（3）

Print"

用RedimPreservea（n）改变数组大小"

n=4

ReDimPreservea（n）

a（4）=40

Printa

（1）,a

（2）,a（3）,a（4）

[实验3典型结果]

[实验4]静态声明一个二维数组，输入和输出该数组各元素的值（10分）

要求：

1.计算并输出数组主对角线和次对角线元素的和。

2.交换1、3行后输出整个数组的值

3.交换数组的行与列后输出整个数组的值

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

[实验4代码]

[实验4典型结果]

[实验5]利用控件数组模拟拨号程序，界面设计如图4-4所示。

要求按任意一个字符，在文本框中显示，最多可拨11位数字字符，单击“重拨”按钮，重新显示原来所拨的。

建立Command1控件数组，索引为0－9；

Command2和Command3分别为“重拨”、“清屏”按钮；

Timer1控件为“重拨”服务。

掌握控件组的使用

[实验5代码]

DimnoAsString,iAsInteger

PrivateSubCommand1_Click（IndexAsInteger）

Text1.Text=Text1.Text&

Index

no=Text1.Text

Text1.Text="

"

i=1

Timer1.Interval=200

Timer1.Enabled=True

PrivateSubCommand3_Click（）

Timer1_Timer（）PrivateSubTimer1_Timer（）

Text1.Text=Text1.text&

mid（no,i,1）

i=i+1

Ifi>

Len（no）ThenTimer1.Enabled=False

[实验5典型结果]

[实验6]随机产生10个100－999之间的数以递增顺序存放在列表框中，并实现对列表框数据插入、删除等操作，使得列表框数据还是有序。

程序运行界面如以下图所示（10分）

掌握数组插入与删除操作

[实验6代码]

[实验6典型结果]

[实验7]设计一个利用简单组合框对各省、直辖市名称维护的应用程序。

添加不重复的省或直辖市到组合框中，对不正确的可修改，以按汉字码顺有序显示。

运行效果如以下图所示。

掌握数组常用算法：

插入与删除操作

[实验7代码]

[实验7典型结果]

[实验8]用比较法对数组中的元素按升序排列，程序运行界面如以下图所示。

数组排序

[实验8代码]

[实验8典型结果]

[实验9]选择法对数组中的元素按升序排列，程序运行界面如以下图所示。

[实验9代码]

[实验9典型结果]

[实验10]用冒泡对数组中的元素按升序排列，程序运行如以下图所示。

[实验10代码]

[实验10典型结果]

[选做1]利用一维数组，统计一个班学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数，生成一个各分数段的柱状图。

人数为运行时输入，成绩给定方法要求为键盘输入。

掌握控件数组的使用

[选做1代码]

[选做1典型结果]

[选做2]从键盘输入10个整数，存放在一个一维数组中，然后将前5个元素与后5个元素交换，即第1个与第10个交换，第2个与第9个交换……（5分）

掌握一维数组的使用

[选做2代码]

[选做2典型结果]

实验小结

1.遇到的问题：

2.对课程的建议：