有如下函数过程: Function gys(ByVal x As Integer,ByVal y As Integer) As Integer Do While y<>0 reminder = x

admin2010-03-30  35

问题 有如下函数过程:    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 Command7_Click()            Dim s As Integer            Dim b As Integer            a=100            b=25            x=gys(a,B)Print x    End Sub

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

答案2

解析
转载请注明原文地址:https://kaotiyun.com/show/w71p777K
0

最新回复(0)