有如下函数过程。 Function UNC(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 S=x/y x=y y

admin2010-03-30  28

问题 有如下函数过程。
   Function UNC(ByVal x As Integer,ByVal y As Integer)As Integer
     Do While y<>0
        S=x/y
        x=y
        y=S
     Loop
     UNC=x
   End Function
   以下事件调用该函数,程序运行结果是【  】。
   Private Sub Command1_Click()
   Dim a As Integer
   Dim b As Integer
      a=12
      b=2
      x=UNC(a,b)
      Print x
   End Sub

选项

答案6

解析 本题考查函数调用和输出格式的语句。调用UNC的过程如下:
   x=12,y=2时,sic=6,x=2,y=6:
   x=2,y=6时,sic=0,x=6,y=0;
   y=0,所以跳出循环,输出x=6并结束程序。注意:过程的定义和调用。
转载请注明原文地址:https://kaotiyun.com/show/oO1p777K
0

最新回复(0)