下列程序中有一个按钮Command1,一个文本框Text1,其属性MultiLine=True。当单击按钮后,文本框显示【
窗体中有一个命令按钮(Command1。其Click事件过程如下。
Private Sub Command1_Click()
Dim a(10,10)
For m=1 To 4
For n=3 To 5
a(m,n)=m*n
Next n
Next m
MsgB0x a(1, 3)+a(2, 4) +a(3, 5)
End Sub
窗体运行后,单击命令按钮,消息框输出的结果是______。
窗体中有一个命令按钮Command1,其Click事件过程如下。
PriVate Sub Coranland1_Click()
For i=1 To 4
x=3
For j=2 To 3
x=3
For k=1 To 2
x=x+2
Next k
Next j
Next i
MsgBox x
End Sub
窗体运行后,单击命令按钮,消息框输出的结果是______。
窗体中有一个命令按钮Command1。其Click事件过程如下。
Sub P(b()As Integer)
For i=1 to 4
b(i)=2*i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer
For i=1 to 4
a(i)=i+4
Nexti
P a()
For i=1 to 4
MsgB0x a(i)
Next i
End Suk)
窗体运行后,单击命令按钮,消息框4次输出的结果分别是( )。
A.2 4 6 8 B.5 6 7 8 C.10 12 14 16 D.出错
A.0
B.5
C.6
D.7
B.private sub Command1_Click() Command2.Enable=true Command3.Enable=false
C.private sub Command1_Click() Command2.Enable=true Command3.Visible=false
D.private sub Command1_Click() Command2.Visible=True Command3.Enable=False
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer, y As Integer) M=IIf(x>y, x, y) End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a=100 b=200 Print M(a, B) End Sub 程序运行后,单击命令按钮,输出结果为【 】。
A.DoCmd.OpenTable学生
B.DoCmd.OpenTable"学生"
C.DoCmd.OpenForm学生
D.DoCmd.OpenForm"学生"
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
A.双击数据库窗口中的宏Macro1
B.单击登录窗体中的验证按钮Command1
C.在文本框Text1中输入密码后按<Enter>键
D.在VBA程序Module1中运行宏Macro1
A.双击数据库窗口中的宏Macro1
B.单击登录窗体中的验证按钮Command1
C.在文本框Text1中输入密码后按<Enter>键
D.在VBA程序Module1中运行宏Macro1