单项选择题

下列程序的运行结果是( )。
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() HScro111.Min=0 HSero111.Max=List1.ListCount HScro111.Value=0 Timer1.Interval= Timer1.Enabled=True End SubPrivate Sub Timer1_Timer() If List1.ListCount＞0 Then List1.RemoveItem 0 HScro111.Value=HScrolll.Max-List1.ListCount Else Timer1.Enabled= End If End Sub
单项选择题
对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为( )。
A．125
B．n/2
C．n
D．n+1
相关试题