单项选择题

有如下函数过程：
Function Fun(ByVal x As Integer, ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是( )。
Private Sub Command1_Click()
Dima As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,B)
Print X
End Sub

A) 0
B) 25
C) 50
D) 100

<上一题目录下一题>

热门试题

单项选择题

设有命令按钮Command1的单击事件过程，代码如下： Private Sub Command1_Click() Dim a[3,3) As Integer For i=1 To 3 For j=1 To 3 a(i,j):i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是( )。

A) 20
B) 7
C) 16
D) 17

单项选择题

下列程序运行时输出的结果是( )。 Private Sub Form_Click( ) Dim a a=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”) For i=LBound(a,1) to UBound(a,1) If Left(a(i),1)= 天 Then Print a(i): Next End Sub

A) 天天向上
B) 天天向上天长地久
C) 出错信息
D) 天天向上清华大学天长地久程序设计

相关试题