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程序设计教程"
A.;XY Z*’ B. &39;(X Z)*Y&39; C. &39;XYZ *’ D. &39;XY *Z’
A、第3行填s1++ 第4行填*s1= *s2
B、第3行填s2++ 第4行填*s1= *s2
C、第3行填s2++ 第4行填s1= s2
D、第3行填s1++ 第4行填s1= s2
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!