[单项选择题] 有如下函数过程:Function Fun(By Val x As Ingeger,ByVal y As Integer)As Integer  Do While…Y<>0

[单项选择题] 有如下函数过程:Function Fun(By Val x As Ingeger,ByVal y As Integer)As Integer  Do While…Y<>0,第1张

[单项选择题] 有如下函数过程: Function Fun(By Val x As Ingeger,ByVal y As Integer)As Integer   Do While…Y<>0

[单项选择题] 有如下函数过程: 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

A.0

B.25

C.50

D.100

正确答案:

B

参考解析:

本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数,由“欧几里德”求最大公约数的算法可知,当余数r为0时,x为x和y的最大公约数。变量x的值通过子函数名Fun返回。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5589475.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-14
下一篇 2022-12-15

发表评论

登录后才能评论

评论列表(0条)

保存