[教学][中国ppt模板网]应用法度模范界面设计.ppt

第8章 应用程序界面设计第一节 VB模块设计;2．创建通用过程 （1）使用“添加过程”对话 单击“工具”菜单中的“添加过程”命令，打开“添加过程”对话框。 ;3．调用子过程 （SUB过程）;4．调用函数过程 （Function过程）;5．函数过程使用示例;Private Sub Command1_Click() Dim i%, n% Dim s As Long n = Val(Text1.Text) s = 0 For i = 1 To n Step 2 s = s + qjc(i) Next i Label3.Caption = s End Sub;*6.子过程与函数过程区别;四、 模块结构;五、变量与过程的作用域;(1)局部变量：在过程内用Dim声明的变量，只可本过程用。 (2)窗体/模块级：在窗体/模块任何过程外定义，即在“通用声明”段用Dim或Private声明，只本窗体或模块中的过程使用。 (3)全局级：在“通用声明”段用Public语句声明的变量，可供该应用程序所有过程或函数使用。; 例如在下面一个窗体或标准模块文件中不同级的变量声明： Public Pa As integer Private Mb As string *10 Private Sub F1( ) Dim Fa As integer … End Sub Private Sub F2( ) Dim Fb As Single … End Sub;2。变量的生存期;例2（8-6）设计一个模拟幸运数字机游戏。设幸运数字为8，每次由计算机随机产生三个0—10之间的随机数，当这三个随机数中有一个数字为8时，就算赢了一次。要求利用全局变量来累计获胜次数。 （vb81L8-6);Public n, w Private Sub Command1_Click() Label1.Caption = Int(Rnd * 10) 产生随机数 Label2.Caption = Int(Rnd * 10) 产生随机数 Label3.Caption = Int(Rnd * 10) 产生随机数 n = n + 1 累计产生随机数的次数 If (Label1.Caption = 8) Or (Label2.Caption = 8) Or (Label3.Caption = 8) Then Beep w = w + 1 使用全局变量,累计获胜的次数 Label4.Caption = 共产生了 n 次随机数，你赢了 Str(w) 次。 End If End Sub;局部变量声明： Dim声明: 随过程的调用而分配存贮单元，变量的初始化；过程体结束，变量的内容自动消失，存贮单元释放。;例3 （vb81L2) Private Sub Form_Click() 运行结果： Dim i% ，isum% For i = 1 To 5 isum = sum(i) Print isum， Next i End Sub ;例4．窗体/模块级变量示例。;例5．窗体/模块级变量示例。;传址(双向传递）： 形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 默认传址。 传值（单向传递）: 形参得到的是实参的值，形参值的改变不会影响实参的值。 使用ByVal表示传值。;例6. 两个变量的交换(vb81L6);2．过程的作用域; 上机作业： 1. 编程，通过查找子过程查找数组a(10)中任意元素的位置，若没找到，给出信息。 a(10)为2，5，4，8，12，9，1，25，16，3 2。P57 4章 实验四的实验题目 3。 P66 5章 实验一的四、实验题目 4。上册 P231 例7-7 ;复 习;2。在下面一个窗体或标准模块文件中不同级的变量声明： Public Pa As integer Private Mb As string *10 Private Sub F1( ) Dim Fa As integer … End Sub Private Sub F2( ) Static Fb As Single … End Sub;8.2 公共对话框(Commo