vb第5章数组、列表框和组合框课件.ppt

《vb第5章数组、列表框和组合框课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、5.1数组的使用5.2控件数组5.3列表框与组合框5.4小结实例本章实例实例5.1实例5.2实例5.3实例5.4实例5.5实例5.6实例5.7实例5.8实例5.9实例5.10实例5.11【引例】计算20个数据的平均值。程序运行时随机产生20个两位整数显示在上面标签中；单击“平均值”按钮时，计算20个数据的平均值显示在下面的标签中。5.1数组的使用操作步骤1、界面设计2、编写窗体的Load事件PrivateSubForm_Load()EndSub生成20个10~99间的随机数累加20个随机数连接20个随机数，显示在标签中2、编写窗体的Lo

2、ad事件PrivateSubForm_Load()EndSub生成20个10~99间的随机数累加20个随机数连接20个随机数，显示在标签中Fori=1To20Nexti111Fori=1To20Nexti2、编写窗体的Load事件PrivateSubForm_Load()EndSub生成20个10~99间的随机数累加20个随机数连接20个随机数，显示在标签中111a=Int(Rnd*90)+10s=s+aL1.Caption=L1.Caption&str(a)RandomizePrivateSubcmdAve_Click()EndSub

3、L2.Caption=“平均值:”&s/203、编写“平均值”按钮的单击事件两个过程中都要用到，应定义成窗体级变量【修改引例】添加“大于平均值”按钮。单击“大于平均值”按钮时，将20个数据中大于平均值的数据显示在下面标签中。分析单击“平均值”按钮后才能使用“大于平均值”按钮为了找到大于平均分的各个数据，必须保存20个随机数据定义20个整型变量定义窗体级变量DimsAsIntegerDima1AsIntegerDima2AsIntegerDima20AsInteger编写窗体的Load事件PrivateSubForm_Load()End

4、Suba1=Int(Rnd*90)+10a2=Int(Rnd*90)+10a20=Int(Rnd*90)+10cmdLarge.Enabled=FalseRandomizes=a1+a2+…+a20L1.Caption=a1&a2&…&a20编写“平均值”按钮的单击事件PrivateSubcmdAve_Click()EndSubcmdLarge.Enabled=TrueL2.Caption=“平均值:”&s/20编写“大于平均值”按钮的单击事件PrivateSubcmdLarge_Click()EndSubave=s/20L2.Cap

5、tion=""Ifa1>aveThenL2.Caption=L2.Caption&Str(a1)EndIfIfa20>aveThenL2.Caption=L2.Caption&Str(a20)EndIf烦！烦！烦！思考：改进20个变量的名字为a(1)、a(2)、……、a(20)对于第i个变量，可表示为a(i)随机生成20个数据Fori=1To20a(i)=Int(Rnd*90)+10NextiFori=1To20s=s+a(i)Nexti累加20个数据连接20个数据，显示在标签中Fori=1To20L1.Caption=L1.Capt

6、ion&a(i)Nexti查找大于平均值的数据，显示在标签中Fori=1To20Ifa(i)>aveThenL2.Caption=L2.Caption&a(i)EndIfNexti改写窗体的Load事件PrivateSubForm_Load()cmdLarge.Enabled=FalseRandomizeFori=1To20a(i)=Int(Rnd*90)+10s=s+a(i)L1.Caption=L1.Caption&Str(a(i))NextiEndSub改写“大于平均值”按钮的单击事件PrivateSubcmdLarge_Clic

7、k()EndSubL2.Caption=""ave=s/20Fori=1To20Ifa(i)>aveThenL2.Caption=L2.Caption&Str(a(i))EndIfNextiDima(1To20)AsInteger包括20个变量：a(1)、a(2)、a(3)、…、a(20)均是整型若有Dima(-1To10)AsSingle包括12个变量：a(-1)、a(0)、a(1)、a(2)、a(3)、…、a(10)各变量的数据类型均是单精度型定义20个变量的方法【实例5.1】计算20个数据的总和与平均值。程序运行时随机产生20个两

8、位整数显示在上面标签中；单击“求和”或“平均值”按钮时，计算20个数据的总和或平均值，显示在下面的标签中。操作步骤（1）设计用户界面（2）定义窗体级变量Dima(1To20)AsInteger（3）编写窗体