用VB编写一个输入0--6数字,显示汉字对照输出星期的Function过程

建立一个form1
Option Explicit
Dim A As Byte, B As String
Private Sub Form_Load()
Form1.AutoRedraw = True
Do
B = InputBox("输入数字(0-6):", "输入", 0)
If Val(B) > -1 And Val(B) < 7 Or Len(B) = 1 Then Exit Do
Loop
A = Val(B)
Select Case A
Case 0
B = "星期日"
Case 1
B = "星期一"
Case 2
B = "星期二"
Case 3
B = "星期三"
Case 4
B = "星期四"
Case 5
B = "星期五"
Case 6
B = "星期六"
End Select
Print B
End Sub

int i;
for(i=0;i++;i<7)
swich i
case i=0
今天是星期日
case i=1
今天是星期一
case i=2
今天是星期二
.....
VB不会...这是C的格式 应该没错 不过就是忘了C的输入输出代码格式。。把for换成相当的输入函数就应该可以了 回答的不