VB问题--读取字符串中特定位置

在文本框中输入n1的值.
Dim st1 As String
st1= "/25/12/98/20/36/58/65"
Dim n1 As integer
n1= val(TextBox1.Text)
Dim x
x = Split(st1, "/")
Dim n2 As String
n2= x(n1)
字符串中有几个"/",n1的值最大值就是几

dim n
n=instr(st1,"/")
n2=mid(st1,n+1,2) '可以根据你的需要加val函数

Private Const str1 As String = "/25/12/98/20/36/58/65"
Private str2 As String

Private Sub Command1_Click()
Dim i As Integer
Dim count As Integer
Dim str As String
count = 6 '根据实际情况设定
str = str1
Do While count > 1
i = InStr(1, str, "/")
str = Right(str, Len(str) - i - 2)
count = count - 1
Loop
str = Mid(str, 2, 2)
str2 = str
MsgBox str2
End Sub

非常简单...给你代码 .跟我刚才写的稍做了下修改.可以显示所有"/"后面的数字,你参考一下吧,

Dim n1() As String, n2 As String, st1 As Strin