VB期末复的习(2015年).ppt

  1. 1、本文档共81页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB期末复的习(2015年)

VB程序设计 课程总结及复习 1.VB应用程序(工程文件)的组织结构 VB应用程序由三种模块组成: 窗体模块(Form) (文件扩展名.frm) 标准模块(Module) (文件扩展名.bas) 类模块(Class) (文件扩展名.cls) 1.3 创建应用程序的过程 VB对象的概念 VB中的类和对象 对象的属性、事件和方法 事件:发生在对象上的事情. 方法 2.2 变量与常量 变量声明 常量 2.3 运算符和表达式 Private Sub Form_Click() Dim time!, f! time = InputBox(“输入上网时间的值:) If time 10 Then f = 30 ElseIf time 50 Then f = 2.5 * time Else f = 2 * time End If If f 150 Then f = 150 Print f End Sub Private Sub Form_Click() Dim s%,a %,b %,c % For s = 100 To 999 a= s \ 100 b= s \ 10 Mod 10 c= s Mod 10 If a ^ 3 +b ^ 3 + c ^ 3 = s Then Print s; End If Next s End Sub 说明: (1)在过程中可多次使用ReDim来改变数组的大小和维数, 但不许改变类型。 (2) 使用ReDim语句将重新对数组元素进行初始化,会使原来 数组中的值丢失,可以在ReDim语句后加Preserve参数来保留数组中的数据。使用Preserve只能改变最后一维的大小,前面几维大小不能改变。 (3) ReDim中的下标可以是常量,也可以是有了确定值的变量 (4) 使用时注意下标的范围。不要越界. Private Sub Form_Click() Dim a(1 To 10) As Integer Dim i%, max%, min%, aver% For i = 1 To 10 a(i) = Int(Rnd * 71 + 30) Next i max = a(1):min = a(1):aver = a(1) For i = 2 To 10 If a(i) max Then max = a(i) If a(i) min Then min = a(i) aver = aver + a(i) Next i For i = 1 To 10 Print a(i); Next i Print Print MAX=; max; MIN=; min; AVER=; aver / 10 End Sub 插入数据 删除数据 函数过程的调用 常用控件 2.复选框(CheckBox) 3.框架 (Frame) 4. 列表框和组合框 常用方法 声明方式 Dim、static Dim、Private Public 声明位置 在过程内 窗体模块的通用声明段/标准模块的顶部位置 窗体模块的通用声明段/标准模块的顶部位置 作用范围 能被本模块的其他过程存取 不能 能 能 能被其他模块存取 不能 不能 能,但在变量名前加其它模块名 局部变量 模块变量 全局变量 (p155) 从变量的作用域来看,静态变量与局部变量相同,但从存活期来看,与局部变量不同,但与模块变量、全局变量相同。其独有的特点是: 在整个程序运行期间,只做一次初始化 在整个程序运行期间,不释放所占用的内存单元(原来的值也被保存下来) 存活期(生命周期):能保存值的时间的长短。 静态变量声明形式: Static 变量名 [ AS Type ] 当程序运行时,写出程序结果。 Private Function sum(n As Integer) Static j As Integer j = j + n: sum = j End Function Private Sub Command1_Click() Dim i%, isum% For i = 1 To 5 isum = sum(i) Print isum=; isum Next i End Sub 结果: isum=1 isum=3 isum=6 isum=10 isum=15 Private Sub Command1_Click() Dim Z% Z=Z+2

文档评论(0)

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

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

1亿VIP精品文档

相关文档