有如下程序段：
a=3
b=4
c=a*b-2
该程序段运行后，变量c的值为_____________

有如下Visual Basic程序段：
x=2.1Ifx>6.0Then
Label1.Caption="Pass"
Else
Label1.Caption="Fail"
EndIf
该程序段运行后,Label1标签上显示为_____________

税务部门征收个人所以税，规定如下：
（1）收入在800元以内，免征。
（2）收入在800~1300元内，超过800元的部分纳税5﹪。
（3）收入在1300~1800元内，超过1300元的部分纳税10﹪。
（4）收入在1800~2300元内，超过1800元的部分纳税15﹪。
（5）当收入达到或超过2300时，超过1800元的部分纳税20﹪。
该题程序设计最适合使用_____________结构。

计算下列表达式的值
(1).156\10 mod 7的值是_________________
(2).12+5^2 MOD 23*3\72/2^3+1值为_________________
(3).如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是_________________
(4).如果变量 a=7、b=6、c=4、d=5，则表达式 a<d OR b>c AND c<>d 的值为_________________

在Visual Basic 中，下列优先级最高的运算符是(   )

A．*

B．\

C．<

D．Not

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：
Sub Command1_Click()
Dim i As Integer, n As Integer
m = 106
n = __________
Do While m <= 996
If _______________________ Then n =" n" + 1
m=m+10
Loop
Text1.Text = Str(n) zxxk
End Sub

数学表达式“a>b>c”对应的VB表达式是（   ）

A．a>b>c

B．a>b and a>c

C．a>b and b>c

D．a>b or b>c

小王同学正在学习二元一次方程，老师布置了一个二元一次方程求解的题目，方程为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

若变量a=2，b=1，则逻辑表达式：
not(a> -b) or (a+b="3)" and (a<b)的值为_______。

A．F

B．T

C．3

D．-3

如第20题图所示的流程图片段：该流程图执行过后，a、b、c的值分别为：（   ）

A．a=21,b=9,c=13	B．a=5,b=8,c=13
C．a="5,b=9,c=14"	D．a=21,b=9,c=14