下面的表达式的值为"on"的是（   ）(提示：函数Replace(X,S,R)的功能是将字符串X中的字符串S替换为字符串R，然后返回)

A．Mid("cartoon",6,2)	B．Mid("only",2,2)
C．Replace("cartoon",catro,on)	D．Len("on")

abs(-3.8)=        sqr(49)=      int(-7.8)=

能正确判断正整数X为偶数的VB表达式为（   ）

A．X MOD 2 = 0

B．INT（X/2）= 0

C．X/2=0

D．X \ 2 ="0" Z

有一组数据23、12、56、34、10分别存放在一组变量数组a(1)―a(5)中，一下程序执行后，i的值是（   ）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) =" 23:" a(2) =" 12:" a(3) =" 56:" a(4) =" 34:" a(5) = 10
i =" 1:" f = True
Do While i <=" 5" And f = True
If a(i) =" 56" Then f = False
i =" i" + 1
Loop
Label1.Caption = i

A．6

B．3

C．4

D．5

当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为（   ）
If a<b Then
If c<d Then x="1" Else x=2  
Else
If c<d Then x=3  Else x=4  
End If

A．1

B．2

C．3

D．4