（春）（计算机二级考试VB上机）.docVIP

PAGE

2010年春VB02-2

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

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

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

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

[考试须知]

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

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

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

一、改错题（14分）

[题目]本程序的功能是：利用随机函数生成n个可被3整除，且至少包含一个8的三位整数。

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger,a()AsInteger,iAsInteger

DimstAsString

n=InputBox(数据个数n：,查找,15)

ReDima(n)

Callfind(a)

Fori=1Ton

IfnMod30Then

st=stStr(a(i))

Else

st=stStr(a(i))vbCrLf

EndIf

Nexti

Text1=st

EndSub

PrivateSubfind(a()AsInteger)

DimubAsInteger,kAsInteger,pAsInteger

DimsAsString

Randomize

ub=UBound(a)

Do

p=Int(Rnd*899)+100

s=CStr(p)

IfInStr(s,8)0OrpMod3=0Then

k=k+1

a(k)=p

EndIf

LoopUntilkub

EndSub

[要求]

1．新建工程，输入上述代码，改正程序中的错误；

2．改错时，不得增加或删除语句，但可以适当调整语句位置；

3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。

二、编程题（26分）

[题目]编写程序，求指定范围内的非素数整数的所有真因子（除1和自身以外的因子）。

[编程要求]

1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2．运行程序，首先在X文本框与Y文本框中输入相应的数据后，按“运行”按钮，进行相关处理，在列表框中按给定格式输出结果；按“清理”按钮，清空两个文本框和列表框，焦点置于文本框X上；按“结束”按钮，结束程序运行；

3．程序中应定义一个通用过程，用于求整数的所有真因子。

(注意：素数没有符合条件的因子)

[要求]

将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。