有以下函数过程: Function Gys (ByVal x As Integer, ByVal y As Integer) As Integer Do While y<>0 Reminder =

admin2010-03-30  25

问题 有以下函数过程:    Function  Gys  (ByVal  x  As  Integer,  ByVal  y  As  Integer)  As  Integer      Do  While  y<>0        Reminder  =  x  Mod  y        x = y        y= Reminder      Loop      Gys=x    End  Function    以下是调用该函数的事件过程,该程序的运行结果是    Private  Sub  Command1_Click()      Dim  a  As  Integer      Dim b As  Integer      a = 50      b = 10      x=Gys  (a,B)Print  x    End Sub

选项 A、0
B、10
C、50
D、100

答案2

解析 本首先要读懂Gys函数过程的意思,Gys函数过程返回参数y的值,具体过程是先令参数x的值为y的值,y的值为x Mod y的值,再令Gys值为x的值,据此本题的正确结果为10,选B。
转载请注明原文地址:https://jikaoti.com/ti/cpq0FFFM
0

最新回复(0)