Question

在VB编程序时,怎样写“输入N名学生的成绩,显示在文本框中.”

Answer 1

Option Explicit
Private Sub Command1_Click()
    Dim renshu%, i%, n$, f!
    Text1.Text = ""
    Text1.MultiLine = True
    renshu% = Val(InputBox("请输入学生的个数", "提示"))
    For i% = 1 To renshu%
        n$ = InputBox("请输入第" & Str(i%) & "个学生的名字", "提示")
        f! = Val(InputBox("请输入第" & Str(i%) & "个学生的分数", "提示"))
        Text1.Text = Text1.Text & "第" & Str(i%) & "个  名字:" & n$ & " 分数:" & f! & vbCrLf
    Next i%
End Sub

按我理解给你写的

Answer 2

a=inputbox("输入学生个数")
for i=1 to a
b=inputbox("请输入学生成绩")
c=c+b+"    "
next i
label1.caption=c