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

不要很复杂的。很急。... 不要很复杂的。 很急。 展开
 我来答
娱乐小八卦啊a
高粉答主

2020-05-20 · 娱乐小八卦,天天都知道
娱乐小八卦啊a
采纳数:256 获赞数:117849

向TA提问 私信TA
展开全部

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

zdingyun
推荐于2016-01-08 · 知道合伙人软件行家
zdingyun
知道合伙人软件行家
采纳数:15429 获赞数:48174
1982年上海业余工业大学化工系毕业 现退休

向TA提问 私信TA
展开全部

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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
天涯客家学子
推荐于2018-03-26 · TA获得超过242个赞
知道小有建树答主
回答量:392
采纳率:100%
帮助的人:187万
展开全部
你好,我给你写好了,可实现。
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
追问
谢谢。晚了一步、已经采纳了、还是很谢谢你。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
吾桐语
推荐于2016-06-06 · TA获得超过2914个赞
知道大有可为答主
回答量:1534
采纳率:94%
帮助的人:1094万
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式