Yahoo奇摩知識+ 將於 2021 年 5 月 4 日 (美國東部時間) 終止服務。自 2021 年 4 月 20 日 (美國東部時間) 起,Yahoo奇摩知識+ 網站將會轉為唯讀模式。其他 Yahoo奇摩產品與服務或您的 Yahoo奇摩帳號都不會受影響。如需關於 Yahoo奇摩知識+ 停止服務以及下載您個人資料的資訊,請參閱說明網頁。

匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 2 0 年前

【V.B】如何寫出西元轉換成生肖的程式

假設打西元2005,然後按butten,然後textbox就出現雞,然後再打上2006....以此類推,等到十二生肖都輪完之後,再輪一次。

2 個解答

評分
  • 匿名使用者
    2 0 年前
    最佳解答

    Private Sub Command1_Click()Dim S As VariantS = Array("鼠", "牛", "虎", "兔", "龍", "蛇", "猴", "羊", "馬", "雞", "狗", "豬")D = (Val(Text1.Text) - 1996) Mod 12If D >= 0 ThenText2.Text = S(D)ElseText2.Text = S(D + 12)End IfEnd Sub

    2005-10-20 20:11:35 補充:

    sorry,我12生肖搞不清楚....

    2005-10-23 14:02:36 補充:

    VB.Net的程式,放在Button1_Click裡

    Dim S() As String = {"鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗", "豬"}

    Dim D As Integer

    D = (Val(TextBox1.Text) - 1996) Mod 12

    If D >= 0 Then : TextBox2.Text = S(D)

    Else : TextBox2.Text = S(D + 12) : End If

    參考資料: By VB 6.0
  • ?
    Lv 5
    2 0 年前

    XD

    冰糖大~

    S = Array("鼠", "牛", "虎", "兔", "龍", "蛇", "馬", "羊", "猴", "雞", "狗", "豬")

    不是

    S = Array("鼠", "牛", "虎", "兔", "龍", "蛇", "猴", "羊", "馬", "雞", "狗", "豬")

還有問題?馬上發問,尋求解答。