《2019年（春）（计算机二级考试VB上机）VB03ok.doc》由会员分享，可在线阅读，更多相关《2019年（春）（计算机二级考试VB上机）VB03ok.doc（2页珍藏版）》请在三一文库上搜索。
1、江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级 Visual Basic 语言 （试卷代号VB03）（本试卷完成时间 70分钟）考试须知1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（14分）题目本程序的功能是：找出指定数值范围内所有其平方数为升序数的整数。所谓升序数是指从最高位到最低位的数字依次递增的整数。例如1369就是一个升序平方数。Option ExplicitPrivate Sub Comman
2、d1_Click() Dim n As Integer, k As Integer For n = 20 To 180 k = n 2 If sx(k) Then List1.AddItem n & 2= & k End If Next n If List1.ListCount 0 Then List1.AddItem 无升序平方数End SubPrivate Function sx(ByVal n As Integer) As Boolean Dim num() As Integer, k As Integer, p As Integer Dim i As Integer Do p = n
3、Mod 10 k = k + 1 ReDim Preserve num(k) num(k) = p n = n 10 Loop Until n num(i - 1) Then Exit Function Next i sx = TrueEnd Function要求1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可以适当调整语句位置；3将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）题目 编写程序，将字符串中重复的字符删除，且不改变原有字符的排列顺序，并给出每个字符在原字符串中出现的次数。编程要求1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2运行程序，首先在文本框1中输入测试字符串，然后按“运行”按钮，进行相关处理，在文本框2中，显示删除重复字符后的结果字符串，在列表框中输出每个字符在原字符串中出现的次数；按“清除”按钮，将两个文本框和列表框清空，焦点置于文本框1上；3程序中应定义一个通用过程，删除字符串中的重复字符。【算法提示】在删除重复字符的同时，统计字符出现的次数。计数器初值为1，每删除一个重复字符，计数器加1。要求将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。2009年春VB01-1