预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共76页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

5.1数组方法1:把10个学生的成绩均赋值给一个变量。分析表明: 程序中采用一个变量a,只能保存最后一个学生成绩,无法保存所有学生成绩,因此,在统计高于平均分人数时,不得不重复输入成绩, 这种方法存在着: (1)重复录入数据:用户输入数据的工作量成倍增加; (2)容易出错:若本次输入的成绩与上次不同,则统计的结果不正确。如果使用:A1,A2,A3,A4,A5,A6,A7,A8,A9,A10如果使用:A1,A2,A3,A4,A5,A6,A7,A8,A9,A10方法3:用数组实现5.1数组5.1数组5.1数组1.一维数组1、静态数组说明 ①数组名的定义同变量,以字母开头,不能使用VB中的关键字,且尽可能有意义。例如: Dimx(10)AsSingle正确 DimSub(20)AsLong 错误 DimMath(1To8)AsSingle 正确 Dim5X(20)AsLong 错误说明: ②数组的维界定义必须为常量或符号常量,或是常量表达式,不能是变量或其表达式。例如: Constkasinteger=10 Dimx(10)AsSingle正确 Dima(k)aslong 正确 DimB(5+3)asString 正确 而Dimx(n)AsSingle 错误 ③维界的形式是:[下界To]上界 1、当[下界To]缺省时,下界默认值为02、下界≤上界3、数组元素的个数是:上界-下界+14、维界说明如果不是整数,将按四舍五入处理。④As<数据类型>用来说明数组元素的类型,缺省为变体型(Variant)。⑤数组必须先声明后使用。静态数组注意事项 (1)维说明中下界和上界只能取直接常量或直接常量表达式,符号常量和符号常量表达式,不能为变量或包含变量的表达式。 (2)下界维说明可以省略,默认从0开始 Dimx(6)AsString*6 (3)维说明中使用的常量可以为小数,系统自动四舍五入。 Dimx(1To4.3+2)AsInteger静态数组注意事项 (4)用“OptionBase1”可设定数组元素下界为1,将下界默认值从0改为1。 N只能取0,1两个值。该语句只能放在窗体或模块的通用声明段中。 (5)静态数组在同一过程中只能声明一次 (6)声明数组后,各数组元素的初值与声明普通变量相同。 (7)声明数组和声明变量一样,数组也有作用范围。 PravateSubForm_Click() …… PrintA(2) …… EndSub7.2数组元素的引用例5-1用InputBox函数向数组a中输入10个整数,找出其中最大值、最小值以及他们对应的数组元素的下标Fori=2To10 Ifa(i)>maxThen max=a(i):p=i EndIf Ifa(i)<minThen min=a(i):k=i EndIf Nexti Print"max=a("&p&")="&max Print"min=a("&k&")="&min EndSub例5-2用Rnd函数产生30个[50,100]区间的随机整数放入数组,计算平均值,输出大于平均值的所有的数及下标。PrivateSubForm_Click() Dims(30,5)AsInteger,i%,j% Fori=1To30 Forj=1To4 s(i,j)=Int(51*Rnd)+50 s(i,5)=s(i,5)+s(i,j) Nextj s(i,5)=s(i,5)/4 Nexti Print"学号","数学","英语","物理","化学","总评" Fori=1To30 Printi, Forj=1To5 Prints(i,j), Nextj Print Nexti EndSub 5.1数组的概述7.1数组的概述7.1数组的概述5.1数组5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1数组的概述5.1.1数组的概述5.1.1数组的概述5.1.1数组的概述5.1数组的概述5.1数组的概述5.1.2数组元素的赋值方法5.1.2数组元素的赋值方法5.1.2数组元素的赋值方法PrivateSubForm_Click() Dimx(),a%(1To3,1To3),i%,j% x=Array(1,2,3,4,5,6,7,8,9) Fori=LBound(x)ToUBound(x) a(1+i\3,1+iMod3)=x(i) Nexti Fori=1To3 Forj=1To3 Printa(i,j); Nextj Print Nexti EndSub5.1.2数组元素的赋值方法5.1.2数组元素的赋值方法例5-7用文本框输入一组英文单词,统计单词个数,找出排在最前面和最后面的单词。5.1.3输出数组元素的方法例