UC知道用VB编写一个程序勇于判断一个字符串中是否含有一个指定的字母。
来源：百度知道 编辑：UC知道 时间：2024/06/10 12:27:06
单击统计按钮，输入待查字母，统计字母在字符串中出现的个数。
提示：
用变量STR1获得文本框中的字符，并计算出其长度；输入带统计的字母STR2；计算器赋值为0；对STR1从头至尾比较与STR2相同的字母，并计数。输出结果
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim str1 As String
Dim str2 As String
Dim d As String
sum = 0
str1 = Str$(Text1.Text)
str2 = InputBox("输入统计的字母")
For i = 1 To Len(str1)
d = Mid$(str1, i, 1)
If d = str2 Then sum = sum + 1
Next i
Label1.Caption = sum
End Sub
一楼编的那个用不了，这是我编的但也行不通，不知道怎么弄
提示：
用变量STR1获得文本框中的字符，并计算出其长度；输入带统计的字母STR2；计算器赋值为0；对STR1从头至尾比较与STR2相同的字母，并计数。输出结果
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
Dim str1 As String
Dim str2 As String
Dim d As String
sum = 0
str1 = Str$(Text1.Text)
str2 = InputBox("输入统计的字母")
For i = 1 To Len(str1)
d = Mid$(str1, i, 1)
If d = str2 Then sum = sum + 1
Next i
Label1.Caption = sum
End Sub
一楼编的那个用不了，这是我编的但也行不通，不知道怎么弄
Private Sub Command1_Click()
Dim i As Integer
Dim Sum As Integer
Dim Str1 As String
Dim Str2 As String
Dim d As String
Sum = 0
Str1 = Text1.Text
Str2 = InputBox("输入统计的字符")
If Len(Str2) <= Len(Str1) And Len(Str1) > 0 And Len(Str2) > 0 Then
For i = 1 To Len(Str1) - Len(Str2) + 1
d = InStr(i, Str1, Str2)
If d > 0 Then
i = d
Sum = Sum + 1
End If
Next i
Label1.Caption = Sum
Else
Label1.Caption = 0
End If
End Sub
在你的基础上修改一下:
txtStr = Text1.Text
str2 = InputBox("输入统计的字母")
spp=1
p=instr(spp,txtStr,str2)
do while p>0
if p>0 then
sum=sum+1
spp=p+1
end if
p=instr(spp,txtStr,str2)
loop
label1.caption=sum
字符串为 TT 查找字符为 tx<