Ta上传的资源 (0)

VB数组应用实例-成绩统计输入成绩部分：PrivateSubCommand1_Click()DimiAsIntegerPicture1.ClsFori=1ToNscore(i)=Val(InputBox("请输入第"&i&"位学生的成绩"))Picture1.Printscore(i);IfiMod
VB 40