VB高手***來。

Question

為了處理日期的問題，在VB設計有日期的函數，其中有一個Weekday()的函數，作用是找出某日期的星期，但是得到的結果，若是1表示為星期日，2則是星期一，…7則是星期六。如果知道今天的日期，請印出中文格式的「星期一」，「星期二」、…、「星期日」。
【輸入檔案格式】
先是一個整數N，代表以下有N個樣本，接下來是N行測試的輸入樣本，每行是一個符合日期格式的字串，分別代表想知道星期幾的日期。 (※本題不會有不合理的樣本。)
【輸出檔案格式】
每個樣本就一行的輸出，印出換算為中文星期的結果。
【輸入檔案範例】
5
2006/5/22
2006/5/7
2007/2/24
2008/2/29
2006/12/27
【輸出檔案範例】
星期一
星期日
星期六
星期五
星期三

☆最重要的是，我想要徵求會vb的人教導我，不一定要高手，但是至少可以把vb弄得很清楚，基本的都會，留下及時通和我做交談，以後教會我vb一樣會贈點的★

Answer 1

Private Sub Command1_Click()
Dim x(1 To 7) '宣告一個有7個空間的陣列
x(1) = "星期日": x(2) = "星期一": x(3) = "星期二": x(4) = "星期三": x(5) = "星期四": x(6) = "星期五": x(7) = "星期六"
'按照weekday()函數所出現的數值當作一個空間的位址記號，把對應原本的內容寫進去
a = Text1.Text ' 比text1裡的日期丟進a這個變數裡
b = Weekday(a) ' 利用weekday()函數把a這個日期是星期幾算出來並丟到b裡
Print x(b) ' 因為b為利用weekday()函數求a日期是星期幾的值，所以把b當作一個位址記號，print x(b)就可以了
End Sub

完整說明版= ="
我的境界頂多做如此的說明希望這樣子可以幫助到你。
貼到vb因該可以比較清楚分明說明跟主程式@@"

2006-11-29 16:49:06 補充：
如果需要txt檔作輸出入的話可以說一聲

2006-11-30 20:06:41 補充：
我的及時通帳號是g78974110
有vb問題的話@@"我可以盡力幫忙解決的，不過知識+其實也有很多高手，只是可能他們沒看到你的發問，所以才輪到我吧@@"~

Answer 2

Print WeekdayName(Weekday("2008/2/29"))