网上找的代码,修改了一下,以适应需要^^。 Code: Sub 计算() Dim H%, L%, Sum#, c%, d#, f%, Avc!, Col$ '变量的类型需要注意 n = Val(InputBox("请输入人数:", "绩点统计")) For H = 4 To n + 3 '分数统计从第四行开始 Sum = 0 c = 0 For L = 3To 21 '前两行为个人信息 Col&