高校问答抓沙虫视频:VB难题！请高手进入！！
来源：百度文库 编辑：高校问答 时间：2024/04/27 14:51:03
还有一个TEXT1.TEXT="0"
如何实现在这个字串中每出现一次“A”TEXT1就＋1，每出现一次“B”就TEXT1＋2 每出现一次“C”TEXT1＋4 ？？
这个应该如何实现，越简单越好！答得好有分加！请各位高手指教！！
On Error Resume Next
Dim str1 As String, str2 As String
Dim i As Integer
Text1.Text = 0 '每次重新计算,text1清 0
str1 = "CC123我的吸纳/答复案犯哈\暗黑JAKFHZI:=13FA-13 "
For i = 1 To Len(str1)
str2 = Mid(str1, i, 1)
If str2 = "A" Then Text1.Text = Text1.Text + 1
If str2 = "B" Then Text1.Text = Text1.Text + 2
If str2 = "C" Then Text1.Text = Text1.Text + 4
Next
dim str as string
str="CC123我的吸纳/答复案犯哈\暗黑JAKFHZI:=13FA-13"
For i=1 to len(str)
Select case mid(str,i,1)
case "A"
text1.text=int(text1.text)+1
case "B"
text1.text=int(text1.text)+2
case "C"
text1.text=int(text1.text)+4
End select
Next
A text1=val(text1)+1
以此类推
用个DO WHILE 语句来循环
详细滴
sub command1_click()
dim tmp,str as string
str="你的那个什么什么字串"
dim i,slen as long
slen=len(str)
for i=1 to slen
tmp=mid(str,i,1)
if tmp="A" then text1=val(text1)+1
.
,
,
next i
end sub
这个是最笨的 也是你比较容易看懂滴
做过循环,
逐个字符判断