c++统计字符串中某个字符出现的次数_如何用VB统计一个字符串中各字母出现的次数?...

cc34c0d4ef818d36817ba87b350b6cda.gif

●VB常量与变量的命名规则与使用注意

●VB知识总结之简单控件使用

●在VB中创建树形目录结构图

●跟我学VB订单自动生成计算系统

用VB统计字母

046b19bff059813f9e3a0e93d116dab1.png

程序实现代码


Private Sub Command1_Click()

 Dim a(1 To 26) As Integer, c As String * 1

 x = Len(Text1)                       '求字符串的长度

 For i = 1 To x                       '  遍历字符串中每一个字符

  c = UCase(Mid(Text1, i, 1))          '取一个字符,转换成大写

    If c >= "A" And c <= "Z" Then      '只对英文字母进行转换,其他不变

      j = Asc(c) - 65 + 1               '将A~Z大写字母转换成1~26的下标

      a(j) = a(j) + 1                   '对应数组元素加1

    End If

  Next i

  For j = 1 To 26                       '输出字母及其出现的次数

     If a(j) > 0 Then Picture1.Print " "; Chr$(j + 64); "出现的次数为"; a(j);

  Next j

 End Sub


7a2d0482ff52db260ca0220b22f53a3f.gif

大家在学习VB中有不懂之处或者需要VB视频学习资料,可以添加在线学习小编微信号:vbyjk521 ,更多VB精彩编程内容,尽在跟我学VB。

a3a38cd6e14e2c4514a1e7095908645a.png

为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友,充分利用好冬季有限的时间,2018年冬季视频直播现已正式开启了,针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程;对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习。



0aea6e4af952ff7f2362a17d9252dcf8.gif fa013ef7e7ce40e0e7093f9781d2a49c.png

长按上图,关注跟我学VB公众平台

更多VB精彩内容,尽在VB学习

已标记关键词 清除标记
表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 数字20 设计师:CSDN官方博客 返回首页