验证问题

babyjavalover 2003-11-13 12:05:46
我写了这样的一段程序,是错的我试了和我的预料一样,我是想叫用户输入直到输入合法为止,否则弹出对话框提示错误,在回到表单让用户输入,关键是怎样在这个循环返回到表单在用户重新输入后,接着进入下一轮循环判定,成功推出,否则重复,请教各位帮忙,谢谢
Do While ps = True
Dim arr1() As String
Dim arr2() As String
arr1 = Split(TextBox1.Text, " ")
arr2 = Split(TextBox2.Text, " ")
If UBound(arr1) < UBound(arr2) Then
ps = False
Else
Msg "you have input a wrong number"
End If
Loop
...全文
29 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,771

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧