1个回答
展开全部
Private Sub Command1_Click()
n = Text1.Text
t = n Mod 12
If t = 4 Then Text2.Text = "鼠年"
If t = 5 Then Text2.Text = "牛年"
If t = 6 Then Text2.Text = "虎年"
If t = 7 Then Text2.Text = "兔年"
If t = 8 Then Text2.Text = "龙年"
If t = 9 Then Text2.Text = "蛇年"
If t = 10 Then Text2.Text = "马年"
If t = 11 Then Text2.Text = "羊年"
If t = 0 Then Text2.Text = "猴年"
If t = 1 Then Text2.Text = "鸡年"
If t = 2 Then Text2.Text = "狗年"
If t = 3 Then Text2.Text = "猪年"
End Sub
n = Text1.Text
t = n Mod 12
If t = 4 Then Text2.Text = "鼠年"
If t = 5 Then Text2.Text = "牛年"
If t = 6 Then Text2.Text = "虎年"
If t = 7 Then Text2.Text = "兔年"
If t = 8 Then Text2.Text = "龙年"
If t = 9 Then Text2.Text = "蛇年"
If t = 10 Then Text2.Text = "马年"
If t = 11 Then Text2.Text = "羊年"
If t = 0 Then Text2.Text = "猴年"
If t = 1 Then Text2.Text = "鸡年"
If t = 2 Then Text2.Text = "狗年"
If t = 3 Then Text2.Text = "猪年"
End Sub
追问
我试了一下,怎么不能运行呢?一直提示着 t = n Mod 12 需要调试 ,不清楚怎么回事呢?
追答
我刚刚运行了一下,可以啊,并没出现问题。
确定添加了2个text,一个command。
如果还不行,你截一张代码窗体的图,我帮你看看。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询