交换LABEL2和LABEL3中的数据
PRIVATE  SUB  FORMCLICK（ ）
LABEL2.CAPTION=90 :  LABEL3.CAPTION=86
C=LABEL2.CAPTION
________
________
END  SUB

将表达式8=9的结果赋给变量x的是（    ）

A．x=8:x=9	B．x=8=9
C．8=9=x	D．x=8 And x=9

VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机实数，若要“生成一个大于等于10且小于100的随机整数”的VB表达式是(    )

A．Int(Rnd()*100)

B．Int(Rnd()*99+1)

C．Int(Rnd()*99+10)

D．Int(Rnd()*90)+10

根据下列程序段运行后a的值 ，划线处应该填入的合理数据类型为 （ ）
Dim a As ________
a = 1
For i =" 1" To 8
a =" a" * i
Next i

A．Integer

B．Long

C．Single

D．Double

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321