有如下函数过程: Function gys(By Val x As Integer,ByVal y As Integer)As Integer   Do While Y<#0     preminder=x/y      x=Y

admin2012-03-22  39

问题 有如下函数过程:
   Function gys(By Val x As Integer,ByVal y As Integer)As Integer
     Do While Y<#0
       preminder=x/y
        x=Y
       y=preminder
     Loop
     gys=x
   End Function
   以下是调用该函数的事件过程,该程序的运行结果是______。
   Private Sub Command1_Click()
   Dim a As Integer,b As Integer
     a=10:b=2
     x=gys(a,b)
     Print x
     End Sub

选项

答案5

解析
转载请注明原文地址:https://jikaoti.com/ti/cgO0FFFM
0

随机试题
最新回复(0)