有如下事件过程:  Function UNC (ByVal x As Integer,ByVal y As Integer) As Integer   Do While y<>0    sic=x/y    x=y    y=sic   Loop   UN

admin2013-04-11  22

问题 有如下事件过程:  Function UNC (ByVal x As Integer,ByVal y As Integer) As Integer   Do While y<>0    sic=x/y    x=y    y=sic   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

选项 A、0
B、6
C、2
D、80

答案2

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

最新回复(0)