2011年春季计算机等级考试VB上机试题与编程要求.pdfVIP

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

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

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

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

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

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

一、改错题(14分)

首页数对调，得到的新数仍为平方数的整数。例如1764是平方数，数字对调得

到的4761仍为平方数

OptionExplicitPrivateSubCmdFind_Click()

DimnAsLong,kAsLong,fgAsBooleanfg=

FalseForn=100To99999IfSqr(n)=Int(Sqr(n))

thenCallvalidate(n,k,fg)IffgAndknthen

List1.AddItemknEndIfEndIfNextn

EndSubPrivateSubvalidate(nAsLong,kAs

Long,flagAsBoolean)DimstAsString,pAs

Integerp=nMod10Ifp=0ThenExitSubn=n\

10st=Str(n)k=pMid(st,2,Len(st)‑1)

Left(st,1)IfSqr(k)=Int(Sqr(k))然后标记=True

EndIfEndSub

【要求】

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

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

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

二、编程题(26分)

【题目】编写程序，求矩阵的范数。称矩阵的范数是指矩阵（二维数组）各列元素绝对值

和数中最大的一个数。

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

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

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

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

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

予评分；

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

一、改错题（14分）

【题目】本程序的功能是，找出给定区间内所有本身是平方数，将其最高一位数与最后一位

数对调，得到的新数仍为平方数的整数。例如1764是平方数，数字对调得到的4761仍

是平方数。

OptionExplicit

PrivateSubCmdFind_Click()

DimnAsLong,kAsLong,fgAsBoolean

fg=False

Forn100To99999

IfSqr(n)Int(Sqr(n))Then

Callvalidate(n,k,fg)

IffgAndknThen

List1.AddItemkn

EndIf

EndIf

Nextn

EndSub

PrivateSubvalidate(nAsLong,kAsLong,flagAsBoolean)

DimstAsString,pAsInteger

p=nMod10

Ifp0ThenExitSub

n=n\10

st=Str(n)

k=pMid(st,2,Len(st)-1)Left(st,1)

IfSqr(k)Int(Sqr(k))Then

flag=Tru