vb编写星座:用VB语言在EXCEL中编写通过出生年月日判断星座 急求！

VB制做星座测试的代码

我来回答：在窗体添加一个label，text1(月，text2(日期，如12)，三个按钮，OK~你把代码复制进去就好了~~PrivateSubCommand1_Click()'检测你是什么星座a=Val(Text1.Text)b=Val(Text2.Text)C=a*100+bLabel1.Caption="魔羯座"1221ThenC=0IfC>水瓶座"白羊座"金牛座"双子座"巨蟹座"狮子座"处女座"天秤座"天蝎座"EndIfIfC>人马座"EndIfEndSubPrivateSubCommand2_Click()'"Label1.Caption=""Text1.SetFocusEndSubPrivateSubCommand3_Click()'退出EndEndSub

如何在VB中用比较简单的语句编写一个计算星座的程序 求详细过程

简单是相对的，如果要求代码少而精，可能可读性与结构性就差，要求可读性与结构性比较好，可能代码会增多。就目前发展来说，由于计算机的速度和存储空间的极大提升，程序（算法）的可读性与结构性是主流要求。我曾经说过，解决一个问题用一行代码和用一千行代码（例子举得比较极端），对计算机运行来说人们的感觉没有什么区别。你的这个问题，有多种多样的解决方法，想当然的方法，会用到数组和比较复杂的If语句。我现在用一个方法，请你看看是否觉得简单呢？在窗体添加2个组合框，一个 按钮和一个文本框Text1:代码如下：Option ExplicitPrivate XZ As StringPrivate Sub Command1_Click()Dim M As StringDim D As StringDim d1 As DateDim d2 As DateDim L As IntegerM = Combo1.TextD = Combo2.TextL = InStr(XZ,M)If D <你的星座是："& Mid(XZ,3)End IfEnd SubPrivate Sub Form_Load()Dim i As IntegerCombo1.ClearFor i = 1 To 12 If i <月"魔羯座01月20日水瓶座02月19日双鱼座03月20日白羊座04月20日金牛座05月21日双子座06月21日巨蟹座"& _ "07月22日狮子座08月23日处女座09月23日天秤座10月23日天蝎座11月22日射手座12月21日魔羯座"End Sub我这个程序。

vb编个 测星座的程序

白羊座配对：白羊座 金牛座 双子座 巨蟹座 狮子座 处女座 （66分） （93分） （19分） （86分） （57分）（96分） 天秤座 天蝎座 射手座 摩羯座 水瓶座 双鱼座 （44分） （82分） （25分） （94分） （39分）（83分） 天秤座配对：白羊座 金牛座 双子座 巨蟹座 狮子座 处女座 （82分） （47分） （90分） （17分） （77分）（46分） 天秤座 天蝎座 射手座 摩羯座 水瓶座 双鱼座 （91分） （64分） （77分） （21分） （94分）（64分） 天蝎座配对：白羊座 金牛座 双子座 巨蟹座 狮子座 处女座 （20分） （96分） （44分） （78分） （55分）（97分） 天秤座 天蝎座 射手座 摩羯座 水瓶座 双鱼座 （27分） （82分） （66分） （96分） （46分）（78分） 水瓶座配对：白羊座 金牛座 双子座 巨蟹座 狮子座 处女座 （82分） （21分） （92分） （59分） （79分）（44分） 天秤座 天蝎座 射手座 摩羯座 水瓶座 双鱼座 （90分） （22分） （78分） （43分） （95分）（66分） 双鱼座配对：白羊座 金牛座 双子座 巨蟹座 狮子座 处女座 （43分） （88分） （19分） （95分） （45分）（83分） 天秤座 天蝎座 射手座 摩羯座 水瓶座 双鱼座

VB 星座查询代码

'建立一个command1控件，返回星座 Dim Number As Long Number = Month(m) * 100 + Day(m) Select Case Number Case 321 To 419 Constellation = "白羊"金牛"双子"巨蟹"狮子"处女"天秤"天蝎"射手"摩蝎"水瓶"双鱼"Case Else Constellation = "无此星座！End Select End Function Private Sub Command1_Click() If IsDate(Trim(Text1)) = True Then MsgBox Constellation(Trim(Text1)) Else MsgBox "日期格式错误！"End If End Sub Private Sub Form_Load() Command1.Caption = "星座"Text1 = "1547-7-7"End Sub

VB根据生日计算星座

'建立一个command1控件，一个text1控件 Option Explicit Function Constellation(ByVal m As Date) As String '返回星座 Dim Number As Long Number = Month(m) * 100 + Day(m) Select Case Number Case 321 To 419 Constellation = "白羊" Case 420 To 520 Constellation = "金牛" Case 521 To 621 Constellation = "双子" Case 622 To 722 Constellation = "巨蟹" Case 723 To 822 Constellation = "狮子" Case 823 To 922 Constellation = "处女" Case 923 To 1023 Constellation = "天秤" Case 1024 To 1121 Constellation = "天蝎" Case 1122 To 1221 Constellation = "射手" Case 1222 To 1231 Constellation = "摩蝎" Case 101 To 119 Constellation = "摩蝎" Case 120 To 218 Constellation = "水瓶" Case 219 To 320 Constellation = "双鱼" Case Else Constellation = "无此星座！" End Select End Function Private Sub Command1_Click() If IsDate(Trim(Text1)) = True Then MsgBox Constellation(Trim(Text1)) Else MsgBox "日期格式错误！" End If End Sub Private Sub Form_Load() Command1.Caption = "星座" Text1 = "1547-7-7" End Sub

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

'新建窗体form1'添加控件 DTPicker1，Command1Private 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 >水瓶座"白羊座"金牛座"双子座"巨蟹座"星座：狮子坐"处女座"天秤座"天蝎座"射手座"星座：摩羯座"End If Select Case dd_shengxiao Case 0 leirong = leirong & vbCrLf & "猪"Case 4 leirong = leirong & vbCrLf & "鼠"Case 5 leirong = leirong & vbCrLf虎"羊""计算结果"End Sub

用vb代码 编写一个星座生肖查询的小程序，至少要百分之六十的原创，12月12号以前完成

什么样的？ 比如说是输入生日后弹出框？

用VB语言在EXCEL中编写通过出生年月日判断星座 急求！

其实最简单的思路应该是将生日（比如在A1）中的年份信息去掉（全部统一为1900年，用函数date（0，month（A1），day（A1）），再与星座分割日（比如水瓶座1月20日为20，以前网上很多一句语句查星座的都是这个思路。但这个方法有个隐蔽的bug：闰年里面的星座分割日在3月份之后要加1。往往就是因为你函数中这种隐蔽的bug了。为了绕过闰年的bug，我编写了下面的函数，直接仿造人肉查询月、日的过程。里面有可以优化的地方，比如月份的数组由于维数和内容一样，可以直接优化掉；比如最后的if语句结构可以用一个iif语句代替。摩羯座"水瓶座"白羊座"金牛座"双子座"巨蟹座"狮子座"处女座"XZ(9) = "天秤座"天蝎座"射手座"XZ(12) = "摩羯座"