下载此文档

vb程序基础第4章-数组 -.ppt


文档分类:IT计算机 | 页数:约21页 举报非法文档有奖
1/21
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/21 下载此文档
文档列表 文档介绍
vb程序基础第4章-数组 -2012032920492851(数组名)代表逻辑上相关的一批数据,每个元素用下标变量来区分;下标变量代表元素在数组中的位置。其表示形式:A(1),A(10)X(1,1),X1(1,10),X(2,10)Y(0,0,0),Y(1,2,5)VisualBasic中的数组,按不同的方式可分为以下几类:按数组的大小(元素个数)是否可以改变来分为:定长数组、动态(可变长)数组。按元素的数据类型可分为:数值型数组、字符串数组、日期型数组、变体数组等。按数组的维数可分为:一维数组、二维数组、多维数组。对象数组:菜单对象数组、控件数组。:[Dim|Private|Public]数组名([<下界>to]<上界>)[As<数据类型>]例:Dima(1to10)AsInteger‘声明了a数组有10个元素例:OptionBase1DimaNum(22)asinteger说明: 。 。 <下界>为0,若希望下标从1开始,可在模块的通用部分使用Option Base语句将设为1。其使用格式是:OptionBase0|1'后面的参数只能取0或1 例如: OptionBase1'将数组声明中缺省<下界>下标设为1 。[例4-1]打印数列1、1、2、3、5、8……中的前30项的值。(注意:数列的前两个数是1、1,从第三个数开始,它的值都是它前面的两个数之和。)方法1:用简单变量实现,N-S图如下:程序如下:PrivateSubForm_Click()Dimf1AsLong,f2AsLongDimf3AsLong,iAsIntegerf1=1:f2=1:Printf1;f2;Fori=3To30f3=f1+f2:Printf3;IfiMod5=0ThenPrintf1=f2:f2=:用下标变量实现程序如下:PrivateSubForm_Click()Dimf(30)AsLong,iAsIntegerf(1)=1:f(2)=1Fori=3To30f(i)=f(i-1)+f(i-2)NextiFori=1To30Printf(i);IfiMod5=[例4-2].下面是一个体操评分程序。5位评委,除去一个最高分和一个最低分,计算平均分。PrivateSubForm_Click()Dima(10)AsSingle,IAsInteger,maxAsSingleDimminAsSingle,sAsSinglea(1)=Val(InputBox("请输入第1位评委的分数"))max=a(1):min=a(1):S=a(1)Print"评委的分数:";a(1);ForI=2To5a(I)=Val(InputBox("请输入第"&I&"位评委的分数"))Ifmax<a(I)Thenmax=a(I)Ifmin>a(I)Thenmin=a(I)s=s+a(I):Printa(I);NextIs=s-max-min:p=s/3:PrintPrint"最高分";max,"最低分";min,"最后得分:";[例4-3].编程产生100个[0,99]的随机整数,()Dima(100)AsInteger,x(10)AsInteger,iAsInteger,pAsIntegerFori=1To100a(i)=Int(100*Rnd)Ifa(i)<10ThenPrintSpace(2);a(i);ElsePrintSpace(1);a(i);IfiMod10=0ThenPrintNextiFori=1To100p=a(i)Mod10:x(p)=x(p)+1NextiPrint:Print"统计结果"Fori="个位数为"+Str(i)+"共"+Str(x(i))+"个":[Dim|Private|Public]数组名([<下界>to]<上界>,…)[As<数据类型>] 例:Dima1(3,4)AsIntegerDimlArray(3,1to5,10)AsLong例如:Dima(2,3)AsSingle二维数组在内存的存放顺序是“先行后列”。例如数组a的各元素在内存中的存放顺序a(0,0)→a(0,1)→a(0

vb程序基础第4章-数组 - 来自淘豆网www.taodocs.com转载请标明出处.

相关文档 更多>>
非法内容举报中心
文档信息
  • 页数21
  • 收藏数0 收藏
  • 顶次数0
  • 上传人sxlw2015
  • 文件大小525 KB
  • 时间2020-08-08