有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x MOd y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim aA．0B．25C．50D．100

题目

有下列函数过程： Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x MOd y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a

A．0

B．25

C．50

D．100

如果没有搜索结果，请直接联系老师获取答案。

相似问题和答案

第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}

参考答案：A

第2题：

假设已定义Integer变量x、y,则以下赋值语句正确的是( )。

A.x+1=y

B.x:=y

C.y=x+y

D.1=x

参考答案：C

第3题：

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 563

B567 567

C567 167

D567 163

正确答案：C

第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

A

第5题：

假设已定义Integer变量x、y，则以下赋值语句正确的是（）。

Ax+1=y

Bx：=y

Cy=x+y

D1=x

C
略

第6题：

下列哪个函数不是舍入函数()。

A、ROUNDUP

B、ODD

C、FLOOR

D、INTEGER

答案：D

第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题：

若m,x,y,均为Integer型变量,则执行下面语句后m值是()m=1:X=2:Y=3m=IIf(X>Y,X＋Y,X－Y)()

A.-1

B.0

C.1

D.2

正确答案：A

第9题：

下列各函数首部中，正确的是（）。

A．void play(var :Integer, var b:Integer)

B．void play(int a, b)

C．void play(int a, int b)

D．Sub play(a as integer, b as integer)

void play(int a,int b)

第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

AFT 通常由含有一个双氢呋喃环和一个氧杂萘邻酮(香豆素)的基本架构单位构成 AFT 分为黄曲霉毒素B1(AFB1)、黄曲霉毒素 B2 (AFB2) 黄曲霉毒素G1(AFG1)、黄曲霉毒素 G2(AFG2) 黄曲霉毒素M1(AFM1)、黄曲霉毒素 M2(AFM2) B1、G1的呋喃环氢键异构。M1型氢键变为羟基。 1比2呋喃环上多了一个双键。

计算机二级

题目

相似问题和答案

相关内容