変なコード


(戻る)　　　　　VB Tips And Sample（HOME）


Option　Explicit

Private　Sub　Command1_Click()

Dim　x
x　=　0

'面倒でもこんなコード書いてはいけないとおもうのだが？
 'If　x　＜＞　0　Then　MsgBox　"koko"
 '　　　　MsgBox　"aso"
 　　　　
’以下のように書いておく。
If　x　＜＞　0　Then
　　　　MsgBox　"koko"
　　　　MsgBox　"aso"
Else
　　　　MsgBox　"aso"
End　If


End　Sub


(戻る)　　　　　VB Tips And Sample（HOME）