题目内容
（请给出正确答案）
（24）若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是
A）只能为"进入"事件和"单击"事件编写事件过程
B）不能为"进入"事件和"单击"事件编写事件过程
C）“进入”事件和“单击”事件执行的是同一事件过程
D）已经为“进入”事件和“单击”事件编写了事件过程
如果结果不匹配，请 联系老师 获取答案
更多“（24）若在窗体设计过程中，命令按钮Command0的事件属…”相关的问题
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮，并有以下事件过程：
Private Sub Commandl一Click()
x!==Val(Textl．Text)
Select Case x
Casc Is＜-10，Is＞=20
Print“输入错误”
Case Is＜0
Print 20 x
Case ls＜10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时，如果存文本框中输入一5，则单击命令按钮后的输出结果是
A．5
B．20
C．25
D．输入错误
以下不是运行宏组中的操作是()。
A．调用“宏组名．宏”
B．从“宏”设计窗体中运行宏，单击工具栏上的“运行”按钮
C．从“工具”菜单上选择“宏”选项，单击“运行宏”命令，再选择或输入要运行的宏组里的宏
D．使用Docmd对象的RunMarco方法，从VBA代码过程中运行
在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A．旅游景点：长城故宫
B．旅游景点：长城颐和园
C．旅游景点：颐和园
D．旅游景点：故宫
请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Forml的窗体上画出包含三个命令按钮的控件数组，名称为cmdl，下标分别为0、1、2，Caption分别为“开始”、“停止”和“退出”，如图3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图3(b) 所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上画两个名称分别为Command1和Command2、标题分别为“打开”和“保存”的俞令按钮，和一个名称为CD1的通用对话框，如图4所示。请在属性窗口中设置CD1的属性，使得打开通用对话框时，其初始路径是“C:\”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。
（24 ）在窗体上画 1 个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为
A ）
2 0 0
0 4 0
0 0 6
B ）
2 0 4
0 4 0
4 0 6
C ）
2 3 0
3 4 0
0 0 6
D ）
2 0 0
0 4 5
0 5 6
在窗体上画一个名称为Commandl的命令按钮。有下列程序： Option Base 1 Private Sub Command1_Click() Dim a a=Array(45，27，34，24，91，37，11，67，82，63) For i = 1 To 9 For i = i + 1 To 10 If a(i)＞ a(j)Then a1 = a(i) a(i) = a(j) a(j) = a1 End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub 程序运行后，单击命令按钮，则窗体上第2行和第3行显示的内容是
A．27和34
B．34和24
C．45和63
D．24和27
A.RunApp
B.RunCode
C.RunMacro
D.RunCommand
（24 ）窗体上有一个 Text1 文本框，一个 Command1 命令按钮，并有以下程序
Private Sub Commandl_Click （）
Dim n
If Text1.Text＜＞ " 23456 " Then
n=n ＋ 1
Print " 口令输入错误 " & n & " 次 "
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击 “ 确认口令 ” 命令按钮 ， 若输入的口令不是 “ 123456 ” ，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是
A ）在 Dim n 语句的下面添加一句： n=O
B ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " +n+ " 次 "
C ）把 Print " 口令输入错误 " & n & " 次 " 改为 Print " 口令输入错误 " &Str (n ) & " 次 "
D ）把 Dim n 改为 Static n
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
.jpg)
编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
A．4
B．6
C．8
D．12
