本程序的功能是：输入一个字符串，将该字符串反向输出。例如，输入：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"。

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

写出算法执行结果

写出算法执行结果

写出算法执行结果

（加试题）有如下VB程序段：
i = 1
Do While i<= 3

min = i

j = i + 1

Do While j <= 6

If a(j) < a(min) Then min = j

j = j + 1

Loop

If i<>min Then tmp = a(i): a(i) = a(min): a(min) = tmp

i = i + 1

Loop
数组元素 a(1)到 a(6)的值依次为7、8、3、9、6、2，则该程序段运行后，数组元素a(1)到 a(6)的值依次是

A．9,8,7,3,6,2

B．2,3,6,7,8,9

C．2,3,6,9,8,7

D．9,8,7,6,3,2

（加试题）有如下VB程序段：
i = 1: j = 10：x=18
Do While i<= j
m = Int((i + j) / 2)
If x = f(m) Then  Exit Do
If x <f(m) Then  j = m - 1  Else i = m + 1
Loop
数组元素f(1)到f(10)的值依次为： 2,7,8,10,12,13,16,18,19,20，该程序段运行后，下列表达式值为True的是

A．i=m+1

B．j=m-1

C．j>m+1

D．i>m-1

某算法的流程图如图所示，执行该算法后，输出的结果是

A．5

B．20

C．40

D．50

现要求编写VB程序，界面如图1所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别。
具体方法为：
<1.若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；<2.若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。

⑴   应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的_____________（填写相应编号），并修改图3“属性窗口”中，将_____________属性值设置为“识别”

⑵   请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid (_____, Len(x), 1)
If Val(s) Mod 2 <> 0 Then   '判断第15位数字偶数则性别“女”，否则为“男”
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)     
If __________ Then   
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
（3）上述程序中带框框的语句有错，应改为____________________________

在 VB 的算术运算中，最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数，小明根据除法原理，编写了如下程序，功能如下：在文本框 Text1 中输入被除数（正整数） ,在文本框 Text2 中输入除数（正整数），在文本框 Text3 中输入小数位数，单击按钮 Command1，在标签 Label 中显示除法运算的商。程序运行界面如图所示，但加框处代码有错，请改正：

Private Sub Command1_Click
Dim x, y As Integer
Dim n As Integer
Dim s As String
x = Val(Text1.Text): y = Val(Text2.Text)
n = Val(Text3.Text)
s = s + Str(x \ y)
s = s + "."
k = x Mod y
For i = 1 To n

x = x+k * 10 ①________

s = Str(x \ y) ②________

 
k = x Mod y
Next i
Label1.Caption = "商为： " + s
End Sub

小李利用所学的 VB 知识，编写了一个简单计算器：在文本框 Text1 中输入一个加减算式（只包含数字和“ +”、“ -”符号，以“ =”结束），点击“计算”按钮 Command1，计算结果在标签 Label1 上显示。程序运行界面如下图所示：

（1）要实现程序运行时，单击文本框 Text1 即可将文本 框 清 空 ， 则 应 在 _______(A 、Command1_Click/B、 Form_Load/C、 Text1_Click)事件处理过程中添加语句 Text1.text=”” 。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String, sum As  Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0: sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
p = ①________
Else
sum = ②________
p = 0
If ch = "-" Then
fh = -1
ElseIf ch = "+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
（3）若文本框 Text1 中输入的内容为“ 12*10=”（不包括双引号），单击“计算”按钮后，标签Label1 上将显示：________ .（A、 120 / B、 22 / C、 0 /D、程序出错无法显示）