- 1、本文档共88页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第5章VB程序设计1
编制电视歌手大赛评分程序,要求评委人数和每位评委的打分从键盘输入,去掉一个最高分,再去掉一个最低分,求评委给出的最后得分。;第5章 VB编程1—数组应用(P48,P81~90);任务1(P81-例5-1);问题分析;新知识点----图片框、图像框;图片框主要属性;图像框的主要属性;图片设置的方法----picture属性;2、在程序执行过程中加载。
-----------loadpicture ()
;思考;两个控件的主要区别;思考与回顾;思考;主要代码;应用;Dim f1, f2, f3, i%
f1 = 1
f2 = 1
Picture1.Print f1; f2;
For i = 3 To 30
f3 = f1 + f2
Picture1.Print f3;
If i Mod 5 = 0 Then
Picture1.Print
End If
f1 = f2
f2 = f3
Next
;应用;任务1知识点小结;任务2 [例5-3];数组的基本概念(P48)
一维数组应用;数组的基本概念;例1:一个班60名学生的成绩组成一个数组G,每个学生的成绩分别表示为:
G(1),G(2),G(3),…,G(i),…,G(60)
例2:某厂5个车间全年各??度的产量组成数组P,每个车间每季度的产量分别表示为:
P(1,1),P(1,2),P(1,3),P(1,4)
P(2,1),P(2,2),P(2,3),P(2,4)
P(3,1),P(3,2),P(3,3),P(3,4)
P(4,1),P(4,2),P(4,3),P(4,4)
P(5,1),P(5,2),P(5,3),P(5,4)
;2、数组的分类:
Visual Basic中的数组,按不同的方式可分为以下几类:
按数组的大小(元素个数)是否可以改变来分为:定长数组(静态数组)、动态(可变长)数组。
按元素的数据类型可分为:数值型数组、字符串数组、日期型数组、变体数组等。
按数组的维数可分为:一维数组、二维数组、多维数组。
对象数组:菜单对象数组、控件数组。;3、数组的基本要素
(1) 数组名:数组和变量一样,也用符号名来命名。
(2) 数组的类型:数组的类型由数组元素的类型来决定。
(3) 数组的维数:数组的维数即为了区分数组元素所需顺序号的个数。
(4) 数组的大小:数组的大小即数组中包含数组元素的个数,由数组每维下标的上界和下界来决定。
;一维数组基础知识 ;2、数组结构
逻辑结构:线性表
存储结构:线性表
数组中各元素在内存占一片连续的存储空间,一维数组在内存中存放的顺序是下标大小的顺序。
;思考与应用;3、一维数组元素的引用;一维数组基本操作;Dim a(1 to 10) as integer,I as integer;在窗体中输出数组每个元素:
for i = 1 To10
Print a(i);
Next i; ;Option Base 1
Private Sub Command1_Click()
Dim i%, avg!, sum!, a(50) As Single
Dim count%
count = 0
sum = 0
For i = 1 To 50
a(i) = InputBox(请输入第 + Str(i))
Text3.Text = Text3 + Space(2) + Str(a(i))
sum = sum + a(i)
Next i
avg = sum / 50
For i = 1 To 50
If a(i) avg Then
count = count + 1
End If
Next i
Text1.Text = avg
Text2.Text = count
End Sub;回顾与应用;问题1;Dim Max As Integer,iMax As Integer
Max=A(1):iMax=1
For i = 2 To 10
If A(i)Max Then
Max=A(i)
iMax=i
End If
Next I
;问题2;思考;关键代码:
For i =1 To 10\2
t=A(i)
A(i)=A(10-i+1)
A(10-i+1)=t
Next I;问题3;思考;Dim a(1 To 11) As Integer
Dim i%, x%
从小到大的一组数据
For i = 1 To 10
a(i) = Val(InputBox(请输入 + Str(i) + 个数据))
Next
x = Val(
您可能关注的文档
最近下载
- SYT7466-2020陆上石油天然气开采水基钻井废弃物处理处置及资源化利用技术规范.docx VIP
- 2025云南保山新发展集团有限公司市场化选聘管理人员及专业技术人员6人笔试参考题库附答案解析.docx VIP
- 京东应急物流.pptx VIP
- 南龙铁路四电接口工程-站场样板工程汇报.pdf VIP
- 第五单元 第一章 第二节 线形动物和环节动物 课件人教版生物八年级上册.pptx VIP
- 衡阳红色研学三日游线路设计.pdf
- 胖东来考察报告.pptx VIP
- 【毕业论文】住宅小区供配电系统的设计(住宅小区配电设计含电气图、预算).pdf VIP
- 学前教育中的幼儿园游戏活动研究论文.docx VIP
- 管道试压检测报告.docx VIP
文档评论(0)