违法和不良信息举报 联系客服
免费注册 登录

有如下函数过程。 Function UNC(ByVal x As Integer,ByVal y As Integer)As Integer Do While y<>

题目

有如下函数过程。

Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer

Do While y＜＞0

S=x/y

x=y

y=S

Loop

UNC=x

End Function

以下事件调用该函数，程序运行结果是【 】。

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

a=12

b=2

x=UNC(a，b)

Print x

End Sub

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

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

链表的定位函数

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;

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

定义一个List对象list，使用ArrayList的构造方法进行初始化，并且要求list中必须全部存放Integer类型的对象，以下语句正确的是（）。

A．List list = new ArrayList＜Integer＞();

B．List list = new ArrayList ();

C．List＜Integer＞ list = new ArrayList＜Integer＞();

D．ArrayList＜Integer＞ list = new List＜Integer＞();


List list = new ArrayList ();

第6题：

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

A.x+1=y

B.x:=y

C.y=x+y

D.1=x


参考答案：C

第7题：

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

Ax+1=y

Bx：=y

Cy=x+y

D1=x


C
略

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

定义一个List对象list，使用ArrayList的构造方法进行初始化，并且要求list中必须全部存放Integer类型的对象，以下语句正确的是（）。

A．List list = new ArrayList ();

B．List list = new ArrayList＜Integer＞();

C．ArrayList＜Integer＞ list = new List＜Integer＞();

D．List＜Integer＞ list = new ArrayList＜Integer＞();


List list = new ArrayList ();

第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呋喃环上多了一个双键。

相关内容