题目内容
（请给出正确答案）
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码：
MsgBox f(24，18)End Sub
Public Function f(m As Integer，n As Integer)As"integerDo While m＜＞n
Do While m＞n m=m-n
Loop
Do While m＜n
n=n-m
Loop
Loop
f=m
End
Function
窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。
A.2
B.4
C.6
D.8
答案
C
C。【解析】本题第一个内层循环，m的值为24-18=6，n的值为18；第二个内层循环l，m的值为6，n的值为18-6=12；第二个内层循环2，In的值为6，n的值为12-6=6。
如果结果不匹配，请 联系老师 获取答案
更多“在窗体中添加一个名称为Commandl的命令按钮，然后编写如…”相关的问题
.jpg){kind=spacer}
请在【 】和【 】处填入适当内容，将程序补充完整。 Private Sub Form_load() List1.Addltem"北京" List1.Addltem"上海" List1.Addltem"河北" End Sub Private Sub【 】() Label1.Caption=【 】 End Sub
.jpg){kind=spacer}
.jpg){kind=spacer}
Private Sub Combo1【 】(KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1；ListCount-1 If Combo1．Text=【 】Then LabeCaption="输入项已在组合框中" Exit Sub End If Next i LabeCaption="已成功添加输入项" Combo1．【 】Combo1．Text End If End Sub
.jpg){kind=spacer}
如果存在，则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。 Private Sub Combo1【 】(Key Ascii As Integer) If Key Ascii=13 Then For i=0 TO Comb01.ListCount-1 If Combo1.Text=【 】Then LabelCaption=“输入项已在组合框中” Exit Sub End If Next i LabelCaption=“已成功添加输入项” Combo1.【 】Combo1.Text End If End Sub
.jpg){kind=spacer}
在窗体上画一个标签(名称为Label1)和一个计时器(名称为Timer1)，然后编写如下几个事件过程： Private Sub Form_Load() Timer1.Enabled=False Timer1.Interval=【 】 End Sub Private Sub Form_Click() Timer1.Enabled=【 】 End Sub Private Sub Timer1_Timer() Label1.Caption=【 】 End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次(见图)。请填空。
.jpg){kind=spacer}
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在【 】处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled=False End Sub Private Sub Text1【 】() Command1.Enabled=True End Sub
