编写一个输入0~6数字、显示汉字对照输出星期的function过程  题目是这样的


过程.........

Public Function GetWeekDayForChina(Byval num As Integer) As String
Select Case num
   Case 0
   GetWeekDayForChina="星期一"

 Case 1
   GetWeekDayForChina="星期二"

 Case 2
   GetWeekDayForChina="星期三"

 Case 3
   GetWeekDayForChina="星期四"

 Case 4
   GetWeekDayForChina="星期五"

 Case 5
   GetWeekDayForChina="星期六"

 Case 6
   GetWeekDayForChina="星期天"
End Select

End Function

我记得VB好像有个枚举是Weekdays，不知道能不能用这个？

Weekday 函数，返回序号

format 返回英文
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
MyStr = Format(MyTime, "h:m:s")   ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM")   ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy")   ' 返回 "Wednesday, Jan 27 1993"。

自己整函数吧，多分支函数是一个好主意。