VB程序设计---数组.docVIP

VisualBasic程序设计A

实验报告

题目：数组

院〔部〕：管理工程学院

专业：

班级：

姓名：

学号：

指导教师：

实验目的：

1、理解数组的用途和存放形式。

2、掌握一维数组和二维数组的定义及引用方法；

3、掌握动态数组的定义和使用；

4、能应用数组解决一些常见问题。

实验任务：

1、输入一行文字，统计其中大写字母、小写字母、空格、数字及其他字符各有多少个？

2、随机产生10个任意的二位正整数存放在一维数组中，求数组的最大值、平均值、能实现将数据按升序排列，并且使用InputBox函数插入一个新数据，使数组仍按升序排列，结果显示在图片框中，程序运行情况如图3-1所示。

图3-1程序运行界面

3、编写程序，实现矩阵转置，即将一个n行m列的矩阵的行和列交换。

4、从键盘上为2行3列数组输入任意整数值，显示该数组，找出数组中的最大元素及其下标。

实验要求：

1、上机完成以上实验任务，在实验报告中参加程序运行后的界面截图。

2、实验任务中的窗体标题为设计界面中的内容加下划线加各自姓名，例如：实验任务2中设计界面中标题内容为：“数组应用实例”，修改后为“数组应用实例_张三”。

3、将实验中的详细事件过程〔即代码窗口的代码〕手写到实验报告中。

实验内容：

实验3程序代码：

PrivateSubForm_Load()

Constm=2

Constn=3

Dima(m,n)AsInteger,b(n,m)AsInteger

Dimi%,j%,x%

Fori=1Tom

Forj=1Ton

x=Int(Rnd*10):a(i,j)=Val(x)

b(j,i)=a(i,j)

Printa(i,j);

Nextj

Print

Nexti

Forj=1Ton

Fori=1Tom

Printb(j,i);

Nexti

Print

Nextj

EndSub

实验4程序代码：

PrivateSubForm_Click()

Dima(2,3)AsInteger,i%,j%,max%,m%,n%

Fori=1To2

Forj=1To3

a(i,j)=InputBox(请输入一个正整数)

Printa(i,j);

Nextj

Print

Nexti

max=a(1,1)

m=1:n=1

Fori=1To2

Forj=1To3

Ifa(i,j)maxThenmax=a(i,j):m=i:n=j

Nextj

Nexti

Print最大值是;max;下标是;m;n

EndSub