vb编写星座查询软件:

VB 星座查询代码

PrivateSubCommand1_Click()Dimstr1AsString,xzxz=Array("金牛座"",巨蟹座",狮子座",处女座",天秤座",天蝎座"射手座"",摩羯座",",水瓶座",_",双鱼座",20)str1=txtMonth&"&txtDayIfIsDate(str1)Then',d1=CDate(str1)Fori=0ToUBound(xz)Step5IfVal(txtMonth)>,=xz(i+1)AndVal(txtDay)>,=xz(i+2)_AndVal(txtMonth)<,=xz(i+3)AndVal(txtDay)<,=xz(i+4)ThenMsgBox"你查询的"&str1&",的星座",&xz(i),vbOKOnly,ExitForEndIfNextiElseMsgBox"你输入的数据"&str1&"不是日期;"

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

比如说是输入生日后弹出框？

如何在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我这个程序，没有用数组和复杂的If语句，用了Instr()函数，可读性就相对差一些了。同时2月份,

vb编个 测星座的程序

我来回答：在窗体添加 一个label，text1(月，text2(日期，三个按钮，OK~你把代码复制进去就好了 ~~Private Sub Command1_Click()'检测你是什么星座 a = Val(Text1.Text) b = Val(Text2.Text) C = a * 100 + b Label1.Caption = "魔羯座"水瓶座"白羊座"金牛座"双子座"巨蟹座"狮子座"处女座"天秤座"天蝎座"人马座"End IfEnd SubPrivate Sub Command2_Click()'重置 Text1.Text = "Label1.Caption = ""Text1.SetFocusEnd SubPrivate Sub Command3_Click()'退出 EndEnd Sub

VB制做星座测试的代码

我来回答：在窗体添加 一个label，text1(月，如12)，text2(日期，如12)，三个按钮，OK~你把代码复制进去就好了 ~~Private Sub Command1_Click()'检测你是什么星座 a = Val(Text1.Text) b = Val(Text2.Text) C = a * 100 + b Label1.Caption = "魔羯座" If C > 1221 Then C = 0 If C > 119 Then Label1.Caption = "水瓶座" End If If C > 218 Then Label1.Caption = "双鱼座" End If If C > 320 Then Label1.Caption = "白羊座" End If If C > 420 Then Label1.Caption = "金牛座" End If If C > 520 Then Label1.Caption = "双子座" End If If C > 621 Then Label1.Caption = "巨蟹座" End If If C > 722 Then Label1.Caption = "狮子座" End If If C > 822 Then Label1.Caption = "处女座" End If If C > 922 Then Label1.Caption = "天秤座" End If If C > 1022 Then Label1.Caption = "天蝎座" End If If C > 1121 Then Label1.Caption = "人马座" End IfEnd SubPrivate Sub Command2_Click()'重置 Text1.Text = "" Text2.Text = "" Label1.Caption = "" Text1.SetFocusEnd SubPrivate Sub Command3_Click()'退出 EndEnd 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代码写的？

可以通过输入一个人的身份证号，姓名预测的，行不行？

用VB设计一个计算星座的程序

swith case