二级考试Acess(程序部分.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值传递。 碘泳胀鬃袋眷宣倔睫巳各蕾捂卫腋堵全埋积厚尹矽刮臻丈色浸范换糯娃误二级考试Access(程序部分)二级考试Access(程序部分) 12、“秒表”窗体中有两个按钮（“开始/停止”按钮bOk，“暂停/继续”按钮bPus）；一个显示计时的标签lNum；窗体的“计时器间隔”设为100，计时精度为0.1秒。 要求：打开窗体如图1所示；第一次单击“开始/停止”按钮，从0开始滚动显示计时（见图2）；10秒时单击“暂停/继续”按钮，显示暂停（见图3），但计时还在继续；若20秒后再次单击“暂停/继续”按钮，计时会从30秒开始继续滚动显示；第二次单击“开始/停止”按钮，计时停止，显示最终时间（见图4）。若再次单击“开始/停止”按钮可重新从0开始计时。 小搞难锹匡品锻净旋郎去摆斩啤璃荡阁捣欢呵鸦托六岔展挎嚎洪渍虾肇跃二级考试Access(程序部分)二级考试Access(程序部分) 图1 图2 图3 图4 寺凹浆自烃抢佳洱惰巢逝瞩嚷横漫赂厩些蚤蚂侯肮跳绿岭幢腻山楷漱揖村二级考试Access(程序部分)二级考试Access(程序部分) 相关的事件程序如下。请在空白处填入适当的语句，使程序可以完成指定的功能。 Option Compare Database Dim flag , pause As Boolean Private Sub bOK_Click( ) flag = ________ Me!bOK.Enabled = True Me!bPus.Enabled = flag End Sub Private Sub bPus_Click( ) pause = Not pause Me!bOK.Enabled = Not Me!bOK.Enabled End Sub Not flag 牧嘱台财蓟震锯丰噪哼蛹洼蜗遂赐怔思湍衷土蹄佣响这正敞碧讯强档抗伙二级考试Access(程序部分)二级考试Access(程序部分) 解析： ①flag标志“开始/停止”按钮的状态；pause标志“暂停/继续”按钮的状态。初始时flag和pause的值均为False；以后每按一次按钮，其标志就取反一次。 ②flag和pause的值与计时有以下关系： flag False True True pause False False True 计时状态 停止计时 计时 暂停 计时仍在进行 噶固菩霖戈牵咬糙戌娜难疼旧勾蹄留反秦咐太枢菲川敲弃沃秘沏哨喘旱蚁二级考试Access(程序部分)二级考试Access(程序部分) Private Sub Form_Open( Cancel As Integer ) flag = False pause = False Me!bOK.Enabled = True Me!bPus.Enabled = False End Sub 烬旦蛛搪摈毡姥邀掐耀狂苑列陷恳痔坤禹署童哄爆倪楔虏逝啦孪出伤哀盅二级考试Access(程序部分)二级考试Access(程序部分) Private Sub Form_Timer( ) Static count AS Single If flag = Tr