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

文档供参考，可复制、编制，期待您的好评与关注！ 文档供参考，可复制、编制，期待您的好评与关注！ PAGE PAGE 1 / 2 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2009 秋） 二级 Visual Basi语c 言 （试卷代号VB04 ） （本试卷完成时间 70 分钟） [考试须知] 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 程序代码书写应呈锯齿形。 一.改错题(14分) [题目]本程序的功能是，找出所有的四位超级素数,并统计它们的个数。所谓超级素数是指本 身为素数,从右向左依次去掉 1 位数字后的数据仍为素数的数。例如 2393 是素数，239、23、 2 也都是素数，所以 2393 是超级素数。（注意：1 不是素数） Option Explicit Private Sub Command1_Click() Dim n As Integer, s As String, i As Integer, k As Integer For n = 1000 To 9999 s = Str(n) For i = 1 To Len(s) If Not prime(Left(s, i)) Then Exit For End If Ne