当前位置:首页 > 程序设计 > VB程序设计 > 字符操作 > 详细内容
VB统计各字母出现的次数
作者:admin  发布时间:2009-6-7  阅读次数:12541  字体大小: 【】 【】【

网友问题:输入一串不区分大小写的字母,统计各字母出现的次数?

首先新建一个标准 EXE 工程,然后在出现的Form1(窗体)上画上一个TextBox(文本框)控件一个Label(标签)控件一个CommandBtton(按钮)控件。然后在窗体Command1按钮的Click(按钮单击)事件中写入以下代码:

Dim OldStr, NewStr As String
Dim i, j, k As Integer
Dim Str As String * 1
Dim ZmCount(1 To 26) As Integer
       If Text1.Text = "" Then
               MsgBox "文本框为空,请输入任意字母!"
       Else
               OldStr = Trim(Text1.Text)
               For i = 1 To Len(OldStr)
                       Str = Mid(OldStr, i, 1) 取指定位置字母
                       If Asc(Str) < 65 Or Asc(Str) > 90 And Asc(Str) < 97 Or Asc(Str) > 122 Then 判断不是字母的字符
                               MsgBox "检测到非字母字符,计算无法进行!请检查输入的字符是否为字母。"
                               GoTo z 如果不是字母就跳转到代码尾z标记得地方
                       End If
                      
                       If Asc(Str) >= 97 And Asc(Str) <= 122 Then   判断是小写字母
                       这里也可以判断是大写字母If Asc(str) >= 65 And Asc(str) <= 90 Then 然后将大写字母转成小写
                       Str = UCase(Str) 小写字母转成大写
                       Else
                       Str = Str
                       End If
                       NewStr = NewStr & Str
               Next i
              
               For j = 1 To Len(NewStr)
                       Str = Mid(NewStr, j, 1) 取指定位置字母
                       k = Asc(Str) - 65 + 1
                       If k > 0 Then
                               ZmCount(k) = ZmCount(k) + 1
                       End If
               Next j
              
               For k = 1 To 26
                       If ZmCount(k) > 0 Then
                       Result = Result & Chr(k + 64) & "=" & ZmCount(k) & " "
                       End If
               Next k
               Label1.Caption = Result
       End If
z:

来源:潇潇的编程网站
上一篇:没有了! 下一篇:没有了!
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论:(匿名发表无需登录,已登录用户可直接发表。) 登录状态:未登录
最新评论
所有评论[0]
    暂无已审核评论!
最新发布
热门文章
Web Lite SWeTE: Simple Website Translation Engine
 


设为首页 | 加入收藏 | 意见建议 | 友情链接 | 版权声明 | 管理登陆 | 编程论坛 | 给我留言

声明:本网站部分稿件来源的所有文字、图片和音视频稿件,来自互联网,若侵犯您的权利,请来信告知,我们将在第一时间内删除!


Copyright 2009-2015 redrose ( wgbcw.cn ) All rights reserved ICP备案编号:滇ICP备09007156号 Dict.cn


点击这里给我发消息
点击这里给我发消息
安全联盟站长平台