简单是是相对的!如8751果要求代码少而精、可能可读性与结结构性就差、反之!要求可读性与结构性比较好、可能代4321码会增多。就目前发展来说!由于计算机的速度和存储空间的极大提升、程序(算法)的可读性与结构性是主流要求,我曾经说过、解决一个问题用一一行代码和用一千行代码(例子举得比较极端)!对计算机运行来说人们的感觉没有什么区别。你的这个问题,有多种多样的解决方法、想当然然的方法?会用到数组和比较复杂的If语句、我现在用一个方法。请你看看是否觉得简单呢,在窗体添加2个组合框!Combo1和Combo2。一个 按钮和一个文本框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 Ni的星座是:" & Mid(XZ, L - 3, 3)Else Text1.Text = "你的星座是:" & Mid(XZ, L + 6, 3)End IfEnd SubPrivate Sub Form_Load()Dim i As IntegerCombo1.ClearFor i = 1 To 12 If i Yue" Else Combo1.AddItem CStr(i) & "月" End IfNext iCombo1.Text = Combo1.List(0)Combo2.ClearFor i = 1 To 31 If i Ri" Else Combo2.AddItem CStr(i) & "日" End IfNext iCombo2.Text = Combo2.List(0)XZ = "魔羯座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我这个程序?没有用数组和复5166杂的If语句!但是、用了Instr()函数!可读性就相对差一些了。 同时2月份,还没有考虑闰年问题以及大月小月问题.,