有如下函数过程。 Function UNC(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 S=x/y x=y y=S Loop UNC=x End Function 以下事件调用该函数,程序运行结果是 【7】 。 Private Sub Command1_Click() Dim a As Integer Dim b A
主观题
有如下函数过程。 Function UNC(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>0 S=x/y x=y y=S Loop UNC=x End Function 以下事件调用该函数,程序运行结果是 【7】 。 Private Sub Command1_Click() Dim a As Integer Dim b A