Vb属相查询界面：
代码：Dim a As Double
Private Sub Command1_Click()
a = Text1
a = a Mod 12
Select Case Int(a)
Case 4
Label2.Caption = "你的属相为鼠"
Case 5
Label2.Caption = "你的属相为牛"
Case 6
Label2.Caption = "你的属相为虎"
Case 7
Label2.Caption = "你的属相为兔"
Case 8
Label2.Caption = "你的属相为龙"
Case 9
Label2.Caption = "你的属相为蛇"
Case 10
vb所有代码Label2.Caption = "你的属相为马"
Case 11
Label2.Caption = "你的属相为羊"
Case 0
Label2.Caption = "你的属相为猴"
Case 1
Label2.Caption = "你的属相为鸡"
Case 2
Label2.Caption = "你的属相为狗"
Case 3
Label2.Caption = "你的属相为猪"
End Select
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。