Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
題目說明:請利用 Select Case 判斷敘述,撰寫可依據輸入之智力測驗成績來判<br />
斷及顯示智力等級的程式。80~110 分為正常智力;111~120 分為高<br />
智力;121~140 分為極高智力;141 則為天才。<br />
檔案名稱:<strong>03</strong> \ ch5 \ P.165<br />
表單:<br />
程式碼:<br />
Private Sub Form_Activate()<br />
Dim s As Integer<br />
s = InputBox("請輸入智力測驗成績:", "測驗成績判斷")<br />
Select Case s<br />
Case 80 To 110<br />
MsgBox "正常智力", , "測驗成果"<br />
Case 111 To 120<br />
MsgBox "高智力", , "測驗結果"<br />
Case 121 To 140<br />
MsgBox "極高智力", , "測驗結果"<br />
Case Is >= 141<br />
MsgBox "天才", , "測驗結果"<br />
End Select<br />
End Sub<br />
執行結果:ex.輸入 120