VB统计篇文章中字母个数的问题

答案:1 悬赏:50 手机版

解决时间 2021-06-01 23:02

提问者网友：欲望失宠
2021-06-01 12:48

想要求出text1里字母a,b,c,d的个数，我用两种代码，但都编译不过去，而且可能错在了同一个知识点，希望能够得到高手指点迷津，非常感谢！！代码一： Private Sub Command2_Click() Dim a, b, c, d As Integer Dim t As String For i = 0 To Len(Text1.Text) t = Mid$(Text1.Text, i, 1) If t = "a" Or t = "A" Then a = a + 1 ElseIf t = "b" Or t = "B" Then b = b + 1 ElseIf t = "c" Or t = "C" Then c = c + 1 ElseIf t = "d" Or t = "D" Then d = d + 1 End If Next i Text1.Text = "字母A出现的次数为" & Format(a, "00") Text1.Text = Text1.Text + vbCrLf & "字母B出现的次数为" & Format(b, "00") Text1.Text = Text1.Text + vbCrLf & "字母C出现的次数为" & Format(c, "00") Text1.Text = Text1.Text + vbCrLf & "字母D出现的次数为" & Format(d, "00") 代码二： Private Sub Command2_Click() Dim a, b, c, d As Integer Dim t, s As String For i = 0 To Len(Text1.Text) t = Mid$(Text1.Text, i, 1) If t = "a" Or t = "A" Then a = a + 1 s = "字母A出现的次数为" & Format(a, "00") ElseIf t = "b" Or t = "B" Then b = b + 1 s = s & vbCrLf & "字母B出现的次数为" & Format(b, "00") ElseIf t = "c" Or t = "C" Then c = c + 1 s = s & vbCrLf & "字母C出现的次数为" & Format(c, "00") ElseIf t = "d" Or t = "D" Then d = d + 1 s = s & vbCrLf & "字母D出现的次数为" & Format(d, "00") End If Next i Text1.Text = s End Sub 劳驾啦~~~

最佳答案

五星知识达人网友：渊鱼
2021-06-01 13:18

Private Sub Command2_Click()
Dim a, b, c, d As Integer
Dim t As String
For i = 1 To Len(Text1.Text)
t = Mid(Text1.Text, i, 1)
If t = "a" Or t = "A" Then
a = a + 1
ElseIf t = "b" Or t = "B" Then
b = b + 1
ElseIf t = "c" Or t = "C" Then
c = c + 1
ElseIf t = "d" Or t = "D" Then
d = d + 1
End If
Next i
Text1.Text = "字母A出现的次数为" & Format(a, "00")
Text1.Text = Text1.Text + vbCrLf & "字母B出现的次数为" & Format(b, "00")
Text1.Text = Text1.Text + vbCrLf & "字母C出现的次数为" & Format(c, "00")
Text1.Text = Text1.Text + vbCrLf & "字母D出现的次数为" & Format(d, "00")

End Sub

看看是不是你要的效果，如不是详细说明

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！