2011年春季江苏省高校非计算机专业计算机等级考试Visual Bc上机试卷.pdfVIP

江苏省高等学校非计算机专业学生计算机基础知识

和应用能力等级考试上机试卷(2011春)二级Visual

Basic语言(试卷代号VB03)(本试卷完成时间70分钟)

【考试须知】

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分；3.程序代码书写应呈锯齿形。

一、改错题(14分)

【题目】本程序的功能是，输入整数n，在小于等于n的素数序列中，找出所有3个连续素

数之和也是素数的子序列。PrivateSub

Command1_Click()DimnAsInteger,pn()As

Integer,kAsIntegerDimiAsInteger,sumAs

Integer,stAsStringn=Text1k=2DoIfprime(k)

Theni=i+1ReDimpn(i)pn(i)=kEndIfk=k+1

LoopUntilknFori=1ToUBound(pn)sum=0

Fork=iToi+2sum=sum+pn(k)st=stpn(k)

+NextkIfprime(sum)ThenList1.AddItem

Left(st,Len(st)‑1)sumEndIfstNextiEnd

SubPrivateFunctionprime(nAsInteger)As

BooleanDimiAsIntegerFori2ToSqr(n)Ifn

Modi=0ThenExitForNextiprime=TrueEnd

Function

江苏省高等学校非计算机专业学生

计算机基础知识和应用能力等级考试上机试卷（2011春）

二级VisualBasic语言（试卷代号VB03）

（本试卷完成时间70分钟）

【考试须知】

1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不

予评分；

3.程序代码书写应呈锯齿形。

一、改错题（14分）

【题目】本程序的功能是，输入整数n，在小于等于n的素数序列中，找出所有3个连续素

数之和也是素数的子序列。

PrivateSubCommand1_Click()

DimnAsInteger,pn()AsInteger,kAsInteger

DimiAsInteger,sumAsInteger,stAsString

n=Text1

k2

Do

Ifprime(k)Then

i=i+1

ReDimpn(i)

pn(i)=k

EndIf

k=k+1

LoopUntilkn

Fori1ToUBound(pn)

sum=0

ForkiToi+2

sum=sum+pn(k)

ststpn(k)+

Nextk

Ifprime(sum)Then

List1.AddItemLeft(st,Len(st)-1)=sum

EndIf

st

Nexti

EndSub

PrivateFunctionpr