[單項選擇題] 有如下函數過程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer
2021-07-20
[單項選擇題] 有如下函數過程： Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer DO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是調用該函數的事件過程，該程序的運行結果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub Ａ) 0 Ｂ) 25 Ｃ) 50 Ｄ) 100
A. 0
B. 25
C. 50
D. 100
正確答案：B
參考解析：本題的難點是子函數的調用過程。子函數Fun的功能是求x和y的公約數，由“歐幾里德”求最大公約數的算法可知，當余數r為0時，x為x和y的最大公約數。變量z的值通過子函數名Fun返回。
詞條內容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域專業(yè)人士。