VB程序设计06-1.pptVIP

第六章 过程 学习目标 变量的作用域； 过程与函数；实参、形参；值参、变参 数组：作业总结 P93-7：产生50个互不相同的10～99的随机整数，统计各数值段（10～19, 20～29…, 90~99）有多少个数？ 程序界面： 数组：作业总结 复习： Rnd函数：产生一个[a,b]之间整数的公式是 Int(rnd*(b-a+1))+a 在使用前要用Randomize函数播种，如 Randomize timer 分析： 难点：如何生成各不相同的随机整数？ 思路：模仿“洗牌”的过程 数组：作业总结 思路： 数组：作业总结 Option Base 1 Private Sub Command1_Click() Dim a%(50), b%(9), c%(90), i%, m%, n%, t% Randomize Timer For i = 1 To 90 : c(i) = i + 9 : Next i For i = 1 To 5000 m = Int(Rnd * 90) + 1 n = Int(Rnd * 90) + 1 t = c(m): c(m) = c(n): c(n) = t Next i For i = 1 To 50 a(i) = c(i) Text1 = Text1 a(i) Space(2) b(a(i) \ 10) = b(a(i) \ 10) + 1 Next i For i = 1 To 9 Text2 = Text2 b(i) Space(2) Next i End Sub 变量的作用域 变量的作用域 分类 特点：作用域不同。全局变量a可以被所有窗体访问，但必须加注窗体名，如：form1.a 变量的作用域 模块中的变量声明 工程→添加模块→新建→输入 public n%，定义一个全局变量n→文件→保存→命名为文件名.bas 优点： 在模块.bas文件中声明的全局变量，不从属于任何窗体，可直接引用 在模块.bas文件中定义的子过程或函数，不单可以为本工程使用，还可提供给其它工程使用。使用：工程→添加模块→现存→选中某个.bas文件。 过程、函数的定义 什么是过程？ VB中的过程 事件过程：如command1_click()，对象_事件名 自定义过程：子过程、函数两类 过程、函数的格式 子过程的格式 函数的格式 过程、函数的使用要点 几个要点： Public或Private一般可以省略。（在Bas文件中，一般用Public，保证其开放性） 函数强调的是返回值，其声明中的函数类型、函数体中函数名＝返回值，两者不可缺少。 无参时，过程可省略括号，但函数不行。 何时用过程？何时用函数？ 返回一个值：函数 返回多个值：过程（通过形参带回） 无返回值：过程 变参与值参 实例分析： Sub my(byval a%, byval b%, x%, byref y%) 过程，过程名称：my 参数：4个，a、b、x、y 参数类型：二类，byval的称值参，byref或省略的称变参。 值参：a, b，变参：x,y 值参：单向，只进不出。 变参：双向，既带入，又带出。 形参与实参 实例分析： Sub my(byval a%, byval b%, x%, byref y%) a~y四个形参 a=5: b=6: x=7: y=8 End Sub Private Sub Form_Click() dim t1%, t2%, t3%, t4% t1=1: t2=2: t3=3: t4=4 call my(t1, t2, t3, t4) 调用形式，t1~t4为实参 print t1, t2, t3, t4 End Sub 调用过程：实、形结合→值参单向，变参双向→实、形再次结合。结果：1，2，7，8。 应用示例：函数 简单应用示例：分别用函数和过程，实现由两个直角边a、b，求第三条斜边c的计算。 程序1：用函数实现 Function f( byval x#, byval y#) as double f=sqr(x*x+y*y) End Function Private Sub Form_Click() dim a#, b#, c# a=val(text1) : b=val(text2) c=f(a,b) text3=c End Sub 示例：用过程实现同一问题 程序2：用过程实现 Sub qxb( byval x#, byval