Question

vb 中如何单击一个按钮弹出n个对话框

有一个按钮，一个文本框，一个标签控件。在文本框中输入宿舍人数n，单击按钮检查n的合法性。如果n<=0，提示重新输入。
如果n值合法，则依次弹出n个对话框，在其中输入学生vb成绩，最后在标签上显示平均分

Answer 1

Private Sub Command1_Click()
    Dim n&, i&
    n = 5 'n的数可以自定义
    For i = 1 To n
        MsgBox "弹出的内容"
    Next
End Sub

追问

有一个按钮，一个文本框，一个标签控件。在文本框中输入宿舍人数n，单击按钮检查n的合法性。如果n<=0，提示重新输入。
如果n值合法，则依次弹出n个对话框，在其中输入学生vb成绩，最后在标签上显示平均分

追答

为什么不一次说完问题呢？

Private Sub Command1_Click()
    Dim n, c() As Long, x&
    n = Val(Text1)
    If n < 1 Then MsgBox "请输入宿舍人数": Exit Sub
     For i = 1 To n
          ReDim c(i - 1)
          c(i - 1) = Val(InputBox("请输入第" & i & "个学生成绩"))
          x = x + c(i - 1)
    Next
    MsgBox "平均成绩：" & (x / n)
    'label1 = "平均成绩：" & (x / n)
End Sub