输入一行字符，分别统计其中各英文字母出现的个数。（不区分大小写）

如题所述

举报该问题

推荐答案 2010-06-11

以下是在VB中的写法，修改于其他网友的版本，不区分大小写：
Dim tmp$, i&, lenstr&, sum%
tmp = LCase(Text1.Text)
lenstr = Len(tmp)
For i = 97 To 122
sum = lenstr - Len(Replace(tmp, Chr(i), ""))
If sum > 0 Then Print Chr(i) & "次数为:" & sum
Next

温馨提示：答案为网友推荐，仅供参考

当前网址：http://22.wendadaohang.com/zd/C2ShIXSfh.html

其他回答

第1个回答 2013-12-05

Private Sub Command1_Click()
Dim i As Integer, strTxt As String, abc(25) As Integer, bytAsc As Byte, strTemp As String
strTxt = UCase(Text1.Text)
For i = 1 To Len(strTxt)
bytAsc = Asc(Mid(strTxt, i, 1)) - 65
If bytAsc >= 0 And bytAsc <= 25 Then abc(bytAsc) = abc(bytAsc) + 1
Next
For i = 0 To 25
If abc(i) > 0 Then strTemp = strTemp & Chr(i + 65) & " 出现 " & abc(i) & " 次" & vbCrLf
Next
Text2.Text = strTemp
End Sub

相似回答

C语言 输入一行字符,分别统计求出其中英文字母、空格、数字和其他字符的...答：} printf("char:%d Capital letters:%d Lowercase%d\nspec:%d\nnumber:%d\nOther:%d\n",i,da,xiao,j,k,m); /*打印行中的字母，空格，数字，其它字符数*/ }

输入一行字符,分别统计出其中英文字母,空格,数字和其他字符的个数(py...答：假设我们有一个字符串：a='1355gdfg,45o24tkllwe4rt'。为了统计其中的英文字母、空格、数字和其他字符的数量，我们可以使用Python的re模块和内置函数。首先，我们需要导入string和re模块。string模块提供了一些有用的字符串常量，而re模块则提供了正则表达式的功能。接下来，我们逐步统计各个部分的字符数量。