本程序的功能是：输入一个字符串，将该字符串反向输出。例如，输入：abcdefgh 输出：hgfedcba。请将下列程序补充完整。

Dim s1 As String, s2 As String Dim c As Integer, i As Integer s1 = InputBox("请输入一串字符") s2 = "" c = Len(s1) For i = ____________________ s2 = Mid(s1, i, 1) + s2 Next i Print s2

（函数功能提示） （1）函数Len(x)的功能是：取字符串x的长度值（即字符个数值）。 　　若x="abc"，则Len(x)的值为3。 （2）函数Mid(x，y，z)的功能是：在字符串x中第y个字符开始取z个字符。 　　若x="abcdefg"，则 Mid(x，4，3)取得的值是"def"。

 
程序空白处应填写的语句是：_________________________________

以下语句中错误的是（   ）

A．Const var1=123

B．Dim var2 As String

C．x+y=9

D．Dim d(1 to 500) As Double

删除字符串中的非字母字符，并查找出ASCII码值最大的字母。程序功能如下: 在文本框Text1中输入一个字符串，单击命令按钮Command1，在文本框Text2中显示删除非字母字符后的字符串，在文本框Text3中显示ASCII码值最大的字母，运行界面如图所示。

（1）程序中的Command1_Click()属于____________。（单选，填代码:

A．对象名/

B．事件名/

C．属性名/

D．事件处理过程名）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String, cmax as string
Dim i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①_________
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then
result =②______
End If
Next i
Text2.Text = result
j = 2
cmax = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) > cmax Then cmax = Mid(result, j, 1)
③________
Loop
Text3.Text = cmax
End Sub

在如下VisualBasic程序段中，要使循环体t＝t*j执行5次，循环变量的终值可以是(  )
For j＝1 To __________ Step 2
t＝t*j
Next j

A．－5

B．0

C．5

D．10

为分析数组a中各元素依次变化的情况，进行如下定义：
变化段：数组中相邻两个元素构成一个变化段。变化段有上升段（a(i)>a(i-1)）、下降段（a(i)<a(i-1)）和持平段（a(i)=a(i-1)）。数组a中的n个元素可构成n-1个依次排列的变化段。
波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。
对称波峰：上升段与下降段个数相同的波峰称为对称波峰。
下图为一组数据的变化段及波峰示意图。

现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题：
（1）数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为_____。
（2）请在划线处填入合适的代码。
Const n = 20
Dim a(1 To n) As Integer
Private Sub Form_Load()
'读取数据，并存储到数组a中，代码略
End Sub
Private Sub Command1_Click()

Dim flag As Integer  '存储变化段的状态：1表示升，-1表示降，0表示平

Dim count As Integer '存储对称波峰段的个数

Dim steps As Integer

Dim i As Integer

flag = 0: steps = 0: count = 0

For i = ________ To n

If a(i) > a(i - 1) Then

If IsSymPeak(flag, steps) Then count = count + 1

If flag = 0 Or flag = -1 Then

_________

Else

steps = steps + 1

End If

flag = 1

ElseIf a(i) = a(i - 1) Then

If IsSymPeak(flag, steps) Then count = count + 1

steps = 0

flag = 0

Else

  steps = steps - 1

flag = -1

End If

Next i

If IsSymPeak(flag, steps) Then count = count + 1

Text1.Text = Str(count)

End Sub
Function IsSymPeak(flag As Integer, steps As Integer) As Boolean

If __________________ Then

IsSymPeak = True

Else

IsSymPeak = False

End If

End Function