Function f(x As Long, y As Long) As Long
Dim t As Long, r As Long
If x < y Then t =" x:" x =" y:" y = t
r =" x" Mod y
Do While r <> 0
x =" y:" y = r
r =" x" Mod y
Loop
f = y
End Function
-------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim a As Long, b As Long
x = Val(InputBox("x="))
y = Val(InputBox("y="))
a =" x:" b = y
s =" f(x," y)
MsgBox (Str(a * b / s))
End Sub
当x=20，y=6时，以上程序运行后，输出结果是（   ）

A．2

B．120

C．30

D．60

在VB中，表示代数式的表达式是

A．2*a+4*b^2/a+b	B．2*a+4*b^2/(a+b)
C．(2*a+4*b^2)/a+b	D．(2*a+4*b^2)/(a十b)

赋值语句y = x的功能是________。

A．x的值赋给y，x的值变为0

B．y的值赋给x，y的值变为0

C．y的值赋给x，y保留原来的值

D．x的值赋给y，x保留原来的值

将数学表达式写成程序设计中的算术表达式为__________。

执行语句s=len(Mid(“Visual Basic”,1,6))后，s的值为______。

A．Visual

B．Basic

C．6

D．11