Question

VB中的InputBox如何设置输入错误继续弹出InputBox重新输入，直到输入正确为止

Answer 1

这里假定输入exit才能够退出，否则一直循环输入

do-loop

private sub form_load()
dim str as string
do until str="exit"
str=inputbox("请输入exit退出：")
loop
end
end sub

goto-:

private sub form_load()
start:
dim str as string
str=inputbox("请输入exit退出：")
if str <> "exit" then goto start
end
end sub

while-wend

Private Sub form_load()
Dim str As String
While str <> "exit"
str = InputBox("请输入exit退出：")
Wend
End
End Sub

这三个你可以做一个比较 希望能够帮到你 

Answer 2

用do循环把inputbox放进循环，循环条件没有，输入正确才用exit do退出循环，