判断属相 急用
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/23 16:34:38
判断属相急用判断属相急用判断属相急用Private Const s As String = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
判断属相 急用
判断属相 急用 
判断属相 急用
Private Const s As String = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
Private Sub Command1_Click()
Dim i As Integer
i = CInt(Text1.Text)
Text2.Text = Mid(s, (i - 1900) Mod 12 + 1, 1)
End Subfunction GetSuXing(Year as integer) as string
dim s as string
s="鼠牛虎兔龙蛇马羊猴鸡狗猪"
GetSuXiang = Mid(s, (Year-1900) Mod 12 + 1, 1)
end function
private Command1_Click()
text2.text=GetSuXing(text1.text)
end sub
两种方法 差不多了