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

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

首先新建一个标准 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


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