vb怎么统计一行的空格数
发布网友
共1个回答
热心网友
Option Explicit
Dim letters As Integer '声明模块级变量，此变量计算字母个数
Dim space As Integer '空格个数
Dim digit As Integer '数字个数
Dim others As Integer '其他字符个数
Private Sub Command1_Click()
Dim s As String
s = InputBox("请输入字符串")
Call jisuan(s)
'以下代码用来显示统计出的结果值
Print "字符串【" & s & "】包含："
Print "英文字母数量="; letters
Print "空格数量="; space
Print "数字数量="; digit
Print "其他字符数量="; others
End Sub
Private Sub jisuan(InputStr As String) 'InputStr变量存储输入的字符串
Dim i As Integer '循环控制变量，整型
Dim CaseStr As String '此变量保存储所截取的字符
letters = 0 '初始化为0
space = 0
digit = 0
others = 0
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
End Sub
热心网友
Option Explicit
Dim letters As Integer '声明模块级变量，此变量计算字母个数
Dim space As Integer '空格个数
Dim digit As Integer '数字个数
Dim others As Integer '其他字符个数
Private Sub Command1_Click()
Dim s As String
s = InputBox("请输入字符串")
Call jisuan(s)
'以下代码用来显示统计出的结果值
Print "字符串【" & s & "】包含："
Print "英文字母数量="; letters
Print "空格数量="; space
Print "数字数量="; digit
Print "其他字符数量="; others
End Sub
Private Sub jisuan(InputStr As String) 'InputStr变量存储输入的字符串
Dim i As Integer '循环控制变量，整型
Dim CaseStr As String '此变量保存储所截取的字符
letters = 0 '初始化为0
space = 0
digit = 0
others = 0
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
End Sub
