单项选择题

下列程序的运行结果是( )。
Private Function myfun(m，n)
Do While m＞n
Do While m＞n:m=m-n:Loop
Do While n＞m:n=n-m:Loop
Loop
myfun=m
End Function
Private Sub Command1_Click()
Print myfun(9，8)
End Sub

A．2
B．1
C．4
D．3
<上一题 目录 下一题>
热门 试题

单项选择题
某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。 Private Sub Command2_Click() HScroll1.Min=0 HScroll1.Max=List1.ListCount HScroll1.Value=0 Timer1.Interval= Timer1.Enabled=True End Sub Private Sub Timer1_Timern If List1.ListCount＞0 Then List1.RemoveItem 0 HScroll1.Value=HScroll1.Max--Listl.ListCount Else Timer1.Enabled= MsgBox 全部删除! End If End Sub
单项选择题
在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2，4，6，8，10，12) For i=1 To 6 If X(i)＞c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Print d End Sub 程序运行后，单击命令按钮，则在窗体上输出的结果为( )。
A．10
B．12
C．16
D．20
相关试题