VB实验三实验报告.docx

VB实验三实验报告.docx

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

VB实验三实验报告

VB实验三-实验报告---2016

实验报告三

课程

VB程序设计

实验项目

VB数组应用（6学时）

成绩

专业班级

国际经济与贸易1501

姓名

邓成元

学号

201531100828

实验日期

实验目的

（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（）

DimiAsInteger

Fori=1To10

PrintA（i）

Nexti

EndSub

PrivateSubForm_Load（）

EndSub

【实验1典型结果】

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

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

实验结果：

【实验2代码】

OptionBase1

Dima

PrivateSubCommand1_Click（）

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

EndSub

PrivateSubCommand2_Click（）

DimiAsInteger

Fori=1To10

Printa（i）;

Nexti

EndSub

PrivateSubForm_Load（）

EndSub

【实验2典型结果】

【实验3】动态数组声明及输入输出，程序运行界面如下图所示。

（10分）

掌握动态数组的使用

实验结果：

【实验3代码】

PrivateSubCommand1_Click（）

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）

EndSub

【实验3典型结果】

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

要求：

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

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

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

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

实验结果：

【实验4代码】

【实验4典型结果】

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

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

建立Command1控件数组，索引为0－9；Command2和Command3分别为“重拨”、“清屏”按钮；Timer1控件为“重拨”服务。

（10分）

掌握控件组的使用

实验结果：

【实验5代码】

DimnoAsString,iAsInteger

PrivateSubCommand1_Click（IndexAsInteger）

Text1.Text=Text1.Text&Index

EndSub

PrivateSubCommand2_Click（）

no=Text1.Text

Text1.Text=""

i=1

Timer1.Interval=200

Timer1.Enabled=True

EndSub

PrivateSubCommand3_Click（）

Text1.Text=""

Timer1_Timer（）PrivateSubTimer1_Timer（）

Text1.Text=Text1.text&mid（no,i,1）

i=i+1

Ifi>Len（no）ThenTimer1.Enabled=False

EndSub

【实验5典型结果】

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

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

掌握数组插入与删除操作

实验结果：

【实验6代码】

【实验6典型结果】

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

要求：

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

运行效果如下图所示。

（10分）

掌握数组常用算法：

插入与删除操作

实验结果：

【实验7代码】

【实验7典型结果】

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

（10分）

掌握数组常用算法：

数组排序

实验结果：

【实验8代码】

【实验8典型结果】

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

（10分）

掌握数组常用算法：

数组排序

实验结果：

【实验9代码】

【实验9典型结果】

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

（10分）

掌握数组常用算法：

数组排序

实验结果：

【实验10代码】

【实验10典型结果】

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

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

（5分）

掌握控件数组的使用

实验结果：

【选做1代码】

【选做1典型结果】

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

掌握一维数组的使用

实验结果：

【选做2代码】

【选做2典型结果】

实验小结

1.遇到的问题：

2.对课程的建议：