【~MOON~】愛【SUN】 事情很多!~ 我們一起鼓勵與加油!~ 我永遠不孤單!~ 感謝!~我認識了你!~ 這!~幸福的邂逅!~ 我一輩子都記得!!!~ .........好好珍惜>//////<

17愛的鼓勵 0訂閱站台

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text + Text2.Text)

Select Case a

Case 322 To 331
Option1.Value = True
Case 401 To 421
Option1.Value = True


Case 422 To 430
Option2.Value = True
Case 501 To 521
Option2.Value = True


Case 522 To 531
Option3.Value = True
Case 601 To 621
Option3.Value = True


Case 622 To 630
Option4.Value = True
Case 701 To 721
Option4.Value = True


Case 722 To 731
Option5.Value = True
Case 801 To 821
Option5.Value = True


Case 822 To 831
Option6.Value = True
Case 901 To 921
Option6.Value = True



Case 922 To 930
Option7.Value = True
Case 1001 To 1021
Option7.Value = True

Case 1022 To 1031
Option8.Value = True
Case 1101 To 1121
Option8.Value = True

Case 1122 To 1130
Option9.Value = True
Case 1201 To 1221
Option9.Value = True

Case 1222 To 1231
Option10.Value = True
Case 101 To 121
Option10.Value = True

Case 122 To 131
Option11.Value = True
Case 201 To 221
Option11.Value = True

Case 222 To 230
Option12.Value = True

Case 301 To 321
Option12.Value = True


Case Else

End Select





End Sub