（加试题）小龙编写了一个简易加法器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)

VB标准函数Rnd的作用是返回一个大于等于0且小于1的随机数。只能产生大于等于10且小于100随机的VB表达式是（   ）

A．Int(Rnd*100)	B．Int(Rnd*90+10)
C．Int(Rnd*99+1)	D．Int(Rnd*99+10)

为了求数列1²+3²+5²+7²+……+99²的和，以下说法错误的是（ ）。

A．求和通常采用累加器逐个累加，这题要重复累加50次。

B．这个问题通过循环结构解决。

C．在Visual Basic中只能用do语句编程解决这个问题。

D．解决这个问题的算法不需要输入。

在一个数字字符串中，求最长连续递增序列的长度。例如，字符串“123423416789”，最长的递增序列为“16789”，长度为5。编写一个程序，功能如下：在文本框Text1中输入数字字符串，单击“计算”按钮Command1，在标签Label3中显示最长连续递增序列的长度。程序设计界面与运行界面如图所示。

（1）要使程序运行时，按钮Command1上的文字显示为“计算”，可在___________事件过程中添加语句Command1. Caption="计算"。
（单选，填字母：

A．Command1_Click /

B．Form_Load /

C．Command1_DblCkick）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
PrivateSubCommand1_Click()
Dim s As String，max As Integer
Dim t As Integer，I As Integer
max=0：t=1
s=Text1. Text
i=1
Do While i <= Len(s)-1

If Val(Mid(s，i，1)) < ___________Then

t=t+1

Else

If t > max Then max = t
______________
End If
i=i+1

Loop

 
If t > max Then max = t

Label3. Caption = Str(max)

End Sub
（3）如果删除加框处代码，并运行程序，在文本框Text1中输入“123423416789”，单击“计算”按钮，则标签框Label3中显示的内容为__________________。

下列流程图描述的是计算地铁站售票问题的算法：
1~4站，2元/位 5~9站，3元/位 9站以上，4元/位
用N表示人数，用X表示站数，用Y表示应付的钱。

请按此算法功能，把流程图填写完整。位置①选择的正确答案▁▁▁

A．(X > 9) OR (Y < 5)

B．X >= 9

C．X > 5

D．X <= 9