编写程序，运行时按收用户键盘输入的一个长字符串，统计其中包含字母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为必需的参数，可以是任何有效的字符串表达式。
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
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
谢谢。晚了一步、已经采纳了、还是很谢谢你。
已赞过
已踩过<
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
