在VB（Visual Basic）编程中，如果你想处理从0到6的数字，你可以使用`Select Case`语句来匹配每个数字，并执行相应的代码块。下面是一个简单的例子，展示了如何使用`Select Case`来获取0到6对应的星期几：
```vb
Private Function GetDay(ByVal nDay As Integer) As String
Select Case nDay
Case 1
GetDay = "星期一 Monday"
Case 2
GetDay = "星期二 Tuesday"
Case 3
GetDay = "星期三 Wednesday"
Case 4
GetDay = "星期四 Thursday"
Case 5
GetDay = "星期五 Friday"
Case 6
GetDay = "星期六 Saturday"
Case 0
GetDay = "星期日 Sunday"
Case Else
GetDay = vbNullString
End Select
End Function
Private Sub Command1_Click()
Dim a As Integer
Me.AutoRedraw = True
For a = 0 To 6
Print GetDay(a)
DoEvents
Next
End Sub
```
在这个例子中，`GetDay`函数接受一个整数参数`nDay`，然后使用`Select Case`语句来匹配这个整数，并返回对应的星期几的英文表述。在`Command1_Click`子程序中，我们使用一个循环从0到6调用`GetDay`函数，并打印出结果。
如果你想在用户输入一个数字时显示对应的星期几，你可以使用`InputBox`函数来获取用户输入，然后调用`GetDay`函数并显示结果。例如：
```vb
Private Sub text1_change()
Dim inputNumber As Integer
inputNumber = Val(text1.Text)
If inputNumber >= 0 And inputNumber <= 6 Then
MsgBox GetDay(inputNumber), vbInformation, "输入的数字对应的星期"
Else
MsgBox "请输入一个介于0到6之间的数字。", vbExclamation, "输入错误"
End If
End Sub
```
在这个例子中，当用户在文本框`text1`中输入一个数字时，`text1_change`子程序会被触发。它首先将文本框中的文本转换为整数，然后检查这个数字是否在0到6之间。如果是，它会调用`GetDay`函数并显示对应的星期几。如果不是，它会显示一个错误消息框。
请注意，这些代码示例是基于VB6.0的语法，如果你使用的是其他版本的VB，语法可能会有所不同。