单项选择题
单击命令按钮时,下列程序代码的执行结果为______ 。
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
点击查看答案
相关试题
有程序如下: Sub subP(b() As Inte...
有如下自定义过程: Sub test(x As In...
下列程序段的招待结果是______ 。 ...
在窗体上画一个命令按钮,然后编写如下事件...
在窗体上画一个命令按钮,然后编写如下代码...