☆↙天天開心↗☆

2006-05-15 08:57:10最愛五月天的櫻桃

FI1

留言 0 收藏 0 推薦 0

Private Sub Command1_Click()
If Text1.Text Mod 2 = 0 Then
Label2.Caption = "此數是一個偶數"
Else
Label2.Caption = "此數是一個奇數"
End If
End Sub

Private Sub Command2_Click()
Label2.Caption = ""
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

你可能感興趣的文章

發現

最近，發現典檔很多菲律賓人排隊，覺不覺得菲律賓慣性消費了嗎？菲律賓用香港模式消費，可惜收入只是香港居民三分之一

3 小時前

公諸於世

12 小時前

殭屍道長，第一集

https://youtube.com/playlist?list=PLoS5-98Qcq9UOEK6FeFB4VYbpGMMKJg4s&si=aHW0jrxiiuTv8vtD

2024-09-29

九月，露白風清

1.白露九月走入書瑋老師寫的〈另一個起點〉https://mypaper.pchome.com.tw

5 小時前

殭屍道長，第十九集

https://youtu.be/K-lljv-Qmco?si=ynStMoFmTtLROwPA

2024-09-29