计算机二级access笔试
(11)在VBA中,没有显式声明或使用符号来定义的变量,其数据类型默认是( )。
(12)下列程序的功能是:输入10个整数,逆序后输出,请在程序空白处填入适当语句使程序完成指定的功能。
Private Sub Command2_Click( )
Dim i, j, k, temp, arr(11) As Integer
Dim result As String
For k = 1 To 10
arr(k) = Val(InputBox(“请输入第” &k&“个数:”, “数据输入窗口”))
Next k
i = 1
j = 10
Do
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
i = i + 1
j = ( )
Loop While ( )
result = “”
For k = 1 To 10
result = result & arr(k)&Chr(13)
Next k
MsgBox result
End Sub
(13)已经设计出一个表格式窗体,可以输出教师表的相关字段信息,请按照以下功能要求补充设计:改变当前记录,消息框弹出提示“是否删除该记录?”,单击“是”,则直接删除该当前记录;单击“否”,则什么都不做,其效果图如下:
'单击“退出”按钮,关闭窗体
Private Sub btnCancel_Click( )
( )
End Sub
'表格式窗体当前记录变化时触发
Private Sub Form_Current( )
If MsgBox("是否删除该记录?", vbQuestion + vbYesNo, "确认" ) = vbYes Then
( )
End If
End Sub