小周定义了一个变量 rs 来存储超市里商品条形码，变量的数据类型应是（   ）

A．Integer

B．String

C．Long

D．Date

下列Visual Basic表达式的值为True的是（　　）

A．1=2	B．"78"〉"79"
C．Len("78")＝Len("中国")	D．Mid("abcdef", 2, 3) = "abc"

在Visual Basic的代码窗口中，语句Password.Caption= "a>b"中的Password是（  ）

A．对象名

B．属性值

C．属性名

D．类名

第1次，将1张正方形纸片沿垂直和水平中线对折后撕开，变成4张纸片，第2次，从4张纸片中取其中1张纸片也照上面方法撕开，变成7张纸片，一直这样下去。描述计算撕了n次后纸片总数s的算法部分流程图如下图所示：

空白矩形框中应该填入的是 (   )

A．s←s+2

B．s←s+3

C．s←s+j

D．s←s*3

运行如下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．④

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

A．	B．
C．	D．

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

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

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

A．3

B．15

C．120

D．60

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

A．true

B．we*6

C．dew3

D．3ABC

某VB程序的一个事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
Text1.Text = Str(SqrA.)
End Sub
程序运行时，单击命令按钮command1后弹出如图所示的错误信息提示。出现错误的原因是（   ）

A. 变量a类型定义错误

A．界面缺少文本框Text1
B．Command1属性设置错误	C．Sqr函数计算时出错

有如下Visual Basic程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next i
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是（  ）

A．1+1/2+2/3+3/4+4/5	B．1+1/2+2/3+3/4
C．1/2+2/3+3/4+4/5	D．1+1/2+1/3+1/4+1/5

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim s As String, i As Integer
s = ""
For i = 1 To 10 Step 2
s = Str(i) + s
Next i
Text1.Text = s
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（   ）

A．13579

B．1 3 5 7 9

C．9 7 5 3 1

D．97531

将数学表达式sin(e)+写成Ｖisual Basic的表达式，其正确的形式是（ ）

A．sin(exp(3))+sqr(abs(x+y))	B．sin(e^3)+sqr(abs(x+y))
C．sin(exp(3))+sqr(|x+y|)	D．sin(e^3)+sqr(|x+y|)

有如下程序段,该程序段运行后，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

以下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）程序中②处的表达式有误，应更正为____________。

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（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

用蒙特卡洛法求圆周率PI的近似值，其算法如下：使用随机函数Rnd,随机生成两个[0,1）之间的随机数，由此构成一个投点坐标（x,y），然后根据x²+y²<=1投点是否在圆内来求PI的近似值。其中总共随机投点n次，统计落点在单位圆内的点数为s,则4s/n即为所求PI的近似值。程序界面如图所示，在Text1中输入投点的个数，单机“计算”按钮，PI的近似值结果显示在Text2中。）

（1）要使得按钮的文字显示为“计算”，应该修改该对象的__________属性。
（2）要实现上述功能，请在划线处填入合适代码。
Private Sub Command1_Click()
Randomize '随机数初始化
Dim i As Long, n As Long, s As Long
Dim x As Double, y As Double, z As Double
n = Val(Text1.Text)
__________________________
s = 0
Do While i <= n ' 随机投点n次
x = Rnd: y = Rnd
z = ____________________
If z <= 1 Then
s = s + 1
End If
i = i + 1
Loop
Text2.Text =_______________