有如下VB程序段：（    ）
Dim k As Integer,s As Integer
k＝0；s＝0
Do While k＞＝10
k＝k＋1
s＝s＋k
Loop
该程序段执行后，变量s的值是

A．0

B．1

C．10

D．11

若要执行语句a  = ( 5 >= 5 ) ,则定义变量a的语句应为（   ）。

A．Dim a as Integer	B．Dim a as String
C．Dim a as Boolean	D．Dim a as Single

（加试题）维吉尼亚密码。如下图所示，分别用行和列表示待加密的字符（明文）和当前字符的密钥，行和列的交叉点的字符即为加密后的结果（密文）。在加密时，密文与明文的字母大小写形式保持一致，如：明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。

 

例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：
明文：HelloWorld
密钥：abcabcabca
密文：HfnlpYosnd
依据上述算法描述设计了如下VB程序。请回答下列问题：
（1）若明文是Jia，密钥是Pass，则输出的密文是：_________
（2）请在划线处填上合适的代码
Const MIN_ASC = 65
Function X2D(x As String) As String
Dim s As String, zf As String, i As Integer
s = ""
For i = 1 To Len(x)
zf = Mid(x, i, 1)
If zf >= "a" And zf <= "z" Then
s=s+ ①________
Else
s = s + zf
End If
Next i
X2D = s
End Function
Private Sub Command1_Click()
Dim M As String, K As String, C As String, flag As Boolean
Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer
M = Text1.Text '明文
K = Text2.Text '密钥
t = Len(K)
K = X2D(K)  
C = ""
For i = 1 To Len(M)
ch = Asc(Mid(M, i, 1))
flag = False
If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True
pos= ②________ '密钥的字符位置值
If pos = 0 Then pos = t
j = Asc(Mid(K, pos, 1)) '密钥字符的ASCII值
ch = ch - MIN_ASC
j = j - MIN_ASC
ch= ③________
ch = ch + MIN_ASC
If flag Then ch = ch + 32 '设置字母的大小写形式
C = C & Chr(ch)
Next i
Text3.Text = C
End Sub

“如果a，b中任意一个为0，那么y=y+l”。能实现该功能的VB语句是（   ）

A．If a="0" And b="0" Then y=y+1

B．If a*b="0" Then y=y+1

C．If a="0,b=0" Then y=y+1

D．If a,b="0" Then y=y+1

设X=5278,能得到其百位上数字“2”的正确表达式是(    ）

A．X MOD 100

B．X\100 MOD 10

C．X\100 MOD 100

D．X\10 MOD 10