dim tex as integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
tex = Minute(Now)
Label1.Text = Choose(tex, "0前面半小時", "1前面半小時", "2前面半小時", "3前面半小時", "4前面半小時", "5前面半小時", "6前面半小時", "7前面半小時", "8前面半小時", "9前面半小時", "10前面半小時", _
"11分前面半小時", "12分前面半小時", "13前面半小時", "14前面半小時", "15前面半小時", "16前面半小時", "17前面半小時", "18前面半小時", "19前面半小時", "20前面半小時" _
, "21前面半小時", "22前面半小時", "23前面半小時", "24前面半小時", "25前面半小時", "27前面半小時", "28前面半小時", "29前面半小時", "30前面半小時" _
, "31過了半小時", "32過了半小時", "33過了半小時", "34過了半小時", "35過了半小時", "36過了半小時", "37過了半小時", "38過了半小時", "39過了半小時", "40過了半小時" _
, "41過了半小時", "42過了半小時", "43過了半小時", "44過了半小時", "45過了半小時", "46過了半小時", "47過了半小時", "48過了半小時", "49過了半小時", "50過了半小時" _
, "51過了半小時", "52過了半小時", "53過了半小時", "54過了半小時", "55過了半小時", "56過了半小時", "57過了半小時", "58過了半小時", "59過了半小時", "60過了半小時")
Timer1.Enabled = True
End Sub
沒有留言:
張貼留言