在VB中，如果定义变量X的值为4，变量Y的值为3，则下列哪个表达式的值为真? （   ）

A．X\Y=X mod Y

B．Int(X/Y)=Abs(X/Y)

C．Sqr(X^2)<>X

D．X+Y=Str(X)+Str(Y)

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

A．"cdB"

B．"bcd65"

C．"cdA"

D．"bcdB"

下列四段程序中，主要控制结构属于循环结构的是（   ）

A．A= 5 B= A A=" A" + B

B．IF X > K THEN PRINT "Big" END IF

C．S="0" DO WHILE I<=10 J =" I" * I S="S" + J I="I" + 1 LOOP

D．IF INT(X/2) = X/2 THEN

PRINT "偶数"
ELSE
PRINT "奇数"
END IF

对下列程序段的说法正确的是（   ）
Private sub Command1_Click()
Dim s, i As Integer
s=0
i=1
For i="1" to 4  step 2
s=s+i^2
Next i
Print "s=";S
End Sub

A．该程序段执行后s的值为10

B．该程序段执行后s的值为30

C．该程序段执行后i的值为4

D．该程序段执行的结果为s=10

小王同学正在学习二元一次方程，老师布置了一个二元一次方程求解的题目，方程为2x+3y=10。请利用VB编程帮他求出此二元一次方程的所有整数解（10≥x≥-10，10≥y≥-10），并将每组解在列表框List1中输出，同时统计出共有多少组解，并将统计结果在文本框Text1中显示。
程序运行界面如图所示，为实现以上功能，请在划线处填入合适代码。

Private Sub Command1_Click()
Dim x As Integer, y As Integer, t As Integer
t = 0
For x =" -10" To 10
For y =" -10" To 10
If_____________Then
List1.AddItem "X:" + Str(x) + "  " + "Y:" + Str(y)
t=t+1
___________
Next y
Next x
Text1.Text = Str(t)
End Sub