11721－遇見你是我的幸運

Mar 16 Fri 2007 09:06
11721

close

Private Sub Command1_Click()
Dim score As Integer

score = Val(InputBox("請輸入考試成績:", "成績判別"))
If score >= 60 Then
MsgBox "你及格囉!", vbInformation, "真厲害!"
Image1.Visible = True
Image2.Visible = False
Else
MsgBox "不及格!你還在睡吧?", vbInformation, "加油!"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Form_Load()

Image1.Visible = False
Image2.Visible = False

End Sub