VB课件含具体例子第9章过程幻灯片.pptVIP

例题9-24 Private Sub Command1_Click() Dim x As Integer x = x + 1: Print x End Sub Private Sub Command2_Click() Static x As Integer x = x + 1: Print x End Sub 单步调试 连续3次单击命令按钮1的运行结果: 1 1 1 连续3次单击命令按钮2的运行结果: 1 2 3 9.6 变量、过程的作用域 9.6.4 综合示例 [例题9-25] [例题9-26] [例题9-27] [例题9-28] [例题9-29] 例题9-25 Option Explicit Private x1 As Integer, x2 As Integer Private Sub Form_Click() x1 = 1: x2 = 1 test1 x1, x2 Print x1; x2 test2 x1 * 1, (x2) Print x1; x2 End Sub Sub test1(ByVal a As Integer, b As Integer) a = a + 1 b = b + 1 End Sub 单步调试 Sub test2(a As Integer, b As