vb+由生肖查年份（vb输入年份判断生肖）
今天给各位分享vb+由生肖查年份的知识，其中也会对vb输入年份判断生肖进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！
本文目录一览：
- 1、vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖
- 2、帮忙编写一个VB程序，根据年份判断属相，谢谢
- 3、VB 用数组完成 输入一个年份 输出这一年的属相。
- 4、用VB语言编写输入出生日期算出生肖与星座的程序
- 5、我想做一个VB程序编辑，就是你输入相应的年份，会自动回复相应的属相。关于十二生肖的。
- 6、VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的图片
vb代码，选择年份，然后出现对应的生肖，以及动物图片。计算生肖
Option Explicit
Private Sub Change_Pic()
'本子程序将年份数字转化为生肖：
Dim intSX As Integer ‘表示生肖的数字
Dim strSX As String ’表示生肖的字符
Picture2.Cls
intSX = Val(Combo1.Text) Mod 12
Select Case intSX
Case 0
strSX = "猴"
Case 1
strSX = "鸡"
Case 2
strSX = "狗"
Case 3
strSX = "猪"
Case 4
strSX = "鼠"
Case 5
strSX = "牛"
Case 6
strSX = "虎"
Case 7
strSX = "兔"
Case 8
strSX = "龙"
Case 9
strSX = "蛇"
Case 10
strSX = "马"
Case 11
strSX = "羊"
End Select
'在左侧图像框显示文字
Picture2.Print strSX "年"
'在右侧图像框显示图片。事先要将准备好的生肖图片以生肖名命名，如“猴.jpg”等，放在
'应用程序所在的文件夹中。
Picture1.Picture = LoadPicture(App.Path "\" strSX ".jpg")
End Sub
Private Sub Combo1_Change()
If Len(Combo1.Text) = 4 And IsNumeric(Combo1.Text) Then
Call Change_Pic
Else
Picture1.Cls
Picture2.Cls
End If
End Sub
Private Sub Combo1_Click()
Call Change_Pic
End Sub
Private Sub Form_Activate()
Call Change_Pic
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 1901 To 2300
Combo1.AddItem (i)
Next
Combo1.Text = Year(Now)
End Sub
帮忙编写一个VB程序，根据年份判断属相，谢谢
Dim Year As Integer
Dim Name As Integer
Year = Val(InputBox("请输人出生年份：", "生肖查询", 1977))
Label1.Caption = "您是" Str(Year) + "年出生的生肖为："
Name = Year Mod 12
Select Case Name
Case 4
Label2.Caption = "鼠"
Case 5
Label2.Caption = "牛"
Case 6
Label2.Caption = "虎"
Case 7
Label2.Caption = "兔"
Case 8
Label2.Caption = "龙"
Case 9
Label2.Caption = "蛇"
Case 10
Label2.Caption = "马"
Case 11
Label2.Caption = "羊"
Case 0
Label2.Caption = "猴"
Case 1
Label2.Caption = "鸡"
Case 2
Label2.Caption = "狗"
Case 3
Label2.Caption = "猪"
End Select
VB 用数组完成 输入一个年份 输出这一年的属相。
Private Sub Command1_Click()
Dim ArrShengxiao() As String
ArrShengxiao = Split("鼠、牛、虎、兔、龙、蛇、马、羊、猴、鸡、狗、猪", "、")
Dim Year As String
strYear = InputBox("请输入年份", "输入", "2014")
If Len(strYear) 1 Then
MsgBox ("年份必须输入")
Exit Sub
End If
If IsNumeric(strYear) = False Then
MsgBox ("年份必须为数字")
Exit Sub
End If
'年生肖
Dim CurShengxiao As String
CurShengxiao = ArrShengxiao(Abs(((2014 - CInt(strYear)) Mod 12) - 6))
MsgBox strYear "年生肖是：" CurShengxiao
End Sub
用VB语言编写输入出生日期算出生肖与星座的程序
'新建窗体form1
'添加控件 DTPicker1，Command1
Private Sub Command1_Click()
Dim aa As Integer
Dim bb As Integer
Dim cc As Integer
Dim dd_xingzuo As Integer
Dim dd_shengxiao As Integer
Dim leirong As String
bb = DTPicker1.Month
aa = DTPicker1.Day
cc = DTPicker1.Year
dd_xingzuo = (bb * 100 + aa)
dd_shengxiao = cc Mod 12
If dd_xingzuo 112 And dd_xingzuo 221 Then
leirong = "星座：水瓶座"
End If
If dd_xingzuo = 221 And dd_xingzuo = 321 Then
leirong = "星座：双鱼座"
End If
If dd_xingzuo = 322 And dd_xingzuo = 420 Then
leirong = "星座：白羊座"
End If
If dd_xingzuo = 421 And dd_xingzuo = 521 Then
leirong = "星座：金牛座"
End If
If dd_xingzuo = 522 And dd_xingzuo = 621 Then
leirong = "星座：双子座"
End If
If dd_xingzuo = 622 And dd_xingzuo = 721 Then
leirong = "星座：巨蟹座"
End If
If dd_xingzuo = 722 And dd_xingzuo = 821 Then
leirong = "星座：狮子坐"
End If
If dd_xingzuo = 822 And dd_xingzuo = 921 Then
leirong = "星座：处女座"
End If
If dd_xingzuo = 922 And dd_xingzuo = 1021 Then
leirong = "星座：天秤座"
End If
If dd_xingzuo = 1022 And dd_xingzuo = 1121 Then
leirong = "星座：天蝎座"
End If
If dd_xingzuo = 1122 And dd_xingzuo = 1221 Then
leirong = "星座：射手座"
End If
If dd_xingzuo = 1222 Or dd_xingzuo = 111 Then
leirong = "星座：摩羯座"
End If
Select Case dd_shengxiao
Case 0
leirong = leirong vbCrLf "身肖：猴"
Case 1
leirong = leirong vbCrLf "身肖：鸡"
Case 2
leirong = leirong vbCrLf "身肖：狗"
Case 3
leirong = leirong vbCrLf "身肖：猪"
Case 4
leirong = leirong vbCrLf "身肖：鼠"
Case 5
leirong = leirong vbCrLf "身肖：牛"
Case 6
leirong = leirong vbCrLf "身肖：虎"
Case 7
leirong = leirong vbCrLf "身肖：兔"
Case 8
leirong = leirong vbCrLf "身肖：龙"
Case 9
leirong = leirong vbCrLf "身肖：蛇"
Case 10
leirong = leirong vbCrLf "身肖：马"
Case 11
leirong = leirong vbCrLf "身肖：羊"
End Select
MsgBox leirong, vbInformation, "计算结果"
End Sub
我想做一个VB程序编辑，就是你输入相应的年份，会自动回复相应的属相。关于十二生肖的。
theyear = Val(InputBox("请输入年份"))
sx = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
ty = (theyear - 1960) Mod 12 '1960年是鼠年，以此为基准
If ty 0 Then ty = ty + 12 '如果theyear1960会得到负数，在此校正
MsgBox Mid(sx, ty + 1, 1)
VBA编程，由用户输入一个年份，判断是什么生肖，并输出相应的图片
'定义生肖数组
Dim sx
'以下两行按需求任选一行使用
sx = Split("鼠,牛,虎,兔,龙,蛇,马,羊,猴,鸡,狗,猪", ",")
'sx = Split("子鼠,丑牛,寅虎,卯兔,辰龙,巳蛇,午马,未羊,申猴,酉鸡,戌狗,亥猪", ",")
'在TextBox1中输入年份，
'TextBox1限制输入字数为4(属性MaxLength=4）且只能输入数字（代码）
Private Sub TextBox1_KeyPress(ByVal KeyAscii As Integer)
If KeyAscii vbKey0 Or KeyAscii vbKey9 Then KeyAscii = 0
End Sub
‘使用CommandButton1计算生肖索引，在Label1显示生肖名称，在Image1显示生肖图片
Private Sub CommandButton1_Click()
Dim sxIndex As Integer
sxIndex = Abs(inYear - 1900) Mod 12 '计算生肖名称索引，1900是鼠年的年份数
Label1 = sx(sxIndex) '显示生肖名称
Image1.Picture = LoadPicture(ActiveWorkbook.Path "\sxpic\sx" sxIndex ".jpg") '显示生肖图片，生肖图片使用像“sx0.jpg”这样的文件名。要求：1、文件必须是保存过的；2、需要把生肖图片放在文件所在文件夹的子文件夹“sxpic"之下
End Sub
vb+由生肖查年份的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb输入年份判断生肖、vb+由生肖查年份的信息别忘了在本站进行查找喔。
与本文内容相关的文章：
