Question

用VB编写一个程序，输入一个英文句子，可以统计出各个元音字母以及其他字符的个数

用VB编写一个程序，输入一个英文句子，可以统计出各个元音字母以及其他字符的个数忽略大小写

Answer 1

我比较喜欢用正则表达式，VB6.0还是第一次用，好久没写VB代码了

'//首先要引用Microsoft VBScript Regular Express 5.5
Private Sub Command1_Click()
   If Trim(Text1.Text) <> "" Then
      Dim str As String
      '//处理一下空格
      str = Replace(Trim(Text1.Text), " ", "")
      Dim lenstr As Integer
      lenstr = Len(str)
      Dim nvchar As String
      Dim en_count, envowel_count, encons_count, orther_count As Integer
      For i = 1 To lenstr Step 1
          nvchar = Mid(str, i, 1)
          If IsEn(nvchar) = True Then
             en_count = en_count + 1
             If IsEnvowel(nvchar) = True Then
                envowel_count = envowel_count + 1
             Else
                encons_count = encons_count + 1
             End If
          Else
             orther_count = orther_count + 1
          End If
      Next i
      MsgBox "一共有字母" + CStr(en_count) + "个，其他字符" + CStr(orther_count) + "个。其中辅音" + CStr(encons_count) + "个，元音" + CStr(envowel_count) + "个"
   Else
      MsgBox "文本输入是空值！"
   End If
End Sub
'//判断是否英文字母
Function IsEn(varchar As String) As Boolean
   Dim rex As RegExp
   Set rex = New RegExp
   rex.Pattern = "[a-zA-Z]"
   IsEn = rex.Test(varchar)
End Function
'//判断是否元音字母
Function IsEnvowel(varchar As String) As Boolean
   Dim rex As RegExp
   Set rex = New RegExp
   rex.Pattern = "[aeiouAEIOU]"
   IsEnvowel = rex.Test(varchar)
End Function