VB_Python代码对照算法百题（013）

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代码运行结果：