vb中循环 弹出对话框的简单问题

来源：百度知道 编辑：UC知道 时间：2024/06/16 18:42:43
题目是这样的；有三个标签，一个输入按钮，点击按钮，弹出输入数据对话框，输入数据，并将输入数据依次存放到三个标签中，如果，输入的数据不在0-100之间就弹出对话框提示”是否接受输入的信息“，如果点击了 是 就添加到轮到的标签中，如果点击否，就又弹出输入数据的对话框。请问怎样写代码？
我写了一个，但是效果不对，请会的帮忙一下，感谢！
我想用循环来解决这个问题的 有没有办法 不要一个一个标签的做

Private Sub Command1_Click()
re:
a1 = InputBox("输入第一个数")
If Val(a1) >= 0 And Val(a1) <= 100 Then
Label1.Caption = a1
Else
If MsgBox("是否接受输入的数", vbYesNo, "提示") = vbYes Then
Label1.Caption = a1
Else
GoTo re
End If
End If
End Sub
这是一个的，其它的依次类推