以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量
OldS中)用新的字符串(保存在变量NewS中)代替,编写以下程序:
PublicFunctionMyReplace(s$,OldS$,NewS$)AsString
Dimc%,lenOldS%
lenOldS=Len(OldS)
c=InStr(s,OldS)
DoWhilec>0
s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)
c=InStr(s,olds)
Loop
MyReplace=s
EndFunction
PrivateSubCommand1_Click()
dimold,newasstring
old=inputbox("请输入要替换的字符")
new=inputbox("请输入替换后新的字符")
PrintMyReplace("VisualBasic程序设计教程5.0版",old,new)
EndSub
当程序运行单击命令按钮后先后分别输入" 5.0"和" 6.0",程序的运行结果为( )
A."VisualBasic程序设计教程5.0版"
B."VisualBasic程序设计教程6.0版"
C."VisualBasic程序设计教程6版"
D."VisualBasic程序设计教程"