问题详情

以下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程序设计教程"