VBA综合考题.doc

(计时器： 1、有数字时钟窗体如下： 在窗口中有按钮[开/关]时钟，单击该按钮可以显示或隐藏时钟。其中按钮的名称为开关，显示时间的文本框名称为时钟，计时器间隔已设置为500。 请在空白处填入适当的语句，使程序可以完成指定的功能。 Dim flag As Integer Private Sub Form_Load() flag=1 End Sub Private Sub Timer1_Timer() 计时器触发事件过程 时钟=Time 在时钟文本框中显示当前时间 End Sub Private Sub 开关_Click() 开关按钮的单击事件过程 If ______ Then 时钟.Visible=False flag=0 Else 时钟.Visible=True flag=1 End If End Sub 标准答案为：flag=1 2、现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登陆操作，则倒计时达到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itime。事件代码如下，要求填空完成事件过程。 Option Compare Database Dim flag As Boolean Dim i As Integer Private Sub Form_Load( ) flag =______ Me.TimerInterval = 1000 i = 0 End Sub Private Sub Form_Timer( ) If flag = True And i 20 Then Me!ITime.Caption = 20 - i i =______ Else DoCmd.Close End If End Sub Private Sub OK_Click( ) 登录程序略 如果用户名和密码输入正确，则：falg=False End Sub 标准答案为：true 与 i+1 或 1+i 注释：Private Sub Form_Timer()事件用于完成20秒倒计时功能，由Me.TimerInterval=1000可知Private Sub Form_Timer()事件每1000毫秒即每秒被自动执行一次。在此事件中，当条件满足flag=True且i20满足时，则执行Me!ITime.Caption=20-i倒计时剩余时间显示语句，所以flag标记应被初始化为true，故本题第一空填True。变量i用于记录用户打开登录操作窗体后已经进行的秒数，所以本题第二空应填i+1。 (数据库编程： (1)学生成绩表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。 Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As ADODB.Field Dim shuxue As ADODB.Field Dim waiyu As ADODB.Field Dim zhuanye As ADODB.field Dim strSQL As String Set cn = CurrentProject.Connection strSQL = Select * from 成绩表 rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText Set zongfen = rs.Fields(总分) Set shuxue = rs.Fields(数学) Set waiyu = rs.Fields(外语) Set zhuanye = rs.Fields(专业) Do While ______ zongfen = shuxue + waiyu +zhuanye ______ rs.MoveNext Loop rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub 标准答案为：Not