有如下程序段: Public Sub xy (a As Integer,b As lnteger) Dim t As Integer Do t=-a Mod b a=b:b=t Loop W

admin2009-01-19  33

问题 有如下程序段:
   Public Sub xy (a As Integer,b As lnteger)
     Dim t As Integer
     Do
       t=-a Mod b
       a=b:b=t
      Loop While t
      Print a
    End Sub
   用Call xy(96,40)调用该通用过程后,输出结果是  【  】  。

选项

答案8

解析 Mod是求模运算,所以t的值总是a除以b的余数。Do-Loop循环要执行若干次,每执行一次循环体,变量t、a和b都会取得一个新值,就是将上一次的除数作为下一次的被除数,将上一次a除以b的余数作为下一次的除数。当a被b整除后,结束循环的执行。用Call xy(96,40)语句调用该通用过程后,a取得数值96,b取得数值为40。xy通用过程的功能是求a和b的最大公约数。
转载请注明原文地址:https://jikaoti.com/ti/OBc0FFFM
0

最新回复(0)