IsUpper ( String )
' グローバル変数Levelの値が半角アルファベットの
' "A"または"a"のどちらかをチェックする。
Dim buff
buff = GetGV ( "Level" )
If buff = "A" Then
If IsUpper ( buff ) Then
MessageBox ( "Level : Large A." )
Else
MessageBox ( "Level : Small A." )
End If
End If
' ローカル変数buffに格納された文字列が
' 半角アルファベットの大文字かどうかをチェックする。
Dim buff
buff = "SCRIPT"
If IsUpper ( buff ) Then
MessageBox ( "すべての文字が半角アルファベットの大文字である。" )
Else
MessageBox ( "半角アルファベットの大文字以外の文字が含まれている。" )
End If