華閱文章網vb if語句
b=val(*)
if b<13.07 then msgbox "額~**********"
if b>13.07 and b<14.7 then msgbox "恭喜，**********"
if b>=14.7 then
msgbox "恭喜，********"
else
msgbox "恭喜，****"
end if
其實這里不需要Else了.因為沒有其他可能性了.
簡單Visual Basic(VB)編程問題,For語句、If語句、循環
Private Sub Command1_Click()
a = CInt(*)
b = CInt(*)
If b > a And b / a = 1.2 And b / a 2000 Then y = 2000
*n = "您的車速超過限速" & c &； "%，處" & y &； "元罰款，駕駛證記12分！"
End If
End If
End Sub
Private Sub Form_Load()
*n = "限速"
*n = "時速"
*n = ""
* = ""
* = ""
*n = "計算"
*n = "清除"
*n = "退出"
End Sub
Private Sub Command2_Click()
Call Form_Load
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
t = CInt(*)
n = CInt(*)
Sum = 0
y = 0
s$ = ""
For i = 1 To n
y = y * 10 + t
Sum = Sum + y
If i