江苏省2009年秋二级计算机考试VB上机试题.docVIP

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

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

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

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

[考试须知]

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

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

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

一.改错题(14分)

[题目]本程序的功能是，找出所有两位整数中的“镜反平方数对”。所谓“镜反平方数对”是指数对n与m，它们满足条件：①n与m不含有数字0，且n不等于m；②n的反序数是m，n的平方数的反序数等于m的平方。例如12与21，12的平方是144，其反序数是441，而21的平方正好等于441；所以12与21是镜反平方数对。

OptionExplicit

PrivateSubCommand1_Click()

DimnAsInteger,fnAsInteger,stAsString

Forn=11To99

IfInStr(CStr(n),0)0Then

fn=fx(n)

Ifvalidate(n,fn)AndnfnThen

st=n^2=n^2,fn^2=fn^2

List1.AddItemst

EndIf

EndIf

Nextn

IfList1.ListCount=0ThenList1.AddItem无镜反平方数

EndSub

PrivateFunctionfx(nAsInteger)AsInteger

DimsAsString

Do

s=sStr(nMod10)

n=n\10

LoopUntiln=0

fx=s

EndFunction

PrivateFunctionvalidate(pAsInteger,qAsInteger)AsBoolean

Iffx(p^2)=q^2Then

validate=True

EndIf

EndFunction

二、编程题（26分）

[题目]编写程序，找出输入字符串中ASCII代码值最大的字符，把它移动到原字符串的末尾，其他字符的排列顺序维持不变。例如，输入“student”，结果是“stdentu”(若输入字符串中含有多个最大字符，只移动其中的一个)。

[编程要求]

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

运行程序，首先在“原字符串”文本框中输入测试字符串，然后按“处理”按钮，接受输入并按要求进行相关处理，将得到的新字符串输出到“新字符串”文本框中；按“清除”按钮，将两个文本框清空，焦点置于“原字符串”文本框上；按“结束”按钮，结束程序运行；

程序中应定义一个通用过程，用于找出一个字符串中ASCII代码值最大的字符及其位置。

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