下列可作为VB变量名的是    ( )

A．true

B．we*6

C．dew3

D．3ABC

下面程序段运行后，变量T的值为（   ）
T=1：K=1
Do While K<=5
T=T*K
K=K+2
Loop

A．3

B．15

C．120

D．60

随机产生一个范围为[8,89]的正整数的VB表达式是    ( )

A．8+int(82*rnd)	B．8+int(90*rnd)
C．int(90*Exp)	D．int(82*rnd)

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（1）“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；
（2）每个字母变为数字后会加上一个“—”用来分割数字；
（3）其他空格和标点字符都按原来的表示。
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

（1）根据描述，若密文为“1905-1442-”，则表示的是：_______________
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer    '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①____________
If  t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf  t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②________________
Else
yw = yw + t
End If
Next  i
Text2.Text = yw
End Sub

某VB程序代码如下：
Dim n As Integer
Dim s As String
n = 73
s = ""
Do While n > 0
s = Str(n Mod 8) + s
n = n \ 8
Loop
执行该程序段后，变量s的值是 （ ）

A．"121"

B．121

C．"111"

D．111

某算法的部分流程图如第下图所示。执行这部分流程后，输出c,s的值分别是（   ）

A．8,10

B．10,14

C．12,6

D．12,24

使用两种不同的VB程序段实现相同的功能：则划线处填入的代码正确的是（）
 

A．	B．
C．	D．

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是(  )
Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer ’①
a(0) = 1     '②
For i = 1 To 5
a(i) = 2 * a(i - 1) + 1 '③
Next i
Text1.Text = Str(a(6)) '④
End Sub

A．①

B．②

C．③

D．④

以下Visual Basic程序的功能是：在文本框Text1中输入一个两位数x，将个位上的数和十位上的数互换组合成新的两位数y，并在文本框Text2中输出新数。

Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
x=val(text1.text)
i=x \ 10
_____________ ①
y=j*10+i  
Text1.Text = y   ②
End Sub
（1）为了实现上述表达式的计算，①处应填写的是____________。
（2）程序中②处的表达式有误，应更正为____________。

有如下程序段,该程序段运行后，e的值为（______）  i的值为（_______）  j的值为（______）   
e=0
For i=2 to 10  step 2
For j=1 to 6
If (i+j) mod 3=0  then  e=e+1
Next j
Next i