二级考试Access(程序部分).ppt

11、运行下列程序，窗体中显示的结果是：x = _______ 。 Dim x As Integer Private Sub Form_Load( ) x = 3 End Sub Private Sub Command11_Click( ) Static a As Integer Dim b As Integer b = x＾2 fun1 x , b fun1 x , b MsgBox x = x End Sub Sub fun1( ByRef y As Integer , ByVal z As Integer ) y = y + z z = y - z End Sub 21 解析： 传递前： x = 3；b = 9 第1次传递： y = 12；z = 3 返回后： x = 12；b = 9 第2次传递： y = 21；z = 12 返回后： x = 21；b = 9 y地址传递，z值传递。 12、“秒表”窗体中有两个按钮（“开始/停止”按钮bOk，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。 要求：打开窗体如图1所