单项选择题

单击命令按钮时,下列程序代码的执行结果为______ 。
Public Function MyFune(m As Integer,n As Integer) As Integer
Do While m<>n
Do While m>n
m=m-n
Loop
Do While m<n
n=n -m
Loop
Loop
MyFunc=m
End Function
Private Sub Command1_Click()
Print MyFunc(24, 18)
End Sub

A.2
B.4
C.6
D.8
<上一题 目录 下一题>
热门 试题

单项选择题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n <= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。
A.1
B.3
C.16
D.9
单项选择题
以下程序输出1到1000之间所有的偶数之和,请补充完该程序。 Private Sub Cotmand1_Click() Dim x As Double For i=0 To 1000 If______ Then x=x+ i End If Next i Print x End Sub
A.i Mod 2= 0
B.x mod 2=0
C.I mod 2<>0
D.x mod 2<>0
相关试题
  • 以下程序用于求s=1+(1+2)+(1+...
  • 下列程序的运行机结果是 【15】 。 Pr...
  • 下列程序的作用是求所有小于或等于30的自...
  • 有如下程序: Private Sub Command1_C...
  • 有程序如下: Sub subP(b() As Inte...