VB 请教高手:如何读取Textk中这样输入的值?

来源：百度知道 编辑：UC知道 时间：2024/09/26 02:22:31
Private Sub Command2_Click()

text1.text=(1-5,11-34,38-55___自由输入的)
if (y 介于 text1.text then) (请问这儿该如何表达?请指教,谢谢!)
y=""
end if

End Sub

没有你想得那么简单。
一、使用“分割”函数（split）将text内容按“逗号”分开。
二、对逗号分开的每部分按减号拆分，然后分辨上限和下限
三、使用循环对各组条件检验。

代码如下：

Option Explicit
Dim tiaojian
Dim shangxian() As Integer
Dim xiaxian() As Integer

Private Function jianyan(x As Single) As Boolean
Dim i As Integer
jianyan = False
For i = 0 To UBound(tiaojian)
If x > xiaxian(i) And x < shangxian(i) Then
jianyan = True
Exit Function
End If
Next i
End Function

Private Sub Command1_Click()
Dim i As Integer, t As Integer
tiaojian = Split(Text1, ",")
ReDim xiaxian(UBound(tiaojian))
ReDim shangxian(UBound(tiaojian))
For i = 0 To UBound(tiaojian)
xiaxian(i) = Left(tiaojian(i), InStr(tiaojian(i), "-") - 1)
shangxian(i) = Right(tiaojian(i), Len(tiaojian(i)) - InStr(tiaojian(i), "-"))
If xiaxian(i) > shangxian(i) Then
t = xiaxian(i)
xiaxian(i) = shangxian(i)
s