有如下函数过程:  Function HFC(ByVal x AS Integer,ByVal y As Integer)As Integer    Do While y < > 0      sic=x/y      X=y      y=sic    

admin2009-01-15  30

问题 有如下函数过程:  Function HFC(ByVal x AS Integer,ByVal y As Integer)As Integer    Do While y < > 0      sic=x/y      X=y      y=sic    Loop    HFC=x  End Function  以下是该函数的调用过程,该程序的运行结果是  Private Sub Command1 _ Click( )    Dim a AS Integer    Dim b As Integer    a=12    b=2    x=HFC(a,B)Print x  End Sub

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

答案2

解析 本题考查函数调用和输出格式的语句。调用HFC的过程如下:
  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://jikaoti.com/ti/b380FFFM
0

相关试题推荐
最新回复(0)