2007-11-01 13:56:42奶茶
又來貼VB程式了= =無聊ㄟ
Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 0 To 3
Label3.Caption = ”保母家or在家玩沙”
Case 4 To 6
Label3.Caption = ”幼稚園”
Case 7 To 12
Label3.Caption = ”小學”
Case 13 To 15
Label3.Caption = ”中學”
Case 16 To 18
Label3.Caption = ”高中”
Case 19 To 100
Label3.Caption = ”大學或社會工作”
End Select
End Sub
Select Case Val(Text1.Text)
Case 0 To 3
Label3.Caption = ”保母家or在家玩沙”
Case 4 To 6
Label3.Caption = ”幼稚園”
Case 7 To 12
Label3.Caption = ”小學”
Case 13 To 15
Label3.Caption = ”中學”
Case 16 To 18
Label3.Caption = ”高中”
Case 19 To 100
Label3.Caption = ”大學或社會工作”
End Select
End Sub
上一篇：水費計算