VB 字符统计：计算元音、辅音和其他字符数量

本文介绍如何使用 VB 编程统计字符串中的元音字母、非元音字母和其他字符的数量。

功能:

在文本框中输入字符串。* 按下回车键或点击“统计”按钮，程序统计字符串中元音字母、非元音字母和其他字符的个数。* 结果显示在对应的标签中。* 点击“结束”按钮关闭窗口。

代码示例:

首先，在窗体上添加以下控件：

一个 TextBox 控件（名为 txtInput）* 一个 Button 控件（名为 btnCount，Text 属性设置为“统计”）* 一个 Label 控件（名为 lblVowelsCount）* 一个 Label 控件（名为 lblNonVowelsCount）* 一个 Label 控件（名为 lblOtherCount）* 一个 Button 控件（名为 btnEnd，Text 属性设置为“结束”）

然后，将以下代码添加到窗体的代码中：vbPrivate Sub txtInput_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtInput.KeyPress If e.KeyChar = ChrW(Keys.Enter) Then CountCharacters() End IfEnd Sub

Private Sub btnCount_Click(sender As Object, e As EventArgs) Handles btnCount.Click CountCharacters()End Sub

Private Sub CountCharacters() Dim input As String = txtInput.Text.Trim().ToLower() Dim vowelsCount As Integer = 0 Dim nonVowelsCount As Integer = 0 Dim otherCount As Integer = 0

For Each ch As Char In input        If Char.IsLetter(ch) Then            If 'aeiou'.Contains(ch) Then                vowelsCount += 1            Else                nonVowelsCount += 1            End If        Else            otherCount += 1        End If    Next

lblVowelsCount.Text = '元音字母个数：' & vowelsCount.ToString()    lblNonVowelsCount.Text = '非元音字母个数：' & nonVowelsCount.ToString()    lblOtherCount.Text = '其他字符个数：' & otherCount.ToString()End Sub

Private Sub btnEnd_Click(sender As Object, e As EventArgs) Handles btnEnd.Click Me.Close()End Sub

代码说明:

事件处理: * txtInput_KeyPress 事件处理程序：当用户在文本框 txtInput 中按下按键时触发。如果按下的是回车键，则调用 CountCharacters 方法。 * btnCount_Click 事件处理程序：当用户点击“统计”按钮时触发，调用 CountCharacters 方法。 * btnEnd_Click 事件处理程序：当用户点击“结束”按钮时触发，关闭当前窗体。
CountCharacters 方法: * 声明变量： * input：存储从文本框中获取的字符串，并转换为小写，去除前后空格。 * vowelsCount：存储元音字母的数量，初始值为 0。 * nonVowelsCount：存储非元音字母的数量，初始值为 0。 * otherCount：存储其他字符的数量，初始值为 0。 * 遍历字符串：使用 For Each 循环遍历 input 字符串中的每个字符 ch。 * 判断字符类型： * 使用 Char.IsLetter(ch) 判断字符是否为字母。 * 如果是字母，则使用 'aeiou'.Contains(ch) 判断是否为元音字母。 * 根据判断结果，相应地增加 vowelsCount 或 nonVowelsCount 的值。 * 如果不是字母，则增加 otherCount 的值。 * 显示结果：将统计结果显示在对应的标签控件中。

通过以上代码，你可以实现一个简单的 VB 字符统计程序，用于统计字符串中元音、辅音和其他字符的数量。