dim 姓名（）as string，成绩（）as integer
dim 人数 AS integer，序号 as integer

private sub form_load()
do
人数=val(inputbox("请输入人数：")
loop until 人数>0
redim 姓名（人数-1），成绩（人数）
end sub

private sub jixu_click()
姓名（序号）=text1
成绩（序号）=val（text2）
序号=序号+1
if 序号=人数 then
？tab（5）；“姓名”；tab(20);“成绩”
for i=0 to 人数-1
？tab（5）；姓名（i）；tab（20）；成绩（i）
endif
end sub

PRIVATE sub jieshu_click()
end
end sub

谢谢老大！
private sub jixu_click()
姓名（序号）=text1
成绩（序号）=val（text2）
序号=序号+1
if 序号=人数 then
？tab（5）；“姓名”；tab(20);“成绩”
for i=0 to 人数-1
？tab（5）；姓名（i）；tab（20）；成绩（i）
＇＇＇＇＇这里似乎少了个NEXT
endif
end sub

非常感谢！

再请教，如果我要让输出的结果在窗体上右对齐，应该怎么写代码呢？
也就是不让它在左面，左面有控件，把输出结果挡住了，放在右面，应该怎么写代码？
谢谢热心帮助我的老兄们！

设置打印定位属性，例如：
me.CurrentX=1000
Me.CurrentY=序号*500
me.?姓名，成绩