用vb计算生肖 计算机算生肖

vb 如何计算生肖

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

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

Dimshengxiao(12)AsString

PrivateSubCommand1_Click()

Cls

Printshengxiao(Val(Text1.Text)Mod12)

EndSub

PrivateSubForm_Load()

shengxiao(0)="牛"

shengxiao(1)="鼠"

shengxiao(2)="猪"

shengxiao(3)="狗"

shengxiao(4)="鸡"

shengxiao(5)="猴"

shengxiao(6)="羊"

shengxiao(7)="马"

shengxiao(8)="蛇"

shengxiao(9)="龙"

shengxiao(10)="兔"

shengxiao(11)="虎"

EndSub

VB 判断生肖

Dima(1To12)AsString

PrivateSubCommand1_Click()

n=Combo1.Text

Ifn<=0ThenMsgBox"请输入大于0的数！":ExitSub

Ifn<12Then

n=n+12

EndIf

Ifn>=12Then

r=nMod12

SelectCaser

Case4:sx="鼠"

Case5:sx="牛"

Case6:sx="虎"

Case7:sx="兔"

Case8:sx="龙"

Case9:sx="蛇"

Case10:sx="马"

Case11:sx="羊"

Case0:sx="猴"

Case1:sx="鸡"

Case2:sx="狗"

Case3:sx="猪"

EndSelect

EndIf

Label1.Caption=sx

EndSub

PrivateSubForm_Load()

Label1.Caption=""

Label1.FontSize=30

Label1.ForeColor=vbBlue

EndSub

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

&39;新建窗体form1

&39;添加控件DTPicker1，Command1

PrivateSubCommand1_Click()

DimaaAsInteger

DimbbAsInteger

DimAsInteger

Dimdd_xingzuoAsInteger

Dimdd_shengxiaoAsInteger

DimleirongAsString

bb=DTPicker1.Month

aa=DTPicker1.Day

=DTPicker1.Year

dd_xingzuo=(bb100+aa)

dd_shengxiao=Mod12

Ifdd_xingzuo>112Anddd_xingzuo<221Then

leirong="星座水瓶座"

EndIf

Ifdd_xingzuo>=221Anddd_xingzuo<=321Then

leirong="星座双鱼座"

EndIf

Ifdd_xingzuo>=322Anddd_xingzuo<=420Then

leirong="星座白羊座"

EndIf

Ifdd_xingzuo>=421Anddd_xingzuo<=521Then

leirong="星座金牛座"

EndIf

Ifdd_xingzuo>=522Anddd_xingzuo<=621Then

leirong="星座双子座"

EndIf

Ifdd_xingzuo>=622Anddd_xingzuo<=721Then

leirong="星座巨蟹座"

EndIf

Ifdd_xingzuo>=722Anddd_xingzuo<=821Then

leirong="星座狮子坐"

EndIf

Ifdd_xingzuo>=822Anddd_xingzuo<=921Then

leirong="星座处女座"

EndIf

Ifdd_xingzuo>=922Anddd_xingzuo<=1021Then

leirong="星座天秤座"

EndIf

Ifdd_xingzuo>=1022Anddd_xingzuo<=1121Then

leirong="星座天蝎座"

EndIf

Ifdd_xingzuo>=1122Anddd_xingzuo<=1221Then

leirong="星座射手座"

EndIf

Ifdd_xingzuo>=1222Ordd_xingzuo<=111Then

leirong="星座摩羯座"

EndIf

SelectCasedd_shengxiao

Case0

leirong=leirong&vbCrLf&"身肖猴"

Case1

leirong=leirong&vbCrLf&"身肖鸡"

Case2

leirong=leirong&vbCrLf&"身肖狗"

Case3

leirong=leirong&vbCrLf&"身肖猪"

Case4

leirong=leirong&vbCrLf&"身肖鼠"

Case5

leirong=leirong&vbCrLf&"身肖牛"

Case6

leirong=leirong&vbCrLf&"身肖虎"

Case7

leirong=leirong&vbCrLf&"身肖兔"

Case8

leirong=leirong&vbCrLf&"身肖龙"

Case9

leirong=leirong&vbCrLf&"身肖蛇"

Case10

leirong=leirong&vbCrLf&"身肖马"

Case11

leirong=leirong&vbCrLf&"身肖羊"

EndSelect

MsgBoxleirong,vbInformation,"计算结果"

EndSub