以下MyReplace函数的功能是将一个字符串(保存在变量S中)中的子字符串(保存在变量OldS中)用新的字符串(保存在变量NewS中)代替,编写以下程序:PublicFunctionMyReplace(s$,OldS$,NewS$)AsStringDimc%,lenOldS%lenOldS=Len(OldS)c=InStr(s,OldS)DoWhilec>0s=Left(s,c-1)+NewS+Mid(s,c+lenOldS)c=InStr(s,olds)LoopMyReplace=sEndFunctionPrivateSubCommand1_Click()dimold,newasstringold=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程序设计教程"