麻煩會 Visual Basic & vb的高手幫我解答一下

Question

我想麻煩各位~
設計一個程式，輸入出生年月日(如95年4月29日)，輸出甲子年與生肖(如丙戌與狗)
92年~癸未
93年~甲申
94年~乙酉
95年~丙戌
96年~丁子

希望能夠把這個程式弄成文字檔給我~
或是寄到我信箱：[e-mail]

Answer 1

Private Sub Form_Activate()
a = InputBox("請輸入出生民國yy年(1~99)" & vbCrLf & "例如:77", "請輸入生出年份", 77)
If a = "" Then
MsgBox "請輸入資料"
a = InputBox("請輸入出生民國yy年(1~99)" & vbCrLf & "例如:77", "請輸入出生年份", 77)
Else
If a > 1 And a < 100 Then
i = a Mod 10
If i = 0 Then
i = 10
End If
o = Mid("壬癸甲乙丙丁戊己庚辛", i, 1)
j = a Mod 12
If j = 0 Then
j = 12
End If
p = Mid("子丑寅卯辰巳午未申酉戌亥", j, 1)
q = Mid("鼠牛虎兔龍蛇馬羊猴雞狗豬", j, 1)
Print o + p & "年，" & "肖" & q
End If
End If
End Sub

Answer 2

Private Sub Command1_Click()Dim A() As String, B() As String, C() As String, S$, N%Do  S = InputBox("請輸入生日(中華民國曆)", , Format(Date, "e/mm/dd"))  If S = "" Then Exit SubLoop Until IsDate(S)N = (Year(S) + 8) Mod 60A = Split("癸 甲 乙 丙 丁 戊 己 庚 辛 壬")B = Split("亥 子 丑 寅 卯 辰 巳 午 未 申 酉 戌")C = Split("豬 鼠 牛 虎 兔 龍 蛇 馬 羊 猴 雞 狗")Print "中華民國"; Format(S, "e") + 11; "年為"; A(N Mod 10); B(N Mod 12); "年,生肖屬"; C(N Mod 12)End Sub

Answer 3

我有啊~ 這是 第22屆ACM亞洲高中組 的比賽題目

我有寫好的~~寄給你了 收到請選最佳解答