Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
題目說明:判斷月份為大月或小月<br />
檔案名稱:<strong>03</strong> \ ch5 \ P.139-2<br />
表單:<br />
程式碼:<br />
Private Sub Form_Activate()<br />
Dim m As Integer<br />
m = InputBox("請輸入月份:", "月份輸入")<br />
If m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12 Then<br />
MsgBox m & "月是大月", , "月份判斷"<br />
Else<br />
MsgBox m & "月是小月", , "月份判斷"<br />
End If<br />
End Sub<br />
執行結果:ex.輸入 1