输入年份输出生肖c语言,输入年份输出生肖编程

一.vb输入年份输出生肖（c程序输入年份输出生肖）前言

大家好，如果您还对vb输入年份输出生肖（c程序输入年份输出生肖）不太了解，没有关系，今天就由本站seo导航为大家分享vb输入年份输出生肖（c程序输入年份输出生肖）的知识，还望可以解决大家的问题，下面我们就开始吧！

二.vb输入年份输出生肖（c程序输入年份输出生肖）正文

本篇文章给大家谈谈vb输入年份输出生肖，以及c程序输入年份输出生肖对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

1、我想做一个VB程序编辑，就是你输入相应的年份，会自动回复相应的属相。关于十二生肖的。2、vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖3、编写一个VB程序：输入一个年份得出此年份的属相

我想做一个VB程序编辑，就是你输入相应的年份，会自动回复相应的属相。关于十二生肖的。

theyear?=?Val(InputBox("请输入年份"))

sx?=?"鼠牛虎兔龙蛇马羊猴鸡狗猪"

ty?=?(theyear?-?1960)?Mod?12?'1960年是鼠年，以此为基准

If?ty0?Then?ty?=?ty?+?12'如果theyear1960会得到负数，在此校正

MsgBox?Mid(sx,?ty?+?1,?1)

vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖

'本子程序将年份数字转化为生肖：

DimstrSXAsString’表示生肖的字符

intSX=Val(Combo1.Text)Mod12

'在右侧图像框显示图片。事先要将准备好的生肖图片以生肖名命名，如“猴.jpg”等，放在

'应用程序所在的文件夹中。

Picture1.Picture=LoadPicture(App.Path""strSX".jpg")

PrivateSubCombo1_Change()

IfLen(Combo1.Text)=4AndIsNumeric(Combo1.Text)Then

PrivateSubForm_Activate()

编写一个VB程序：输入一个年份得出此年份的属相

PublicFunctionshengxiao(iYearAsLong)AsString

'dict="子丑寅卯辰巳午未申酉戌亥"

dict="鼠牛虎兔龙蛇马羊猴鸡犬猪"

PrivateSubCommand1_Click()

关于vb输入年份输出生肖和c程序输入年份输出生肖的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。