答案及评分标准本科补考一、单项选择题（每题1分，共40分）12345678910CAACAADCDD11121314151617181920BCCDDBDDCB21222324252627282930CDBCADCACC31323334353637383940DADBDAAABB二、程序填空题（每空2分，共20分）（1）z=x（2）y=z（3）Int（Rnd*11）+10（4）xMod2<>0或xMod2或xMod2=1（5）1（6）x（7）a（8）Nexta或Next（9）n=1（10）n+SumN（n-1）三、读程序，写出程序的运行结果（每题5分，共20分）135评分标准：结果在同一行2分，数值正确一个给1分。0评分标准：结果在同一行1分，数值正确一个给2分。1、2、M=2评分标准：有”M=”给2分，后面数字正确给3分A3、4、四、写程序（每题10分，共20分）1、计算1到200所有3的倍数的数之和，即s=3+6+9+……+198，结果显示在图片框Picture1中（要求：将所使用变量声明为整型）PrivateSubCommand1_Click()DimiAsInteger,sumAsInteger(变量声明正确给2分)sum=0Fori=3To200Step3(For语句正确给3分)sum=sum+i(计算表达式正确给3分)NextiPicture1.printsum(输出语句正确给2分)EndSub2、编写一个子程序Sushu，该程序的功能是判断其参数x是否为素数，如果是素数则子程序返回值为True，否则返回值为False。请将Sushu子程序补充完整。总体评分标准：只要书写的程序能够完成相应功能则给满分。PrivateFunctionSushu（xAsInteger）AsBooleanDimMyAAsIntegerForMyA=2Tox-1(For语句正确给2分)IfxModMyA=0ThenExitFor（If语句正确给2分）NextMyAIfMyA=xThen（If语句正确给2分）Sushu=True（子程序名称赋值正确给2分）ElseSushu=False（子程序名称赋值正确给2分）EndIfEndFunction