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中，表达式100 \ 12 mod 3的值为（  ）

A．0

B．2

C．50

D．1

表达式6*7/8 Mod 9的值是_______。

A．4

B．5

C．6

D．7

在VB中，已知a=3，b=5，运行下列程序段后，a和b的值为（  ）
a = a * b
b = a / b
a = a / b

A．a=3  b=5	B．a=15  b=3
C．a=5  b=5	D．a=5  b=3

执行VB语句s=Mid("abcdefgh",2,3)+chr(66)后，变量s的值为(    )

A．"cdB"

B．"bcd65"

C．"cdA"

D．"bcdB"