单项选择题

单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click( )
Print Fun(23, 18)
End Sub
Public Function Fun(m As Integer, n As Integer) As Integer
Do Whilem ＜＞ n
Do While m ＞ n : m--m - n: Loop
Do While m ＜ n : n=n - m: Loop
Loop
Fun =m
End Function

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

单项选择题
阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (
A．;
Next
End
单项选择题
在窗体上添加一命令按钮，其名为Command1，然后编写代码如下。 private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)As Integer n=3 For i=1 To 5 an(i)=i arrl(n)=2*n+i Next Print arr1(n)；arr(n) End Sub 程序的运行结果为
A．3 11
B．11 3
C．13 3
D．3 13
相关试题