作业帮判断属相 急用
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/08 03:50:51
判断属相 急用
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两种方法 差不多了
再问： 能把那个框图发给我吗 好像有错误
再答：
再问： 253556546 私聊 可以吗 我真的希望能得到您的帮助
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两种方法 差不多了
再问： 能把那个框图发给我吗 好像有错误
再答：
再问： 253556546 私聊 可以吗 我真的希望能得到您的帮助