s1.prg

来自「学生成绩管理系统」· PRG 代码 · 共 8 行

for  i=1 to 50
	insert into student(姓名,班级,高数,计算机,力学);
				values("n"+ alltrim(str(i)),"cn04",int(rand()*100),int(rand()*100),int(rand()*100))
next
for i=1 to 50
		update student set 英语=int(rand()*100);
				where 英语=0
next