VB程序设计---数组.doc
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
Nexti
Forj=1Ton
Fori=1Tom
Printb(j,i);
Nexti
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
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