VB_Python代码对照算法百题（013）
VB代码： （2017年11月浙江）14. 编“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1,程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。程序运行界面如下图所示。
(1) 要使程序运行时，窗体Form1标题显示“字符串生成”，可在FormLoad事件过程中添加语句 (单选，填字母:A.Form1 = “字符串生成” / B.Form1.Text=”字符串生成”/ C. Form1.Caption=”字符串生成”）。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer
s = “”: t = “”
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = “,” Then
p = Val(t)
s = s + Mid(Text2.Text, p, 1)
t = “”
Else
t = ①
End If
Next i
Label1.Caption = ②
End Sub
（4）若文本框Text1中输入内容的结束符缺失（即输入内容为1,18,9,9)，单击“生成”按钮后，标签Label1中显示的内容是 。
参考答案：
（1）C
（2）① t+c ②s
（3）pas
Python代码：
t1=input(‘字符位置：’)
t2=’python is a programming language.’
s = ”
t = ”
for i in range(len(t1)):
c=t1[i]
if c==’,’:
p=int(t)
s=s+t2[p-1]
t = ”
else:
t=t+c
print(‘生成内容：’,s)
Python代码运行结果：
