设有如下程序： Option Base 0 Private Sub Form_Click() Dim a Dim i As Integer a = Array(1,2,3,4,5,6,7,8,9) For i = 0 To 3 Print a(5 – i); Next End Sub 程序运行后，单击窗体，则在窗体上显示的是（）
编写如下事件过程： Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer) If (Button And 3) = 3 Then Print AAAA End If End Sub 程序运行后，为了在窗体上输出 “AAAA”，应按下的鼠标键为()。
编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub一般情况下(即不按住Shift和锁定大写)运行程序，如按“A”键则输出( )。
设有以下程序片段 ： Public x% Private y$ Private Sub Command1_Click() Dim a …… End Sub Private Sub Command2_Click() Static b …… End Sub 在 Command1_Click 过程中无法访问的变量是 ________ 。
设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。
在窗体上添加一个文本框，名称为 text1 ，然后编写如下的 load 事件过程，则程序的运行结果是 __________ 。 Private Sub Form_Load Text1.Text= Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。
在窗体上画一个名称为Label1的标签，然后编写如下事件过程：Private Sub Form_Click()Dim S As IntegerS = 0For i = 1 To 15x = 2 * i - 1If x Mod 3 = 0 ThenS = S + 1End IfNext iLabel1.Caption = SEnd Sub运行程序，单击窗体，标签中显示的是________。
下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
有如下程序代码：Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序，单击窗体，输出结果是________。
在窗体上画一个名称为CD1的通用对话框，并有如下程序： Private Sub Form_Load（） CD1．DefaultExt="doc" CD1．FileName="C：＼filel．txt" CD1．Filter"应用程序(*．exe)|*．exe" End Sub 程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（）。
在窗体上设计如下两个事件过程： Private Sub Form_KeyDown（KeyCode As Integer, Shift As Integer)Print Chr（KeyCode) End Sub Private Sub Form_KeyPress（KeyAscii As Integer)Print Chr（KeyAscii) End Sub 在程序运行后，按“a”键（不按住Shift
编写如下事件过程；Private Sub Form_ MouseDown （Button As Integer, Shift As Integer, X As Si
下列程序: Private Sub Form_Click （）
设有如下窗体单击事件过程：Private Sub Form_Click（)a=1For i=1 To 3 Select Case i Case 1a=a+1
有如下程序：Private Sub Form_Click（) Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 I
阅读如下程序； Private Sub Form. Click() msg1$=“继续吗？” msg2$=“操作对话框” r=MsgBox(msg1$，vbYesNo OrvbDefaultButton2，msg2$) End Sub 程序运行后，单击窗体，将产生一个信息框。此时如果直接按回车键，则相当于用鼠标单击信息框中的【 】按钮。
在窗体上画一个文本框，名称为Text1，然后编写如下程序： Private Sub Form_Load（) Open"d:empdat.txt"For Output As 1 Text1.Text=" " End Sub Private Sub Text1_KeyPress（KeyAscii As Integer) If______=13 ThenIf UCase（Text1.Text)=____
下列程序的功能是：将数据1，2，…，10写入顺序文件Base.txt中，请填空。 Private Sub Form_Click（) Dim i As Integer Open ______ As 1 For i=1 To 10 Prin t1,i Next Close 1 End Sub
在窗体中有一个文本框Test1，编写事件代码如下：Private Sub Form_Click（）
下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub
设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下： Private Sub Command1_Click（) Dim a As Integer a=10 Call g（Form2，a) End Sub Private Sub g（f As Form, X As Integer) y=IIf（x＞,10,
在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。 Private Sub Form_Load（) Command1.Enabled=False End Sub Private Sub Text1_ ______ Command1.Enabled=True
程序如下： Private Sub Form_Click（)Const PI=3.14159Dim r As Single，S As SingleR=InputBox（"请输入圆的半径"，"输入数据"，"50")S = PI*r*rPrint "S="；Format（S，"，.") End Sub 程序运行后，单击窗体，将显示一个输入对话框，输入数据35，单击“确定”按钮后，输出结果为 【9】 。
