VB课件VB7章节幻灯片.PPTVIP

* 练习1 Dim a As Integer, b As Integer 模块级变量 Private Sub Form_click() Dim x As Integer, y As Integer a = 5: b = 3 x = x + a: y = y + b Print fun1(x, y) Print fun1(x, y) End Sub Private Function fun1(m As Integer, n As Integer) As Integer Static k As Integer 静态变量 Dim a As Integer, b As Integer 同名的过程级变量 a = a + m: b = b - n m=m+1：n=n-1 k = k + a + b fun1 = k End Function 写程序运行结果： * 7.7 程序示例 例 7-5 ★ 例 7-7 ★ 例 7-8 ★ 例 7-9 ★ 例 7-14 * 分析： 若用穷举法则涉及到的循环次数是三个数的乘积，循环次数可能很大。 可利用以下算法完成： 1、编写