有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End SubA．0B．25C．50D．100
有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End Sub
A．0
B．25
C．50
D．100
相关考题：
program exam(output); var x,y,x:integer; proedure silly(x:integer;vary:integer); begin x:=5;y:=6;z:=3; writeln(x,y,z) end; begin x:=1;y:=2;z:=3; silly(x,y); writeln(x,y,z) end. 以上程序运行结果为(). A567 563B567 567C567 167D567 163
执行x=InputBox(”请输入x的值”)时，在弹出的对话框中输入l2，在列表框Listl选中第一个列表项，假设该列表项的内容为34，使Y的值是1234的语句是（ ）。A)y--Val(x) Val((Listl．List(0)B)y=Val(x) Val(Listl．List(1))C)y=Val(x)Val(Listl．List(O))D)y=Val(x)Val(Listl．List(1))
如果Add函数的调用代码为:func main() {var a Integer = 1var b Integer = 2var i interface{} = asum := i.(Integer).Add(b)fmt.Println(sum)}则Add函数定义正确的是() A.type Integer intfunc (a Integer) Add(b Integer) Integer { return a + b}B.type Integer intfunc (a Integer) Add(b *Integer) Integer { return a + *b}C.type Integer intfunc (a *Integer) Add(b Integer) Integer { return *a + b}D.type Integer intfunc (a *Integer) Add(b *Integer) Integer { return *a + *b}
链表的定位函数loc(I:integer):pointer; {寻找链表中的第I个结点的指针}procedure loc(L:linklist; I:integer):pointer;var p:pointer;j:integer;
执行x$=In put Box(“请输入x的值”)时，在弹出的对话框中输入123，在列表框Listl选中第一个列表项，该列表项的内容为456，使y的值是123456的语句是( )。A．y=Val(x$)＋Val(List l．List(0))B．y=Val(x$)＋Val(List l．List(1))C．y=Val(x$)Val(List l．List(0))D．y=Val(x$)Val(List l．List(1))
8、下面哪些是将分数化为浮点数的正确定义？A.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = a/b###SXB###B.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = (fromInteger a)/ (fromInteger b)###SXB###C.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = fromInteger (a/b)###SXB###D.type Fraction = (Integer, Integer) rateq :: Fraction - Float rateq (a,b) = (fromIntegral a)/ (fromIntegral b)###SXB###E.ty
11、下面哪些定义是类型正确的？A．f :: (Integer, Integer) - Float f (x,y) = x / yB．f :: (Integer, Integer) - Float f (x,y) = (fromInteger x) / (fromInteger y)C．f :: (Integer, Integer) - Float f (x,y) = 3*x + yD．f :: (Integer, Integer) - Integer f (x, y) = 3*x + y