编写程序，运行时按收用户键盘输入的一个长字符串，统计其中包含字母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)其中，参数string1和strng2为必需的参数，可以是任何有效的字符串表达式。