有如下函数过程： 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 E

题目

有如下函数过程： 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))

正确答案：C
本题考查字符串连接和列表框的知识。列表框的List属性是一个数组，其各元素就是列表框中的列表项，第一个列表项对应的数组下标为0。由于列表框中的列表项和输入对话框的返回值都是字符串，在本题中使用了Val函数将其转换为数字，此时如果使用“ ”则会完成两个数字相加，故此只能使用“&”连接两个字符串。

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

执行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))

正确答案：C
解析：本题考查List Box控件属性，x$表示变量x是字符类型变量，所以从In put Box函数输入的数据123是字符类型。从List Box控件输入的数据肯定是字符类型。选中Listl中的第 1个列表项，该列表项应表示为List l．List(0)。 Val函数是将字符串转换为数值，两个数值相加的表达式运算结果是579。选项A不是本题答案，List l．List(1)是List l控件的第2个列表项，在本题中该值为空，故得到结果仍是123；选项B错误；选项C是本题答案，虽然Val函数已经将字符转换为数值，这个表达式是两个数值进行“&”运算，但“&”运算忽略参与运算项的类型，而是强行施加“连接”运算，故得到的结果是123456：选项D错误，因为 List l．List(1)不是列表框的第1个列表项，在本题中Val(List l．List(1))：0，该选项得到y值为 1230。答案为C。

第6题：

如果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

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

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

Ax+1=y

Bx：=y

Cy=x+y

D1=x

C
略

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

计算机二级

题目

相似问题和答案

相关内容