case文 Dim a As Integer a = 2 ' 2番目の条件に合致するので、処理Bが実行される Select Case a Case 1 ' 処理A Case 2 ' 処理B Case 3, 4 ' 処理C Case 5 To 10 ' 処理D Case Else ' 処理E End Select

型判定 文字か数値かを判定する。 Numeric(x) オブジェクト名.Text.GetTypeCode = TypeCode.型 (例)TextBox.Text.GetTypeCode = TypeCode.Int16 テキストボックスのテキストから型のコードを取り出して、 照合したい型と=で結ぶ。