急！！！！vb问题

来源：百度知道 编辑：UC知道 时间：2024/05/06 06:40:01
任意输入一个字符串s。两个整数start、n，求出该字符串s中从位置start开始，长度为n的子字符串。
要详细的代码！！！！
给100分！~限周三上午以前
我是个新手。。最好全写出来。。

On Error GoTo errHandle
Dim strInput As String
Dim start As Long, length As Long
strInput = InputBox("请输入一个字符串", "输入", "")
start = InputBox("请输入起始位置", "输入", "1")
length = InputBox("请输入长度", "输入", "1")

MsgBox Mid(strInput, start, length)
Exit Sub

errHandle:
MsgBox Err.Number & vbTab & Err.Description

Mid s,start,n

getstring = mid (str,s,n)