Imports System.Text.RegularExpressions
パブリッククラスフォーム1
private sub button1_click（sender as object、e as eventargs）button1.click
dim inputstring as string =textbox1.text
dim resultlabel as label =label1
string.isnullorempty（inputstring）の場合
resultlabel.text ="文字を入力してください。"
戻る
ifを終了します
inputstring.length> 1の場合
resultlabel.text ="1つの文字のみを入力してください。"
戻る
ifを終了します
char =inputstring.toupper（）としての薄暗い文字
'正規表現を使用します
regex.ismatch（文字、 "[aeiou]"）の場合
resultlabel.text ="Vowel"
elseif regex.ismatch（character、 "[bcdfghjklmnpqrstvwxyz]"）then
resultlabel.text ="子音"
それ以外
resultlabel.text ="文字ではありません"
ifを終了します
'string.contains（）を使用する
'if "aeiou" .contains（文字）
'resultlabel.text ="Vowel"
'elseif "bcdfghjklmnpqrstvwxyz" .contains（文字）
'resultlabel.text ="子音"
' それ以外
'resultlabel.text ="文字ではありません"
'end if
End Sub
エンドクラス
`` `
説明：
1。入力処理：
- コードは、最初にユーザーが「textbox1」に何かを入力したかどうかを確認します。そうでない場合は、エラーメッセージが表示されます。
- また、ユーザーが複数の文字を入力したかどうかを確認し、必要に応じてエラーメッセージを表示します。
2。文字変換：
- 入力文字は、 `inputstring.toupper（）`を使用して大文字に変換されます。
3。正規表現の使用：
- コードは `regex.ismatch（）`を使用します。文字が母音（[aeiou] `）または子音（` [bcdfghjklmnpqrstvwxyz] `）の正規表現パターンと一致するかどうかを確認します。
- 文字がいずれかのパターンと一致する場合、対応するラベルはそれに応じて設定されます。それ以外の場合は、「文字ではない」と分類されます。
4。 string.contains（）（オプション）を使用して：
- コメントされたセクションは、 `string.contains（）`を使用した代替アプローチを示しています。文字列「aeiou」または「bcdfghjklmnpqrstvwxyz」内に文字が存在するかどうかをチェックして、母音か子音かを判断します。
注： このコードは、ユーザーが1つの文字のみを入力することを前提としています。複数の文字入力を処理する場合は、変更する必要がある場合があります。