s=0fork=1to6input"请输入数"toa(k)s=s+a(k)endforav=s/6r=0fork=1to6ifa(k)>av??a(k)r=r+1endifendfor?r(1)若输入的数据为1,2,3,4,5,6则显示的是(32)(A)123(B)234(C)345(D)456(2)?R的值是多少(33)(A)2(B)3(C)4(D)64.读下列程序j=0clearfork=1to4forr=1to5-k??""&;&;此处引号内有一空格endforform=1to2*k-1??str(k,1)j=j+1endfor?endfor?j(1)程序的运行结果是(34)(A)1(B)1(C)4121222333123232144444441111111(2)程序结束时,J的值为(35)(A)7(B)17(C)16(D)65.阅读下面的程序input"输入年龄"tonl
docasecasenl<7&;&;语句组1?"童年"
(D)1111111222223331
casenl<18?"少年"casenl>=18&;&;语句组2?"少年"casenl>=60?"老年"casenl>=35&;&;语句组3?"中年"other&;&;语句组4?"青年"endcase由于程序设计不当,本程序运行结果不对.(1)运行时输入11,输出是(36)(A)童年(B)少年(C)青年(D)老年(2)运行时输入36,输出是(37)(A)少年(B)青年(C)中年(D)老年(3)如果修改本程序,你认为在指出的四个语句组中,应该去掉那个子句(case及其输出语句)(38)(A)语句组1(B)语句组2(C)语句组3(D)语句组46.阅读下面的程序clearname="上海自来水"@10,10saynameforI=1to4ai=space(i)-substr(name,9-2*I,2)@row()-1,18sayainextcity="自来"xx=city$namereturn(1)程序运行结果为(39)(A)上海自来水(B)上(C)上海自来水(D)上海自来水来海来上自自自海海来海自上上海自来水上来(2)XX的值为(40)(A)0(B)1(C).F.(D).T.
三,程序填空题1.以下是计算机等级考试查分程序,请完成此程序.已有库文件STUDENT(准考证号,身份证号,,成绩)usestudentindexxm&;&;xm为表STUDENT的字段的索引文件tc="Y"dowhiletc<>"Y"acce"请输入要查询的准考证号"tonum①iffound()dispoffelse?"对不起,无此考号"②wait"继续查询吗?y/n"totc③enddouse2.学生.DBF(,,性别,出生日期,班级)成绩.DBF(,
课程号,成绩)课程.DBF(课程号,课程名,学分,任课教师)三个表已存在,根据课程号查询,课程名,成绩,班级,任课教师,并统计任课两门以上的教师人数.Kch=space(10)@5,5say"请输入课程号"getkchreadSELECT学生.,课程.课程名,成绩.成绩,学生.班级,课程.任课教师;①INNERJOIN成绩;;ON②ON学生.=成绩.;WHERE成绩.课程号=kchSELECT课程.课程名,课程.任课教师,count(*)as门数;FROM课程;③课程.任课教师;ORDERBY课程.课程名;④abcd.dbfselectcount(*)from⑤where门数>=2
3.如图所示的菜单,菜单栏有三个菜单,其中"新建"菜单下有子菜单,单击退出菜单时退出用户菜单返回系统菜单.(1)设计好菜单的内容后将菜单以文件名MENU1保存,此时文件扩展名为①.
(2)完成菜单的全部设计后,运行菜单可以用命令DO②.(3)单击"退出