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

Question

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

Answer 1

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
这是一个的，其它的依次类推

Answer 2

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
这是一个的，其它的依次类推