编写VB程序,判断某一年的属相,谢谢

 我来答 举报
吾桐语
2012-04-16 · TA获得超过2914个赞
知道大有可为答主
回答量:1534
采纳率:94%
帮助的人:1112万
展开全部
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
追问
我试了一下,怎么不能运行呢?一直提示着 t = n Mod 12 需要调试  ,不清楚怎么回事呢?
追答
我刚刚运行了一下,可以啊,并没出现问题。
确定添加了2个text,一个command。
如果还不行,你截一张代码窗体的图,我帮你看看。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式