zoukankan      html  css  js  c++  java
  • VB字符统计函数

    在“通用声明”代码区声明(窗体)模块级变量 
    Option Explicit

    Dim letters As Integer '声明模块级变量,此变量计算字母个数
    Dim space As Integer '空格个数
    Dim digit As Integer '数字个数
    Dim others As Integer '其他字符个数

     
    输入cmdStat_Click()事件过程代码 
    Private Sub cmdStat_Click()
    Dim InputStr As String '局部变量,此变量存储输入的字符串
    Dim i As Integer '循环控制变量,整型
    Dim CaseStr As String '此变量保存储所截取的字符
    letters = 0 '初始化为0
    space = 0
    digit = 0
    others = 0

    InputStr = txtInput.Text '取得输入的字符串
    For i = 1 To Len(InputStr) '开始分别统计个数
     CaseStr = Mid(InputStr, i, 1) '取得某个字符
     Select Case CaseStr
      Case "a" To "z", "A" To "Z" '如果字符是英文字母
       letters = letters + 1
      Case " " '如果字符是空格
       space = space + 1
      Case 0 To 9 '如果字符是数字
       digit = digit + 1
      Case Else '如果字符是其他字母
       others = others + 1
     End Select
    Next

    '以下代码用来显示统计出的结果值
    txtResult1.Text = letters
    txtResult2.Text = space
    txtResult3.Text = digit
    txtResult4.Text = others
    txtResult5.Text = Len(InputStr)
    End Sub
  • 相关阅读:
    Java从指定目录下加载class文件
    超市问题
    SpringBoot中的thymeleaf布局
    SpringBoot 异步支持
    Groovy 脚本引发的 Old GC问题
    Java8 新特性笔记
    MySQL字段默认值踩坑记录
    SpringMVC接收Postman post json数据
    如何实现远程办公安全
    打印机打印的文档或图像出现白色横纹如何解决?
  • 原文地址:https://www.cnblogs.com/no7dw/p/1612419.html
Copyright © 2011-2022 走看看