0，500范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

   某种字符加密方法描述如下：
①输入明文、密钥。
②在明文中从左往右每次取连续的8个字符。
③将8个字符围成一圈，从第1个字符开始1，2，3，……数数，数到密钥值时取出该位字符；再由下一个字符开始1，2，3，……数数，数到密钥值时取出该位字符，重复此过程，直至这8个字符被取完。
④依次把取出的8个字符拼接成新的字符串。
⑤重复②-④步骤，直至所有明文字符处理完毕。
编写一个VB程序，实现功能如下：程序运行时从文本框Textl中读入一串明文(长度为8的倍数)，从文本框Text2中读入密钥y，单击“加密”按钮Commandl，对明文按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。

(1)运行上述程序，若在文本框Textl中输入“Let's go”，Text2中输入“3”，单击“加密”按钮，则文本框Text3中显示的内容是__________________________。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n=1000
Private Sub Commandl_Click()
Dim f (1 To n) As Integer，cq (1 To n) As Integer
Dim a (1 To n) As String，s As String，res As String
Dim y As Integer，p As Integer，begin As Integer
s=Textl.Text：y=Val(Text2.Text)
For i=1 To 8

f(i)=1

Next i
'计算出列顺序
p=0
For i=1 To 8

j=1

Do While j<=y

p=p Mod 8+1
j=___________

Loop

f(p)=0：cq(i)=p

Next i
For i=1 To Len(s)

a(i)=Mid (s，i，1)

Next i
i=1：begin=-8：res=""
Do While i<=Len(s)

If i Mod 8=1 Then___________

res=res+___________

i=i+1

Loop
Text3.Text=res
End Sub

给定区间a1，a2和b1，b2，若a2≥b1，则认为这两个区间是有重叠的，可进行合并｡如区间1，3和2，6可合并为1，6；区间1，6，2，5可合并为1，6；区间1，4和4，5可合并为1，5｡
编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间1，2，3，5，4，6，9，12，10，11，合并后的区间分别为1，2，3，6，9，12｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=①  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>, Then
②
Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+,+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 ③
Loop
result=result+"("+Str(L)+,+Str(R)+"),"
Text2. Text=result
End Sub
（1）码中①②③划线处代码补充完整｡
①__________
②__________
③__________
（2）程序代码中的加框处代码有误，请改正｡
_____________________
（3）运行该程序，输入数据如图所示，程序执行完毕时，变量k 为________________｡

反转字符串，如输入字符串为“123ABCD"，则输出字符串为“DCBA321"。部分程序如下所示，划线处的正确语句是
s＝Text1.Text：n=Len(s)
’按s中字符顺序从左到右依次存入数组a中，代码略
i＝1
Do While i<n
t＝a(i)
For j=i＋1 To n
    ①    
Next j
a(j－1)=t
    ②    
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text＋a(i)
Next i

A．①a(j＋1)＝a(j) ②n＝n－1	B．①a(j)＝a(j＋1) ②n＝n＋1
C．①a(j－1)＝a(j) ②n＝n－1	D．①a(j－1)＝a(j) ②n＝n＋1

生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如下图所示），实现如下功能：首先，设某女躯干a米和身高b米，分别从文本框Text1和Text2中输入，比值为g。鞋跟高度为s（单位与 a、b 一致），那么比值g=（a+s）/（b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度,所以最佳的鞋跟高度s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。

（1）应用程序界面设计时，为了显示s的值，在窗体中添加了 控件，一般需将它的  属性值设置为空。
（2）图中的人物是通过设置Image1对象的  属性,将外部图像文件添加进去的。
（3）请根据题意将下列程序补充完整。
Private Sub Command1_Click（）
Dim a As Single, b As Single，s As Single
a = Val（Text1.Text）
b = ①    
②
Label4.caption=str(s)
End Sub