一个VB工程的部分设计界面如下图所示：

下列选项不正确的是(   )。

A．窗体的Caption属性值是“对象”	B．窗体文件名是“Form1.frm”
C．当前选中对象的名称是“Shape1”	D．工程的名称是“工程1”

将数学表达式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|)

某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

有如下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

某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函数计算时出错

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

A．true

B．we*6

C．dew3

D．3ABC

用蒙特卡洛法求圆周率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 =_______________

下面程序段运行后，变量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