第5章VB程序设计1.ppt

  1. 1、本文档共88页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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(

文档评论(0)

shuwkb + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档