VB编程高手进来哈!!!!!!!!!!!!!!

Dim r As String, s As String, i As Integer, k As Integer
r = "王明-142-计算机"
s = ""
k = 0
For i = 1 To Len(r)
If Mid(r, i, 1) = "-" Then k = k + 1
If k = 2 Then Exit For
s = s + Mid(r, i, 1)
Next i
Print s

Dim strTest As String '原字符串，需要提取的
Dim strValue As String '结果
Dim arr() As String '数组

strTest = "王明-142-计算机"
arr = Split(strTest, "-")

'arr(0)=王明
'arr(1)=142
'arr(2)=计算机
strValue = arr(0) & "-" & arr(1)

MsgBox strValue

s = "王明-142-计算机"
Print Left(s, InStrRev(s, "-") - 1)