Question

VB程序输入一串字符，统计其中字母A(不区分大小写)出现的次数。 网上查了很多、都是统计各个字母的、

不要很复杂的。 很急。

Answer 1

 编写程序，运行时按收用户键盘输入的一个长字符串，统计其中包含字母a的个数（不区分大小写），并在屏幕上输出统计结果。

set talk off clear 

accept"请输入字符串:" to s accept"

请输入字符串:" to a x=0 if a>="A".and.a="A".and.b

VBA提供了两类字符串：一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句
Dim strFixedLong As String*100

声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。

另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。

扩展资料

VBA中处理字符串的函数

1、比较字符串

通常，在VBA中进行字符串比较时，会用到比较运算符(如=、>等)、Like运算符和StrComp函数。此外，在模块的开头用Option Compare语句指定比较方式。

2、比较运算符

可以采用简单的逻辑运算符进行两个字符串的比较，即<(小于)、<=(小于或等于)、>(大于)、>=(大于或等于)、=(等于)、<>(不等于)。此外，还可以使用Like运算符进行比较。

3、StrComp函数

StrComp函数返回字符串比较的结果。其语法为：StrComp(string1,string2[,compare])其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。

Answer 2

VB可通过循环挨个检测字符A或a在输入字符串中出现的频次。

1）使用Mid函数。

Mid 函数，返回 Variant (String)，其中包含字符串中指定数量的字符。

2）For Next循环。

For...Next 语句，以指定次数来重复执行一组语句。

3）Len 函数，返回 Long，其中包含字符串内字符的数目，或是存储一变量所需的字节数。

Private Sub Command1_Click()
    Dim strSj As String
    Dim i As Long
    Dim j As Long
    strSj = InputBox("输入字符串", strSj)
    Text1 = strSj
    For i = 1 To Len(strSj)
        If Mid(strSj, i, 1) = "A" Or Mid(strSj, i, 1) = "a" Then
            j = j + 1
        End If
    Next
    Text2 = j
End Sub

Answer 3

你好，我给你写好了，可实现。
Private Sub Command1_Click()
Dim m%, i%, n%
m = Len(Text1.Text)
For i = 1 To m
If Mid(Text1.Text, i, 1) = "A" Or Mid(Text1.Text, i, 1) = "a" Then n = n + 1
Next i
Print "A(a)出现了" & n; "次"
End Sub

追问

谢谢。晚了一步、已经采纳了、还是很谢谢你。

Answer 4

Private Sub Command1_Click()
s = Text1.Text
l = Len(s)
For i = 1 To l
a = Mid(s, i, 1)
If Asc(a) = 65 Or Asc(a) = 97 Then n = n + 1
Next i
Text2.Text = n
End Sub