07春VB上机.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2007春) 二级Visual Basic语言(试卷代号VB01) (本试卷完成时间70分钟) 【考试须知】 1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不 予评分； 3．程序代码书写应呈锯齿形。 一、改错题(14分) 【题目】本程序的功能是：输入一个由正整数组成的数字串(各整数由逗号隔开，最后以#号结束)，从中找出所有是3的幂的数并显示在列表框中。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim S As String, ch As String, k As Integer Dim a() As Integer, t As Integer, i As Integer S = Text1 For i = 1 To Len(S) ch = Mid(S, i, 1) k = k + 1 If ch , And ch # Then t = t * 10 + Val(ch) Else ReDim Preserve a(k)