VB_Python代码对照算法百题（011）
VB代码： （2017年4月浙江）16.小王编写了一个实现文字查找替换功能的 VB 程序，运行界面如图所示。文本框 Text1 显示原文内容， Text2 中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮 Command1 后，Text4 显示查找替换的结果， Text5 显示替换的次数，Text6显示“查找内容”在原文中的起始位置。实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1Click()
Dim s As String, resule As String, pos As String
Dim count As Integer, i As Integer
i = 1
count = 0
result = ”
pos = ”
Do While i <= Len(Text1.Text)
s = Mid(Text1.Text, i, Len(Text2.Text))
If s = Text2.Text Then
result = result + Text3.Text
count = count + 1
pos = pos + Str(count) ‘(1)
i = i + Len(Text2.Text)
Else
result = result + Text2.Text ‘(2)
i = i + 1
End If
Loop
Text4.Text = result
Text5.Text = Str(count)
Text6.Text = pos
End Sub
参考答案：
（1）pos+str(i)
（2）result=result+mid(Text1.Text,i,1)
Python代码：
text1=’博客是一种个数的网络出版形式，博客已经得到广泛应用。’
text2=input(‘查找内容：’)
text3=input(‘替换为：’)
i=0
count=0
result=”
pos=”
while i<=len(text1)-1:
s=text1[i:(i+len(text2))]
if s==text2:
result=result+text3
count=count+1
pos=pos+str(i)+’ ‘
i=i+1
else:
result=result+text1[i]
i=i+1
print(‘替换结果：’,result)
print(‘替换次数：’,str(count))
print(‘原文中的起始位置：’,pos)
Python代码运行结果：
查找内容：博客
替换为：Bolg
替换结果： Bolg客是一种个数的网络出版形式，Bolg客已经得到广泛应用。
替换次数： 2
原文中的起始位置： 0 15
