一个数怎么定义一个范围
i= 6 to 8  ,8 to 10  ,10 to 13
怎么换成 k= 0 ,1 2
(就是6到8代表0，8到0代表1，10到13代表2)

使用函数

Private Function fw(a As Single)
Dim i As Integer
If a < 8 And a > 6 Then
fw = 0
ElseIf a < 10 And a > 8 Then
fw = 1
ElseIf a < 13 And a > 10 Then
fw = 2
Else

fw = "none"
End If
End Function

这样更好

[[it] 本帖最后由 我是菜鸟哦 于 2008-9-11 21:24 编辑 [/it]]

Private Sub Command1_Click()
Print (fw(CSng(Text1.Text)))
End Sub

放到按钮中的使用方法

Private Function fw(a As Single)
Dim i As Integer
Select Case True
Case a < 8 And a > 6
fw = 0
Case a < 10 And a > 8
fw = 1
Case a < 13 And a > 10
fw = 2
Case Else
fw = "none"
End Select
End Function

太谢谢斑竹了