二级二级ACCESS2010年3月全国计算机等级考试二级笔试试卷Access数据库程序设计

试卷预览

• 31在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim y As Integery = 0Doy = InputBox("y=")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;Loop Until y = 0End Sub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是

  A.37 55 64 28 19 19

  B.10 50 20

  C.10 50 20 0

  D.37 55 64 28 19

  开始考试练习点击查看答案
• 32在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

  A.2 32

  B.12 3

  C.2 2

  D.12 32

  开始考试练习点击查看答案
• 33在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim d1 As DateDim d2 As Datedl = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff(” ww”, d1, d2)End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是

  A.1

  B.2

  C.10

  D.11

  开始考试练习点击查看答案
• 34下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As StringStr=" "Docmd.RunSQL Str空白处应填入的程序代码是

  A.年龄=年龄+1

  B.Update学生 Set 年龄=年龄+1

  C.Set 年龄=年龄+1

  D.Edit 学生 年龄=年龄+l

  开始考试练习点击查看答案