2019年(春)(计算机二级考试VB上机)VB02ok.doc
《2019年(春)(计算机二级考试VB上机)VB02ok.doc》由会员分享,可在线阅读,更多相关《2019年(春)(计算机二级考试VB上机)VB02ok.doc(2页珍藏版)》请在三一文库上搜索。
1、江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷(2010春)二级 Visual Basic 语言 (试卷代号VB02)(本试卷完成时间 70分钟)考试须知1改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考;2考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分;3程序代码书写应呈锯齿形。一、改错题(14分)题目本程序的功能是:利用随机函数生成n个可被3整除,且至少包含一个8的三位整数。Option ExplicitPrivate Sub Command1_Click() Dim n As Integer, a() As
2、 Integer, i As Integer Dim st As String n = InputBox(数据个数n:, 查找, 15) ReDim a(n) Call find(a) For i = 1 To n If n Mod 3 0 Then st = st & Str(a(i) Else st = st & Str(a(i) & vbCrLf End If Next i Text1 = stEnd SubPrivate Sub find(a() As Integer) Dim ub As Integer, k As Integer, p As Integer Dim s As Str
3、ing Randomize ub = UBound(a) Do p = Int(Rnd * 899) + 100 s = CStr(p) If InStr(s, 8) 0 Or p Mod 3 = 0 Then k = k + 1 a(k) = p End If Loop Until k ubEnd Sub要求1新建工程,输入上述代码,改正程序中的错误;2改错时,不得增加或删除语句,但可以适当调整语句位置;3将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。二、编程题(26分)题目 编写程序,求指定范围内的非素数整数的所有真因子(除1和自身以外的因子)。编程要求1程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;2运行程序,首先在X文本框与Y文本框中输入相应的数据后,按“运行”按钮,进行相关处理,在列表框中按给定格式输出结果;按“清理”按钮,清空两个文本框和列表框,焦点置于文本框X上;按“结束”按钮,结束程序运行;3程序中应定义一个通用过程,用于求整数的所有真因子。(注意:素数没有符合条件的因子)要求将窗体文件和工程文件分别命名为F2和P2,并保存到T盘的根目录下。2010年春VB02-2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 2019 计算机 二级 考试 VB 上机 VB02ok
链接地址:https://www.31doc.com/p-2493099.html