2019年(春)(计算机二级考试VB上机)VB01ok.doc
《2019年(春)(计算机二级考试VB上机)VB01ok.doc》由会员分享,可在线阅读,更多相关《2019年(春)(计算机二级考试VB上机)VB01ok.doc(2页珍藏版)》请在三一文库上搜索。
1、江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2010春)二级 Visual Basic 语言 (试卷代号VB01)(本试卷完成时间 70分钟)考试须知1改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;2考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;3程序代码书写应呈锯齿形。一、改错题(14分)题目本程序的功能是:找出指定范围内,本身及其平方数均由不同数字组成的整数。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, k As Long
2、, st As String For n = 500 To 800 k = n 2 If validate(n) And validate(k) Then st = n & 2= & k List1.AddItem st End If NextEnd SubPrivate Function validate(n As Long) As Boolean Dim p As String, i As Integer, a() As Integer, j As Integer p = Str(n) ReDim a(Len(p) For i = 1 To Len(p) a(i) = Mid(p, i,
3、1) Next i For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a) If a(i) = a(j) Then Exit For Next Next i validate = TrueEnd Function要求1新建工程,输入上述代码,改正程序中的错误;2改错时,不得增加或删除语句,但可以适当调整语句位置;3将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。二、编程题(26分)题目 某数列的前二项为2和7,其后继项根据当前最后两项的乘积按下列规则生成:(1)若乘积为一位数,则该乘积即为数列的后继项;(2)若乘积为两位数,则该乘积的十位数和个位数依次作为数列的两个后继项。编写程序,生成该数列的前n项,并把它们显示在文本框中。编程要求1程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;2运行程序,首先在第一个文本框中输入需要的数列项数,按“运行”按钮,生成所要求的数列,按每行10个数据项的格式,输出到多行文本框中;按“清理”按钮,将两个文本框清空,并将焦点置于第一个文本框上;按“结束”按钮,结束程序运行;3程序中应定义一个通用过程,用于生成所要求的数列。要求将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。2010年春VB01
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2019 计算机 二级 考试 VB 上机 VB01ok
链接地址:https://www.31doc.com/p-2493095.html