有一个窗体Form1,其中有命令按钮Command1,现要求单击该按钮用VBA程序打开已有的数据表“学生”,正确的命令是( )。
A.DoCmd.OpenTable学生
B.DoCmd.OpenTable"学生"
C.DoCmd.OpenForm学生
D.DoCmd.OpenForm"学生"
A.DoCmd.OpenTable学生
B.DoCmd.OpenTable"学生"
C.DoCmd.OpenForm学生
D.DoCmd.OpenForm"学生"
第1题
在窗体Form1中有按钮Button1,以下那个Click事件处理程序可以关闭该窗体?()
A.Form1.Close();
B.this.Close();
C.Button1.Close();
D.me.Close();
第2题
A.Form1.Close();
B.this.Close();
C.Button1.Close();
D.me.Close();
第3题
A.Form1.Close();
B.this.Close();
C.Button1.Close();
D.me.Close();
第4题
有一个窗体Form1,要求该窗体只能运行30s,时间一到则窗体将自动关闭。程序空白处应填写( )。
Private Sub Form_Load()
Me.TimerInterval=1000
i=0
End Sub
Private Sub Form_Timer()
______
If i=30 Then
DoCmd.CloSe
End If
End Sub
A.i=i+1 B.i=i-1
C.i=i+30 D.i=i-30
第5题
窗体中有一个命令按钮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
窗体运行后,单击命令按钮,消息框输出的结果是______。
第6题
A.0
B.5
C.6
D.7
第7题
在窗体上画一个命令按钮,然后编写如下程序:(假定变量x是一个窗体级变量) Dim x As Integer Sub inc(a As Integer) x=x+a End Sub Private Sub Command1_Click() inc 2 inc 3 inc 4 Print x; End Sub 程序执行后,单击Command1命令按钮,输出的结果是【 】。
第9题
A.-5
B.25
C.1
D.-1
第10题
Private Sub Command1_Click()
Dim a As Integer, s As Integer
a = 8
s = 1
Do
s = s + a
a = a-1
Loop While a <= 0
Print s; a
End Sub
程序运行后,单击命令按钮,则窗体上显示的内容是()。
A.7 9
B.34 0
C.9 7
D.死循环
第11题
A.Form1_NewMdiChild=new_Form1();NewMdiChild.MdiParent=this;
B. Form1_NewMdiChild=new_Form1();this.MdiChild=NewMdiChild;
C. Form. 1.MdiParent=this;
D. this.MdiChild=Form1;