|
■講義一覧
 1. 変数のデータ型
2. コメント
3. 条件分岐（if 〜 then〜 elseif〜 endif）
4. 条件分岐（Select〜 case）
5. 繰り返し処理（For〜next）
6. 繰り返し処理（Do〜loop）
7. 中断（Exit）
■1.変数のデータ型
・変数定義は以下のように指定します。 "Dim 〜as〜"キーワードを使用します。
※データ型を指定しない場合は、自動的にvariant型になります。
【変数定義】
【データ型一覧】
| データ種類 |
型 |
バイト長 |
数値の範囲 |
| 整数型 |
Integer |
2バイト |
-32768 〜 32767 |
| 長整数型 |
Long |
4バイト |
-2,147,483,648 〜 2,147,483,647 |
| 小数点数型 |
Single |
4バイト |
-3.402823E38 〜
-1.401298E-45(負の値) |
| 小数点数型 |
Double |
8バイト |
1.401298E-45 〜
3.402823E38(正の値) |
| 通貨型 |
Currency |
8バイト |
-922,337,203,685,477.5808 〜
922,337,203,685,477.5807 |
| 文字列型 |
String |
2バイト |
最大約20億文字まで |
| 日付型 |
Date |
8バイト |
西暦100 年1月1日〜
西暦9999年12月31日までの日付と時刻 |
| オブジェクト型 |
Object |
4バイト |
オブジェクトを参照するデータ型 |
| バリアント型 |
Variant |
16バイト |
可変長の文字列型の範囲と同じ |
| ブール型 |
Boolean |
2バイト |
真 (True) または偽 (False) |
一覧へ
■2.コメント
・コメント定義は以下のように指定します。
【コメント定義】
一覧へ
■3.条件分岐（if then else）
・条件に一致したif文の処理が行われる。
Dim i_cnt As Integer
i_cnt = 100
if i_cnt = 90 then
'処理１
elseif i_cnt = 95 then
'処理２
else
'処理３
endif
|
一覧へ
■4.条件分岐（Select case）
・条件に一致したcase文の処理が行われる。又、一度case文の処理を行った場合は、Select文を抜けます。
※複数条件に満たしていても、一番最初のCase文しか処理は行わない。
【Case文の種類】
通常一致チェック ： Case
比較演算子チェック： Case Is
範囲チェック： Case to
Dim i_cnt As Integer
i_cnt = 100
'通常一致チェック
Select case i_cnt
Case 80
Msgbox "80だよ"
Case 90
Msgbox "90だよ"
Case 100
Msgbox "100だよ"
End Select
'比較演算子チェック
Select case i_cnt
Case Is >= 80
Msgbox "80以上だよ"
Case Is >= 90
Msgbox "90以上だよ"
Case Is >= 100
Msgbox "100以上だよ"
End Select
'範囲チェック
Select case i_cnt
Case 80 to 89
Msgbox "80以上89以下だよ"
Case 90 to 99
Msgbox "90以上99以下だよ"
Case Is >= 100
Msgbox "100以上だよ"
End Select
|
一覧へ
■5.繰り返し処理（For 〜 Next）
・条件に一致している間、処理が繰り返し行われる。
※カウントアップは自動的に行われる為、明示的に行う必要はありません。
Dim i_cnt As Integer
i_cnt = 0
For i_cnt to 10
MsgBox "i_cnt =" + str(i_cnt)
Next
|
一覧へ
■6.繰り返し処理（Do 〜 Loop）
・条件に一致している間、処理が繰り返し行われる。
※カウントアップは、明示的に行う必要はあります。
Dim i_cnt As Integer
i_cnt = 0
Do
MsgBox "i_cnt =" + str(i_cnt)
i_cnt = i_cnt + 1
Loop
|
一覧へ
■7.中断処理（Exit）
・処理を中断させるには、"Exit 識別子"キーワードを使用します。
また、使用する場所によって識別子が変わってきます。
| Exit Sub |
Subステートメント内で実行 |
| Exit Do |
Do〜Loopステートメント内で実行 |
| Exit For |
For〜Nextステートメント内で実行 |
| Exit Function |
Functionステートメント内で実行 |
一覧へ
|
