江苏省计算机2级VB春上机1由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“计算机二级vb上机试题”。
江苏省高等学校非计算机专业学生
计算机基础知识和应用能力等级考试上机试卷(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)
a(k)= t
t = 0
End If
Next i
For i = 1 To UBound(a)
If Judge(a(i))Then List1.AddItem a(i)
Next i End Sub Private Function Judge(n As Integer)As Boolean
Do While n 1
If n Mod 3 0 Then
Exit Do
End If
n = n 3
Loop
Judge = True End Function 【要求】
1．新建工程，输入上述代码，改正程序中的错误； 2．改错时，不得增加或删除语句，但可适当调整语句位置；
3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。
二、编程题(26分)【题目】编写程序，找出满足下列条件的正整数：①该数的位数为N(N=3，4)：②该数的数字全部由偶数数字组成：③该数等于另一个由偶数数字组成的数的平方。【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界
面元素大小适中，且均可见；
2．在文本框中输入n值，按“运行”按钮，在规定范围内查找符合要求的数据并在列表框
中显示结果；按“清理”按钮，则将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行；
3．程序中应定义一个函数过程，用于判断一个数的各位数字均为偶数。【要求】
将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。
一、用记事本新建一个文本文件，将本班的M名学生在本学期的N门考试课的成绩（要求用假想分数，并要求将自己的每门课的分数定在96分以上，放在第一列；而将别人的大多数课程的分数都定......
基本操作：标签、文本框： 1（1）、3（1）、4（2）、5（1）、9（1）、11（1）、20（2）、21（1）、28（1）、29（1）、30（1）、31（1）、32（2）、34（2）、36（1）、38（1）、40（2）、44（2）、45（1）、47（1）、50（2） 滚动条：1（2）、9（2）、15（2）、17（1）、18（2）、21（2）、23（1）、2......
2009春上机试题1(编程)程序功能:找出7个默森尼数。法国数学家默森尼曾提出下列公式:Mp=2^p-1。当p是素数并且Mp也是素数时,称Mp为默森尼数,例如,p=5, Mp=2^5-1=31,5和31都是......
心得体会： 刚开始学习vb的时候，我就觉得大一的计算机基础根本不值一提，难度相去甚远。我问过很多以前的同学，他们都说vb是编程语言中最简单的，但是在这次上机实习过程中，我发现要......
计算机二级VB上机考试答题攻略（精选7篇）由网友“INFINITE金明洙”投稿提供，以下是小编为大家准备的计算机二级VB上机考试答题攻略，欢迎大家前来参阅。篇1：计算机二级VB上机考试答......
