(2013-2014-2)VB试卷A卷.docx

浙江科技学院考试试卷 专业班级 学号 姓名 装订线浙江科技学院2013 -2014 学年第 2 学期考试试卷 A 卷考试科目 VB程序设计 考试方式 闭卷 完成时限 2小时 拟题人 题库 审核人 批准人 2014 年 6月 25 日 建工 学院 13 年级 建筑学 等专业题序一二三四五总分加分人复核人得分签名命题：说明：1. 应将全部答案写在答卷纸对应的题号处；否则作无效处理；2. 编程题应写明题号，若答卷纸不够，请写在背面，不要另添卷纸；3. 考试完成后，必须将试卷与答卷同时交回。得分一、 判断题（本大题共10小题，每小题1分，共10分）1. InputBox函数的返回值类型是字符型。2. 在默认坐标系统中，放置在窗体上的按钮，其Left、Top属性值是相对于窗体内部左上角的坐标值，而窗体本身没有Left、Top属性。3. 对象的方法是用来完成特定操作的过程和函数，其调用格式为：对象.方法=方法值。4. 函数过程和子过程的形参必须设计成变量，不可以是数组。5. 语句End的功能是结束一个程序的运行，一个窗体模块的代码中，只能使用一次End语句。6. 算术运算符的优先级高于关系运算符。7. 定义了一个字符串变量，并没有对其进行赋值，系统默认值是随机字符串。8. 数组并不是一种数据类型，而是一组相同类型的变量的集合。9. 定义数组下标下界默认值时，若要使下界值为2，则可用语句Option Base 2。10. 以操作模式Input打开的文件，只能进行读操作。得分二、 单选题（本大题共20小题，每小题1分，共20分）1. Visual Basic采用的是面向对象的程序设计方法，VB应用程序采用的是（ ）的工作方式。（A）事件驱动（B）顺序执行（C）循环执行（D）选择执行2. 在文本框中，通过（ ）属性能获得选中文本的长度。（A）SelLength（B）Length（C）SelText（D）Text3. 下列语句中，（ ）和Dim a As Single等价。（A）Const a As Single（B）Dim a! （C）Public a As Single（D）Dim a%4. VB中，下列表达式合法的是（ ）。（A）|a| = |b-1|（B）3/4*r*r（C）x=5= 60 Then（B）If x = 90 Then Print 及格 Print 优秀 ElseIf x = 70 Then ElseIf x = 80 Then ElseIf x = 70 Then ElseIf x = 90 Then Case x=90 Print 优秀 Print 优秀 ElseIf x = 80 Then Case x=80 Print 良好 Print 良好 ElseIf x = 70 Then Case x=70 Print 中等 Print 良好 ElseIf x = 60 Then Case x=60 Print 及格 Print 及格 Else Case Else Print 不及格 Print 不及格 End If End Select6. 在VB的文件操作语句中，（ ）可以实现文件的移动。（A）RmDir（B）FileCopy（C）Mkdir（D）Name As7. 执行了语句Form1.Scale (-350, 500)-(400, -200)后，窗体的坐标系统应该是（ ）。（A）X轴方向向左，Y轴方向向下（B）X轴方向向左，Y轴方向向上（c）X轴方向向右，Y轴方向向下（D）X轴方向向右，Y轴方向向上8. 循环For i = 5 to 1 Step 3的循环执行次数是（ ）。（A）3（B）2（C）1（D）09. 下列选项中，（ ）不属于对象的三要素。（A）属性（B）事件（C）过程（D）方法10. 执行过语句Form1.Line (0, 0)-(1000, 2000)后，窗体的CurrentX属性值为（ ）。（A）3000（B）1000（C）0（D）200011. 如果想从子过程调用后返回两个结果，则子过程语句的说明方法是（ ）。（A）Sub f1(ByVal n%, byval m%) （B）Sub f1(n%, ByVal m%)（C）Sub f1(ByVal n%, m%) （D）Sub f1( n%, m%)12. 组合框没有（ ）属性。（A）Left（B）SelText（C）List（D）Caption13. 若想要图片框自动调节大小，以适应其中的图片，则应设置（ ）属性。（A）Width（B）Height（C）Stretch（D）AutoSize14. 当运行程序时，系统自动执行启动窗体的（ ）事件过程。（A）Load（B）UnLoad（C）Click（D）Change15. 下列对象中，（ ）不可以作为其他对象的容器。（A）图像框（B）图片框（C）框架（D）窗体16. 窗体从内存删除之前最后一个触发的事件是（ ）。（A）Terminate（B）Load（C）UnLoad（D）Initialize17. 下列窗口中，（ ）不属于VB集成开发环境。（A）预览窗口（B）属性窗口（C）立即窗口（D）窗体设计窗口18. 命题“z比x ，y都大”可用VB表达式（ ）来表示。（A）z x And z x And z y（C）z x Or z x Or z y19. 在程序运行阶段，一个窗体的（ ）事件只会发生一次。（A）Click（B）Initialize（C）Resize（D）Activate20. 下列属性中，（ ）是数组型属性。（A）Font（B）List（C）Index（D）Text得分三、 程序填空题（本大题共3小题，每空2分，共18分）1. 编一程序，随机产生一个一维数组，并将一维数组中的元素向右循环移位，移位次数由键盘输入。例如，若数组各元素的值依次为0，1,2,3,4,5,6,7,8,9；移位3次后，各元素的值为7,8,9,0,1,2,3,4,5,6。Private Sub Form_Click() Dim a%(1 To 10), i% For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print n = Val(InputBox(输入位次) For k =_（1）_ t = a(10) For i = 9 To 1 Step -1 _（2）_ Next i _（3）_ Next k Print 移位后的一组数组为： For i = 1 To 10 Print a(i); Next i PrintEnd Sub（1）（A）1 To n（B）1 To 10 （C）1 To 10 Step 1（D）1 To 10 - n（2）（A）a(i) = a(i + 1)（B）a(i + 1) = a(i) （C）a(i) = a(i - 1) （D）a(i - 1) = a(i)（3）（A）a(1) = t （B）Print（C）t = a(1)（D）a(10) = t2. 下面的程序，输入两个数并打印出来，调用过程将两个数交换后再次打印。Public Sub swap(_（4）_) Dim t As Integer _（5）_ End SubPrivate Sub Command1_Click() Dim a As Integer, b As Integer a = Val(InputBox(输入a) b = Val(InputBox(输入b) Print 交换前:a=; a; b=; b _（6）_ Print 交换后:a=; a; b=; bEnd Sub（4）（A）ByVal x As Integer, ByVal y As Integer （B）x As Integer, y As Integer（C）ByVal x As Integer, y As Integer （D）x As Integer, ByVal y As Integer（5）（A）t = x: x = y: y = t（B）x = y: y = t: t = x （C）x = y : y = x （D）x = y（6）（A）swap(a, b)（B）swap a, b（C）swap（D）a = swap(b)3. 下面的程序是一个金曲榜程序。运行界面和具体要求如下：列表框显示榜单。选择歌曲名后，“”和“”按钮分别用于提升和降低歌曲名次；“”和“”按钮分别用于进榜和出榜。 Private Sub cmdUp_Click()上升名次按钮 此处代码省略End SubPrivate Sub cmdDown_Click()下降名次按钮 Dim i As Integer, t As String _（7）_ If i = -1 Then MsgBox 请先选择歌名 ElseIf i List1.ListCount - 1 Then t = List1.List(i) List1.List(i) = List1.List(i + 1) List1.List(i + 1) = t List1.ListIndex = i + 1 End IfEnd SubPrivate Sub cmdIn_Click()进榜按钮 Dim song As String, i As Integer song = Text1 i = Val(Text2) If song And i = 1 And i = List1.ListCount + 1 Then _（8）_ Else MsgBox 输入有误！ End IfEnd SubPrivate Sub cmdOut_Click()出榜按钮 Dim i As Integer, t As String i = List1.ListIndex If i = -1 Then MsgBox 请先选择歌名 Else _（9）_ End IfEnd Sub（7）（A）i = List1.ListIndex（B）i = List1.ListCount（C）i = Val(Text1)（D）i = List1.ListCount-1（8）（A）List1.AddItem song, i 1（B）List1.AddItem song, i + 1 （C）List1.AddItem song, I（D）List1.AddItem song（9）（A）List1.RemoveItem i（B）List1.Clear（C）List1.Remove i（D）List1.Kill i得分四、 程序阅读题（本大题共4小题，每小题4分，共16分）1. 运行程序，单击窗体后，窗体呈现的效果是（ ）。Private Sub Form_Click() Print p1(3, 7)End SubPublic Function p1!(x!, n%) If n = 0 Then p1 = 1 Else If n Mod 2 = 1 Then p1 = x * p1(x, n 2) Else p1 = p1(x, n 2) x End If End IfEnd Function（A）27（B）7（C）14（D）182. 运行程序，其运行状态如下图所示，单击按钮后，最终的结果是（ ）。 Private Sub Command1_Click() Dim fn As String If Right(Dir1.Path, 1) = Then fn = Dir1.Path & File1.FileName Else fn = Dir1.Path & & File1.FileName End If Kill fn File1.RefreshEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd Sub（A）删除E:MyDirtext文件夹中的文件data.txt（B）删除E:MyDir文件夹中的文件data.txt（C）删除E:MyDirtext文件夹（D）删除E:MyDir文件夹3. 运行程序，单击窗体后，最终的结果是（ ）。Private Sub Form_Click() Dim i%, x% For i = 1 To 5 x = sum(i) Print x; Next i PrintEnd SubPrivate Function sum(n As Integer) Static j As Integer j = j + n sum = jEnd Function（A）1 1 1 1 1（B）1 2 3 4 5（C）1 3 6 10 15（D）5 5 5 5 54. 窗体上有三个标签，一个时钟控件Timer1，还有由3个形状控件构成的一个控件数组Shape(0)、Shape(1)、Shape(2)，从左到右分别表示红灯、黄灯和绿灯。运行程序，等待动态效果结束后，窗体呈现的效果是（ ）。Private Sub Form_Load() Dim i% Timer1.Interval = 1000 Timer1.Enabled = True For i = 0 To 2 Shape(i).Visible = False Next iEnd SubPrivate Sub Timer1_Timer() Static n% If Shape(n Mod 3).Visible = False Then Shape(n Mod 3).Visible = True Else Shape(n Mod 3).Visible = False End If n = n + 1 If n = 4 Then Timer1.Enabled = FalseEnd Sub（A）（B）（C）（D）得分五、 程序设计题（本大题共4小题，共36分）1. 用InputBox函数输入3个数，如果这三个数能够构成三角形，那么计算并在窗体上输出三角形的面积，否则给出错误提示。（8分）注意：（1）构成三角形的条件是：任意两边之和大于第三边。 （2）计算三角形面积的公式是：s=x(x-a)(x-b)(x-c) 其中：x=12(a+b+c)2. 单击窗体，重定义坐标系统，以窗体中心为原点，随机向各个方向绘制100条直线，如下图所示。（