(2013-2014-1)VB试卷A卷.doc

浙江科技学院考试试卷 专业班级 学号 姓名 装订线浙江科技学院2013 -2014 学年第 1 学期考试试卷 A 卷考试科目 VB程序设计 考试方式 闭卷 完成时限 2小时 拟题人 题库 审核人 批准人 2014 年 1月 9 日 建工、轻工 学院 13 年级 给排水工程、轻化工程 等专业题序一二三四五总分加分人复核人得分签名命题：说明：1. 应将全部答案写在答卷纸对应的题号处；否则作无效处理；2. 编程题应写明题号，若答卷纸不够，请写在背面，不要另添卷纸；3. 考试完成后，必须将试卷与答卷同时交回。得分一、 判断题（本大题共12小题，每小题1分，共12分）1. 窗体为其他对象的容器，其本身不是一个对象。2. 为了使一个控件在运行时不可见，应设置其Enabled属性为False。3. MsgBox可以用于输入一个字符串。4. For循环结构可以实现嵌套，Do.Loop循环也可以实现嵌套，但两种循环控制结构不可以相互嵌套。5. CommonDialog控件就像Timer控件一样，在运行时是看不见的。6. 三种文件系统控件，只将他们放置到窗体上是不能实现关联的，必须编写相应的事件代码才可。7. 窗体、图片框和图像框控件都可以用于显示图片。8. Point方法可以用于画点。9. 定义过程时，出现在过程名后面圆括号内的参数为实参；调用过程时，写入过程名后括号内的参数为形参。10. Visual Basic中使用关键字Const声明符号常量。其格式如下： Const 常量名As 类型|类型符号=常数表达式11. 一个程序的启动对象可以是一个窗体，也可以是标准模块中名为Main的自定义Sub过程。12. 可以使用ReDim语句反复地改变数组的元素个数及维数，但是不能改变数组原来的数据类型。得分二、 单选题（本大题共20小题，每小题1分，共20分）1. 若要改变一个控件在窗体上的左右位置，应该修改该控件的（ ）属性。（A）Left（B）Right（C）Top（D）Width2. 如果x是一个正实数，对x四舍五入取整的表达式是（ ）。（A）Int(x + 0.05)（B）Int(x + 0.5)（C）0.01 * Int(x * 100 + 0.5)（D）Int(x)3. 下列表达式中，（ ）的值为False。（A）ABCDABCE（B）1234512345ABC （C） Not 3 * 5 = 15 （D）5 = 5 And 15 5 + 54. 下列数据中，（ ）是日期型常量。（A）5/13/2009（B）May 13,2009（C）2009年5月13日 （D）#5/13/2009#5. 菜单中的分隔条，也是一个菜单项，需要对其进行下列属性设置（ ）。（A）菜单名称设置为“-”，同时必须设置菜单标题（B）菜单名称和标题都设置为“-”（C）标题设置为“-”,无需设置菜单名称（D）标题设置为“-”,同时必须为它设置菜单名称6. 通过调用不同的方法，可以使通用对话框控件显示不同的对话框，下列方法中，（ ）不属于通用对话框控件的方法。（A）ShowOpen（B）ShowColor（C）ShowDialog（D）ShowFont7. Kill语句在Visual Basic语言中的功能是（ ）。（A）清内存（B）删除磁盘上的文件（C）清病毒（D）清屏幕8. 下列函数中，（ ）用于获取文件的长度。（A）Lof（B）Eof（C）Len（D）Loc9. 运行程序，依次单击Command1和Command2，窗体的CurrentX和CurrentY属性值为（ ）。Private Sub Command1_Click() Form1.PSet (1000, 2000)End SubPrivate Sub Command2_Click() Form1.ClsEnd Sub（A）1000, 2000（B）0, 0（C）2000, 2000（D）1000, 100010. 执行下列语句中，可以自定义窗体的坐标系统，若要得到相同的坐标系统，也可以使用（ ）语句。（A）Scale (20, 15)-(-20, -15)（B）Scale (-20, 15)-(20, -15)（C）Scale (-20, -15)-(20, 15)（D）Scale (20, -15)-(-20, 15)11. （ ）可以删除图片框Pic中已加载的图片。（A）pic.Picture = （B）逻辑型False（C）pic.Clear（D）pic.Picture = LoadPicture()12. 关于绘图方法，下列说法正确的是（ ）。（A）Circle方法不但可以用于画圆，还可以用于椭圆、圆弧、扇形以及抛物线的绘制（B）Circle方法的每一个参数都必须填写，不可以省略（C）Circle方法采用BF关键字参数后，即可以用画圆的颜色来填充该圆（D）以上说法都不正确13. 与变量声明“Dim a As Long”效果相同的是（ ）。（A）Dim a!（B）Dim a%（C）Dim a#（D）Dim a&14. 下列选项中，（ ）不属于对象的三要素。（A）属性（B）事件（C）方法（D）过程15. 执行下列代码，输入51，则窗体上打印的内容是（ ）。i = Val(InputBox(输入)If i Mod 5 4 Then i = i + 10ElseIf i Mod 5 2 Then i = i 10Else i = i * 10End IfPrint i=; i（A）i = 11（B）i = 1（C）i = 61（D）i = 1016. 下列代码的功能是计算（ ）。p = 1For i = 2 To 10 If a(i) a(p) Then p = iNext iPrint a(p)（A）总和（B）平均值 （C）最小值（D）最大值17. 用户自定义过程中，Function保留字开始的为（ ）。（A）事件过程（B）子过程（C）函数过程（D）属性过程18. 下面过程说明不合法的是（ ）。（A）Function fun(x%) As String（B）Sub fun(ByVal x%) （C）Sub fun(ByVal a%()（D）Function fun(ByVal f%)19. 下列叙述中，不正确的是（ ）。（A）在过程中用Dim定义的变量是局部变量，其他过程不可以访问它。（B）在过程中用Private定义的变量是窗体/模块级变量，可被本模块的任何过程访问，其他模块的过程不可以访问它。（C）在过程中用Static定义的变量是静态变量，也是局部变量，其他过程不可以访问它。（D）在“通用声明”段中用Public定义的变量是全局变量，可被本应用程序的任何过程访问。20. 窗体的所有事件中，最后一个触发的是（ ）。（A）UnLoad（B）Terminate（C）Load（D）Initialize得分三、 程序填空题（本大题共4小题，每空2分，共24分）1. 将一张面值为100元的人民币等值换成100张5元、1元和5角的零钞，要求每种零钞不少于1张，问有哪几种组合？Private Sub Command1_Click() Dim x%, y%, z%, n% Print 5元 1元 5角 n = 0 For x = 1 To 19 For y = 1 To 100 x _（1）_ If _（2）_ Then Print x; y; z _（3）_ End If Next y Next x Print 共有; n; 种组合End Sub（1）（A）For z = 1 to 100（B）z = x + y （C）For z = 1 to 100 x - y（D）z = 100 - x y（2）（A）x = 5 Or y = 1 Or z = 0.5（B）x = 5 And y = 1 And z = 0.5 （C）x + y + z = 100 （D）5 * x + y + 0.5 * z = 100（3）（A）Exit For （B）z = z + 1 （C）n = n + 1（D）Print2. 打印如下图所示的杨辉三角形（杨辉三角形为一个下三角矩阵，每一行第一个元素和主对角线上元素都为1，其余每一个数正好等于它上面一行的同一列与前一列之和）。 Private Sub Form_Click() Dim i%, j%, a%(1 To 8, 1 To 8) For i = 1 To 8 _（4）_ If _（5）_ Then a(i, j) = 1 Else _（6）_ End If Print Tab(4 * j - 3); a(i, j); Next j Print Next iEnd Sub（4）（A）For i = 1 To j （B）For j = 1 To 8 - i （C）For j = 1 To i （D）For j = 1 To 8（5）（A）i = j Or i = 1（B）i = j Or j = 1 （C）i = j And i + j = 9（D）i = j And j = 1（6）（A）t = a(i, j): a(i, j) = a(j, i): a(j, i) = t （B）a(i, j) = a(i - 1, j) + a(i - 1, j - 1) （C）a(i, j) = 0 （D）a(i, j) = -13. 下面的函数，使用折半查找法，在一个升序数列中查找给定的数x。Public Function search(a%(), x%) As Integer Dim bot%, top%, mid% bot = LBound(a) top = UBound(a) Do While bot = top mid = (bot + top) 2 If _（7）_ Then Exit Do ElseIf x top Then search = -1 Else _（9）_ End IfEnd Function（7）（A）x = a(mid)（B）x a(mid)（C）x = mid（D）x mid（8）（A）bot = mid + 1 （B）bot = mid - 1（C）top = mid - 1（D）top = mid + 1（9）（A）print mid（B）search = mid （C）print a(mid)（D）search = a(mid)4. 下面的程序用于显示一个滚动字幕。窗体上部有一个图片框Picture1，其中有个标签Label1。启动程序后，标签在图片框中自动水平移动。窗体下部有一个转向按钮Command1。单击一次该按钮改变一次移动方向（向左或向右）。若标签从图片框左边移出，则自动从右边进入。反之亦然。每次重新进入图片框，标签的垂直位置随机改变。 Dim dx As Integer, y As IntegerPrivate Sub Command1_Click() _（10）_End SubPrivate Sub Form_Load() dx = 100 Timer1.Enabled = True Timer1.Interval = 100 y = Picture1.ScaleHeight - Label1.HeightEnd SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left + dx If Label1.Left Picture1.Height （B）Label1.Left Picture1.Width （D）Label1.Top a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i For i = 1 To n Print a(i); Next i PrintEnd Sub（A）5 6 9 11 20（B）20 11 9 6 5 3（C）20 11 9 6 5 （D）3 5 6 9 11 203. 运行程序，单击窗体后，窗体呈现的效果是（ ）。Private Sub Form_Click() Dim i As Integer, x As Integer, y As Integer, f As Integer Form1.Line (-200, 0)-(200, 0) Form1.Line (0, 200)-(0, -200) For i = 1 To 100 f = Int(Rnd * 2) If f = 0 Then f = -1 x = Int(Rnd * 200) y = Int(Rnd * 200) Form1.Line (0, 0)-(f * x, f * y) Next iEnd SubPrivate Sub Form_Load() Form1.Scale (-200, 200)-(200, -200)End Sub（A）（B）（C） （D）4. 下面程序运行时连续单击3次窗体后，窗体上的输出结果为（ ）。Private Sub Form_Click() Static a As Integer Dim b As Integer b = a + b a = b + 1 Form1.Print a=; a; b=; bEnd Sub（A）a=3 b=2 （B）a=0 b=1 a=3 b=2 a=1 b=2 a=3 b=2 a=2 b=3（C）a=1 b=0 （D）a=1 b=0 a=2 b=1 a=1 b=0 a=3 b=2 a=1 b=05. 运行程序，单击窗体后，窗体呈现的效果是（ ）。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）186. 窗体上放置一个列表框，运行下面的程序，单击窗体，则列表框中的内容为（ ）。Private Sub Form_Click() Dim i As Integer For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next iEnd Sub（A）（B）（C） （D）得分五、 程序设计题（本大题共2小题，每小题10分，共20分）1. 编写程序，单击窗体，随机产生100个任意的二位正整数，存放在一维数组中。并将其中大于平均值的数，以每行10个的形式，写到C盘根目录下的文件res.txt中。