对下列程序段的说法正确的是（   ）
Private sub Command1_Click()
Dim s, i As Integer
s=0
i=1
For i="1" to 4  step 2
s=s+i^2
Next i
Print "s=";S
End Sub

A．该程序段执行后s的值为10

B．该程序段执行后s的值为30

C．该程序段执行后i的值为4

D．该程序段执行的结果为s=10

（加试题）小龙编写了一个简易加法器VB程序，运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断输入不同的加数，待所有需要相加的数输入完毕后，单击“求和”按钮Command1后，在标签label1中显示加数的个数以及总和。(数字0和空格的ASCII码分别为48、32)
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a As String
Dim x As Integer, s As Integer, k As Integer
a = Text1.Text
x = 1: s = 0: k = 0
For i = 1 To Len(a)
'如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序
If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57) or(Asc(Mid(a,i,1))= 32) then’①________ Label1.Caption = "只能输入数字或空格"
Exit Sub
End If
If Mid(a, i, 1) = " " Then
s = s + Mid(a,x,i)’②________
x = i + 1
k = k + 1
End If
Next i
Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

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

求最长升序子序列的长度。一个数的序列bi，当b1<b2<…<bS的时候，我们称这个序列是升序的。对于给定的一个序列（al，a2，…，aN），我们可以得到一些升序的子序列（ail，ai2，…，aiK），这里1<=il<i2<……<iK<=N。比如，对于序列（1，7，3，5，9，4，8），有它的一些升序子序列，如（1，7），（3，4，8）等等。这些子序列中最长的长度是4，比如子序列（1，3，5，8），小王设计VB程序用于求最长升序子序列的长度，在文本框Text1中输入n个各不相同的数据（各数据之间以逗号隔开），单击“求解”按钮Command1后在标签Labell中输出最长升序子序列的长度，运行界面如图所示。

具体算法描述如下：
①将文本框Text1中的n个数据依次读取到数组a中；
②构造一个数组b（j），j表示升序子序列的长度，b（j）的值表示所有j长度升序序列中最小的末尾元素值。例：序列（2，6，4，5），长度为2的子序列有（2，6），（2，4），（2，5），（4，5），则b（2）=4；
③从第1个元素开始，依次处理到第i（1≤i≤n）个元素为止，b数组所能达到的最大下标值maxlen，处理过程分两种情况：
a）a（i）>b（maxlen），则最长升序子序列的长度增加；
b）a（i）<b（maxlen），则在数组b中逆序查找到第一个b（j）>a（i）（maxlen-1≤j<1），更新数组b中升序子序列长度为j+1时所存储的元素值。
以图中数据为例：

④数组b的最大下标值即为最长升序子序列的长度。
实现上述过程的VB程序如下，请回答下列问题：
（1）若在文本框Text1中输入的序列为（4，7，9，8，6），则数组元素b(2)的值为_____________。
（2）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(1 To 100)As Integer存储原序列
Dim b(1 To 100)As Integer存储各长度序列的最小末尾元素
Dim s As String
Dim n As Integer,i As Integer,j As Integer,maxlen As Integer
S=Text1.Text
n=1:j=1
For i=1 To Len(s)

c=Mid(s,i,1)

If c=,Then

a(n)=Mid(s,j,i-j)
n=n+1
j=i+1
End If
Next i
①______
maxlen=1:b(1)=a(1)
For i=2 To n
If a(i)>b(maxlen) Then
maxlen=maxlen+1
b(maxlen) =a(i)
Else
j=maxlen-1:flag=True
Do While j>=1 And flag
If a(i)>b(i)Then
②______
flag = False
End If
j=j-1
Loop
If③______Then b(1)=a(i)
End If
Next i
Label1.Caption="最长升序子序列的长度为:"+Str(maxlen)
End Sub

随机生成15个100以内1,100的正整数并显示在一个文本框中，再点击交换按钮将所有对称位置的两个数据对调后显示在另一个文本框中（第1个数与第15个数对调，第2个数与第14个数对调……）。小叶设计的运行界面和程序代码如下：

Dim a(1 To 15) As Integer
Private Sub Form_Load()
Dim i As Integer, t As Integer
Dim s1 As String, s2 As String
Randomize
s1 = ""
For i = 1 To 15
a(i) =___________
s1 = s1 + Str(a(i))
Next i
Text1.Text = s1
End Sub
Private Sub Com1_Click()
s2 = ""
For i = 1 To 15
s2 =_____________
Next i
Text2.Text = s2
End Sub
（1）要使窗体的标题显示文字“数字交换”，应该更改Form1的_________________ 属性（A. Name /B. Caption /C. Font /D. Forecolor）。从程序代码可知，此命令按钮的对象名是________________________。
（2）请在划线处填入合适代码。
（3）程序测试运行后生成如下文件：（A. jiaohuan.frm /B. jiaohuan.vbp /C. jiaohuan.vbw /D. jiaohuan.exe）。其中属于windows系统可执行文件是：（单选，填字母_________________）。