江苏省二级VB真题.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2008秋) 二级Visual Basic语言(试卷代号VB04) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．答题完成后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3．程序代码应缩行书写(呈锯齿形)。 一、改错题(14分) 【题目】本程序的功能是：查找800～1200范围内的所有具有两个相同数字的素数。例如811、877等都是符合要求的数。 Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 800 To 1200 If validate(i) And prime(i) Then List1.AddItem i End If Next i End Sub Private Function validate(byval n As Integer) As Boolean Dim num() As Integer, k As Integer Dim i As Integer, j As Integer Do