6515简单是相对的、如果要求求程式码少而精。可能能可读性与结构性就差?反之,要求可读性与结构性比比较好!可能程程式码会增多?就目前发展来说。由于计算机的速度和储存空间的极大提升。程式(演算法)的可读性与结构性是主流要求,我曾经说过!解决一个问题用一行程式码和用一千行程式码(例子举得比较极端)。对计算机执行来说人们的感觉没有什么区别,你的这个问题。有多种多样的解决方法。想当然的方法,会用到阵列和比较复杂的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 <= Mid(XZ, L + 3, 3) Then Text1.Text = "你的星座是:" & 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 < 10 Then Combo1.AddItem "0" & CStr(i) & "月" Else Combo1.AddItem CStr(i) & "月" End IfNext iCombo1.Text = Combo1.List(0)Combo2.ClearFor i = 1 To 31 If i < 10 Then Combo2.AddItem "0" & CStr(i) & "日" 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我这个程式、没有用阵列和复杂的If语句,但是、用了Instr()函式!可读性就相相对差一些了。 同时2月份,还没有考虑闰年问题以及大月小月问题.
!