某 VB 程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为：" + b
End Sub
在 Text1 中输入 3，单击命令按钮 Command1 后，将会出现的提示信息是：（   ）

A．类型不匹配	B．溢出
C．无效的过程调用或参数	D．未找到方法或数据成员

有如下VB程序段：
Dim n As Integer , I As Integer
Dim s As String , ch As String
s=text1.Text
n=Len(s) '(1)
For I = 1 To n '(2)
ch=Mid(s,i,1)
If Asc(ch) >= 65 and Asc(ch) <= 97 Then
ch=Chr(Asc(ch)+32)
End If
Label1.Caption=Label1.Caption+ch
Next i
已知字母“A”的ASCII码65，字母“a”ASCII码97。若在Text1中输入“Happy2018”，则Label1中应显示（）

A．H2018

B．APPY2018

C．HAPPY2018

D．Happy2018

下列能正确表示"0 ≤ x ≤ 6"的VB表达式是（    ）

A．0 ≤ x ≤ 6

B．0 <=" x" <= 6

C．x>=0 and x<=6

D．x≥0 and x≤6

在Visual Basic中，有整型变量a=5，b=3，要在标签控件中显示结果为8，则执行下列语句能正确显示结果的是：（   ）

A．Label1.Caption=Str(a+b)

B．Text1.Text=Len(a)+Val(b)

C．Text1.Text= Sqr(a+b)

D．Label1.Caption=" Str(a)+" Str(b)

一个四位正整数，它的低二位和高二位差的绝对值为10，例如：1323，|23-13|=10。试求所有满足上述条件的四位正整数的和。请用VB代码设计该算法（注：流程图不给分）