![9e8aecd9824a6020342228109fd2ff41.gif](https://i-blog.csdnimg.cn/blog_migrate/46191f7b469f9fd0a06eeb5b042efda2.gif)
●VB常量与变量的命名规则与使用注意
●VB知识总结之简单控件使用
●在VB中创建树形目录结构图
●跟我学VB订单自动生成计算系统
用VB统计字母
程序实现代码
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
大家在学习VB中有不懂之处或者需要VB视频学习资料,可以添加在线学习小编微信号:vbyjk521 ,更多VB精彩编程内容,尽在跟我学VB。
为了帮助VB基础薄弱或者VB零基础想快速掌握VB编程的朋友,充分利用好冬季有限的时间,2018年冬季视频直播现已正式开启了,针对VB基础薄弱或者零基础的朋友有专门的基础讲解课程;对已有VB编程基础想综合提高编程开发能力的朋友有综合讲解课程及串口通信与数据库开发课程可供选择学习。
![e8df8ded38ce7f7178311a5c6cf73195.gif](https://i-blog.csdnimg.cn/blog_migrate/ad680985b9d0c92e29990c9abac501d5.gif)
![84ffbee2eec15758a2338d72e4d21924.png](https://i-blog.csdnimg.cn/blog_migrate/e00fe535488403647c78d0ff4f5ed5e9.jpeg)
长按上图,关注跟我学VB公众平台
更多VB精彩内容,尽在VB学习