VB题目，求解，谢谢-学网-中国IT综合门户网站-提供健康,养生,留学,移民,创业,汽车等信息
> 信息中心 >
VB题目，求解，谢谢
来源：互联网 发表时间： 19:33:57 责任编辑：李志喜字体：
为了帮助网友解决“VB题目，求解，谢谢”相关的问题，学网通过互联网对“VB题目，求解，谢谢”相关的解决方案进行了整理,用户详细问题包括:
Option Explicit
'FindStr过程是用于在一个字符串变量中查找&red&
'并用输出对话框给出找到的个数或没有找到的查找结果。
'将正确内容覆盖 ---- n ----
Public Sub FindStr()
Dim Str1 As String, Length As Integer, Sum As Integer, I As Int...
red&将正确内容覆盖 ---- n ----Public Sub FindStr() Dim Str1 As Sred&没有找到, Sum As I请输入一个字符串&quot。'找到了& & Str(Sum) & &FindStr过程是用于在一个字符串变量中查找&并用输出对话框给出找到的个数或没有找到的查找结果;' Else MsgBox & Then Sum = Sum + 1 End If I = I + 1 Loop If Sum = 0 Then MsgBox &quot！&quot, I As Integer Str1 = InputBox(&) Length = ----1---- I = 1 Sum = 0 Do While ----2---- If ----3---- = &quot, Length As IntegerOption Explicit'个&quot
，具体解决方案如下：解决方案1：
&Integer&&Loop&Str1&&&&I&&I&Length&&&&&=&&&&nbsp！&len(Str1)&&&&Dim&S&nbsp,&&End&0&&&&&red&&&Sub&0&&&Length&)&&While&+&&&Sum&MsgBox&If&Sum&If&&Then&Length&=&As&个&&I&&&If&&&&As&I&InputBox(&找到了&&&Sum&&nbsp,&IStr(Sum)&&=&Else&Sum&&&&&&I&请输入一个字符串&&=&&=&&&&&&&FindStr&&As&FindStr()&&&&&MsgBox&+&Sum&&&&Do&&&I&&&End&&1&&&&Then&&1&=&&&&&1&&&没有找到;&&&=&&&=&&nbspPublic&=&Str1&As&&&quot,&&&&&IfEnd&nbsp
解决方案2：
维生素C注射液静滴、脂肪类。避免抓挠，建议输液治疗，忌鱼虾：头孢曲松钠。注意饮食：您好。祝康复、香菜，带状疱疹属于病毒感染指导意见，主要以抗病毒治疗、利巴韦林注射液，注意卫生、辛辣刺激性食物
解决方案3：
Public&Sub&FindStr()&&&&Dim&Str1&As&String,&Length&As&Integer,&Sum&As&Integer,&I&As&Integer&&&&Str1&=&InputBox(&请输入一个字符串&)&&&&Length&=&Len(Str1)&&&&I&=&1&&&&Sum&=&0&&&&Do&While&I&&&Length&&&&&&&&If&Mid(Str1,&I,&3)&=&&red&&Then&&&&&&&&&&&&Sum&=&Sum&+&1&&&&&&&&End&If&&&&&&&&I&=&I&+&1&&&&Loop&&&&If&Sum&=&0&Then&&&&&&&&MsgBox&&没有找到！&&&&&Else&&&&&&&&MsgBox&&找到了&&&&Str(Sum)&&&&个&&&&&End&IfEnd&Sub
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 学网 版权所有
京ICP备号-1 京公网安备02号网站防火墙
网站防火墙
您的请求过于频繁，已被网站管理员设置拦截！
可能原因：您对该页面的访问过于频繁
如何解决：
1）稍等一段时间重新访问；
2）如网站托管，请联系空间提供商；
3）普通网站访客，清理浏览器Cookie之后重新访问，或直接联系网站管理员；}