VB inputbox 如何实现一个inputbox 输入框输入两个参数

Answer 1

可以利用split函数按特定标示字符分割输入的字符串，得到俩个参数。

split函数用法如下：

返回值数组 = Split("字符串","分割符")

功能解释：将指定字符串从分割符位置分割，分割后的字符串存入指定的数组。

范例代码如下：

private sub command1_click()
a=inputbox("请按格式输入：参数1，参数2")
b=split(a,",")
print b(0),b(1)
end sub

Answer 2

按一定格式输入，然后用split函数截取出来分开。
Private Sub Command1_Click()
On Error Resume Next
Dim A, b
A = InputBox("输入格式: 参数一|参数二")
b = Split(A, "|")
MsgBox "参数一：" & b(0) & vbCrLf & "参数二：" & b(1)
If Err = 9 Then MsgBox "请输入正确的格式"
End Sub

追问

请问大侠，“On Error Resume Next ””是什么意思？

追答

就是如果出错 就忽略错误继续执行下面的代码，还有比较常用的 On Error goto label 出错就跳转到label，一般用来处理错误的。
给你那个代码 ，因为用户可能会不按格式输入参数，所以有可能导致split分割出来的只有一个数b（0），而下面输出用到了b（1），此时就会下标越界了。如果不加错误处理程序就会中断。
Err = 9 这个是错误代码，就是上面下标越界的错误代码是 9 ，err=9就表示是下标越界了，说明用户没有按格式输入。
你可以把光标定位到 on error 或者 err ,然后按下F1 看看帮助。如果没有帮助的话建议你下载个MSDN安装。编程必备。