vb输入年份月份输出天数,生肖查年龄计算器软件

一.vb出生年份查生肖（vb输入年份判断生肖）前言

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

二.vb出生年份查生肖（vb输入年份判断生肖）正文

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

本文目录一览：

1、vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖2、vb如何计算生肖？3、用VB语言编写输入出生日期算出生肖与星座的程序4、帮忙编写一个VB程序，根据年份判断属相，谢谢

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

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

DimintSXAsInteger‘表示生肖的数字

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如何计算生肖？

添加一个按钮和一个文本框，文本框用来输入年份。

回楼上：虽然农历纪年和公历纪年有很大差别，但是绝对是一年对应一年。农历年天数少，所以制定闰年制度来防止农历年比公历年慢。

PrivateSubCommand1_Click()

Printshengxiao(Val(Text1.Text)Mod12)

用VB语言编写输入出生日期算出生肖与星座的程序

'添加控件DTPicker1，Command1

PrivateSubCommand1_Click()

Ifdd_xingzuo112Anddd_xingzuo221Then

Ifdd_xingzuo=322Anddd_xingzuo=420Then

Ifdd_xingzuo=421Anddd_xingzuo=521Then

Ifdd_xingzuo=522Anddd_xingzuo=621Then

Ifdd_xingzuo=622Anddd_xingzuo=721Then

Ifdd_xingzuo=722Anddd_xingzuo=821Then

Ifdd_xingzuo=822Anddd_xingzuo=921Then

Ifdd_xingzuo=922Anddd_xingzuo=1021Then

Ifdd_xingzuo=1022Anddd_xingzuo=1121Then

Ifdd_xingzuo=1122Anddd_xingzuo=1221Then

Ifdd_xingzuo=1222Ordd_xingzuo=111Then

leirong=leirongvbCrLf"身肖：猴"

leirong=leirongvbCrLf"身肖：鸡"

leirong=leirongvbCrLf"身肖：狗"

leirong=leirongvbCrLf"身肖：猪"

leirong=leirongvbCrLf"身肖：鼠"

leirong=leirongvbCrLf"身肖：牛"

leirong=leirongvbCrLf"身肖：虎"

leirong=leirongvbCrLf"身肖：兔"

leirong=leirongvbCrLf"身肖：龙"

leirong=leirongvbCrLf"身肖：蛇"

leirong=leirongvbCrLf"身肖：马"

leirong=leirongvbCrLf"身肖：羊"

MsgBoxleirong,vbInformation,"计算结果"

帮忙编写一个VB程序，根据年份判断属相，谢谢

Year=Val(InputBox("请输人出生年份：","生肖查询",1977))

Label1.Caption="您是"Str(Year)+"年出生的生肖为："

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