《(2013-2014-2)vb试卷a卷》由会员分享，可在线阅读，更多相关《(2013-2014-2)vb试卷a卷（14页珍藏版）》请在金锄头文库上搜索。
1、浙江科技学院考试试卷第 1 页 共 14 页浙江科技学院2013 -2014 学年第 2 学期考试试卷 A 卷考试科目 VB 程序设计 考试方式 闭卷 完成时限 2 小时 拟题人 题库 审核人 批准人 2014 年 6 月 25 日建工 学院 13 年级 建筑学 等专业题序 一 二 三 四 五 总分 加分人 复核人得分签名命题：说明：1. 应将全部答案写在答卷纸对应的题号处；否则作无效处理；2. 编程题应写明题号，若答卷纸不够，请写在背面，不要另添卷纸；3. 考试完成后，必须将试卷与答卷同时交回。一、判断题（本大题共 10 小题，每小题 1 分，共 10 分）1. InputBox 函数的返回
2、值类型是字符型。2. 在默认坐标系统中，放置在窗体上的按钮，其 Left、Top 属性值是相对于窗体内部左上角的坐标值，而窗体本身没有 Left、Top 属性。3. 对象的方法是用来完成特定操作的过程和函数，其调用格式为：对象.方法=方法值。4. 函数过程和子过程的形参必须设计成变量，不可以是数组。5. 语句 End 的功能是结束一个程序的运行，一个窗体模块的代码中，只能使用一次 End 语句。6. 算术运算符的优先级高于关系运算符。7. 定义了一个字符串变量，并没有对其进行赋值，系统默认值是随机字符串。得分专业班级 学号 姓名 装订线浙江科技学院考试试卷第 2 页 共 14 页8. 数组并不
3、是一种数据类型，而是一组相同类型的变量的集合。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
4、 a As Single 等价。 。（A）Const a As Single （B）Dim a! （C）Public a As Single （D）Dim a%4. VB 中，下列表达式合法的是（ ） 。（A）|a| = 60 Then （B）If x = 90 ThenPrint 及格 Print 优秀ElseIf x = 70 Then ElseIf x = 80 Then ElseIf x = 70 Then ElseIf x = 90 ThenCase x=90 Print 优秀Print 优秀 ElseIf x = 80 ThenCase x=80 Print 良好Print 良好
5、ElseIf x = 70 ThenCase x=70 Print 中等Print 良好 ElseIf x = 60 ThenCase x=60 Print 及格Print 及格 ElseCase Else Print 不及格Print 不及格 End IfEnd Select6. 在 VB 的文件操作语句中， （ ）可以实现文件的移动。（A）RmDir （B）FileCopy （C）Mkdir （D）Name As7. 执行了语句 Form1.Scale (-350, 500)-(400, -200)后，窗体的坐标系统应该是（ ） 。（A）X 轴方向向左，Y 轴方向向下（B）X 轴方向向左，
6、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. 如果想从子过程调用后返回两个结果，则子过程语句的说明方法是（ ） 。浙江科技学院考试试卷第 4 页 共 14
7、页（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. 下列对象中
8、， （ ）不可以作为其他对象的容器。（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 y（C）z x Or z y19. 在程序运行阶段，一个窗体的（ ）事件只会发生一次。（A）Click （B）Initialize （C）Resize
9、（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。得分浙江科技学院考试试卷第 5 页 共 14 页Private Sub Form_Click()Dim a%(1 To 10), i%For i = 1 To 10a(i) =
10、Int(Rnd * 90) + 10Print a(i);Next iPrintn = Val(InputBox(输入位次)For k =_（1）_ t = a(10)For i = 9 To 1 Step -1_（2）_ Next i_（3）_ Next kPrint 移位后的一组数组为：For i = 1 To 10Print a(i);Next iPrintEnd 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
11、 - 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）_)浙江科技学院考试试卷第 6 页 共 14 页Dim t As Integer_（5）_ End SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(InputBox(输入 a)b = Val(InputBox(输入 b)Print 交换前:a=; a;
12、 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
13、）a = swap(b)3. 下面的程序是一个金曲榜程序。运行界面和具体要求如下：列表框显示榜单。选择歌曲名后， “”和“”按钮分别用于提升和降低歌曲名次；“”和“”按钮分别用于进榜和出榜。Private Sub cmdUp_Click() 上升名次按钮浙江科技学院考试试卷第 7 页 共 14 页 此处代码省略End SubPrivate Sub cmdDown_Click() 下降名次按钮Dim i As Integer, t As String_（7）_ If i = -1 ThenMsgBox 请先选择歌名ElseIf i List1.ListCount - 1 Thent = List
14、1.List(i)List1.List(i) = List1.List(i + 1)List1.List(i + 1) = tList1.ListIndex = i + 1End IfEnd SubPrivate Sub cmdIn_Click() 进榜按钮Dim song As String, i As Integersong = Text1i = Val(Text2)If song And i = 1 And i = List1.ListCount + 1 Then_（8）_ElseMsgBox 输入有误！End IfEnd SubPrivate Sub cmdOut_Click() 出榜按钮Dim i As Integer, t As Stringi = List1.ListIndexIf i = -1 Then浙江科技学院考试试卷第 8 页 共 14 页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.A
