原创力文档- 1、本文档共2页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(2008春)
二级Visual Basic语言·(试卷代号VB03)
(本试卷完成时间70分钟)
【考试须知】
1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考：
2．答题完成后，文件必须存放在指定位置(T：盘根目录)，否则适当扣分：考试盘(T：) 中若无指定文件，则不得分：
3．程序代码应缩行书写(呈锯齿形)。
一、改错题(14分)
【题目】本程序的功能是查找四位整数n，它的9倍正好等于n的反序数。
Option Explicit
Private Sub Command1_Click()
Dim n As Integer, k As Integer, st As String
Text1 = 结果是：
For n = 1000 To 1111
k = 9 * n
If nx(n) = k Then
st = n -- k
Text1 = Text1 st vbCrLf
End If
Next n
End Sub
Private Function nx(n As Integer) As Integer
Dim i As Integer, sa As String
Dim k As Integer
i = 1
Do
k = n Mod 10
sa = sa Str(k)
n = n / 10
Loop While n 0
nx = sa
End Function
【要求】
1．新建工程，输入上述代码，改正程序中的错误；
2．改错时，不得增加或删除语句，但可适当调整语句位置；
3．将窗体文件和工程文件分别命名为F1和Pl，并保存到T：盘根目录下。
二、编程题(26分)
【题目】编写程序，输入一个正整数n，求所有大于1且小于n，同时与n互质的数，存入一个数组，并按每行五个的格式输出到一个多行文本框中。(所谓两个数互质，是指两个数除了1之外，没有其它公约数)
【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．运行程序，在文本框1中输入数据n，按“运行”按钮，则开始查找并按要求格式住多行文本框2中显示结果：按“清除”按钮，则将两个文本框清空，焦点置于文本框l上； 按“结束”按钮，结束程序运行：
3．程序中应定义一个名为gcd的函数过程，用于求两个整数的最大公约数。
【要求】
将窗体文件和工程文件分别命名为F2和P2，并保存到T：盘根目录下。
文档评论（0）