有如下函数过程。
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
第1题:
执行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))
第2题:
A.x+1=y
B.x:=y
C.y=x+y
D.1=x
第3题:
A567 563
B567 567
C567 167
D567 163
第4题:
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第5题:
执行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))
第6题:
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}
第7题:
链表的定位函数
loc(I:integer):pointer; {寻找链表中的第I个结点的指针}
procedure loc(L:linklist; I:integer):pointer;
var p:pointer;
j:integer;
begin
p:=L.head; j:=0;
if (I>=1) and (I<=L.len) then
while j<I do begin p:=p^.next; inc(j); end;
loc:=p;
end;
第8题:
A.-1
B.0
C.1
D.2
第9题:
假设已定义Integer变量x、y,则以下赋值语句正确的是()。
Ax+1=y
Bx:=y
Cy=x+y
D1=x
第10题:
11、下面哪些定义是类型正确的?
A.f :: (Integer, Integer) -> Float f (x,y) = x / y
B.f :: (Integer, Integer) -> Float f (x,y) = (fromInteger x) / (fromInteger y)
C.f :: (Integer, Integer) -> Float f (x,y) = 3*x + y
D.f :: (Integer, Integer) -> Integer f (x, y) = 3*x + y