绝密 考试结束前 浙江省 2015 年 10 月高等教育自学考试 VisualBasic 程序设计试题 课程代码 :07759 请考生按规定用笔将所有试题的答案涂 写在答题纸上 注意事项 : 选择题部分 1. 答题前, 考生务必将自己的考试课程名称 姓名 准考证号用黑色字迹的签字笔或钢笔 填写在答题纸规定的位置上 2. 每小题选出答案后, 用 2B 铅笔把答题纸上对应题目的答案标号涂黑 如需改动, 用橡 皮擦干净后, 再选涂其他答案标号 不能答在试题卷上 一 单项选择题 ( 本大题共 10 小题, 每小题 2 分, 共 20 分 ) 在每小题列出的四个备选项中只有一个是符合题目要求的, 请将其选出并将 答题纸 的相应代码涂黑 错涂 多涂或未涂均无分 1. 若 Form1 中的变量 x 在 Form2 中可以被引用, 声明处必须前置 A.Public B.Static C.Dim D.Const 2.VB 的常量 &O27 所表示的十进制数为 A.23 B.39 C.27 D.33 3. 查找字符串变量 s 是否为 s1 的子串, 应调用函数 A.InStr(s,s1) B.InStr(s1,s) C.At(s1,s) D.At(s,s1) 4. 表达式 Int(20+Rnd*30) 的取值范围为 A.[21,49] B.[20,49] C.[20,50] D.[21,50] 5. 下列判断 a 是否为两位正整数的逻辑表达式中, 错误的是 A.9<aAnda<100 B.a\100=0Anda>9 C.Len(Trim(Str(a)))=2 D.9<aOra<100 6. 若 s n 的初值分别为 1 5, 执行下列循环语句后 s n 的值分别为 Do s= s*2:n = n-1 LoopUntiln = 1 A.8 1 B.16 0 C.8 0 D.16 1 07759# VisualBasic 程序设计试题第 1 页 ( 共 7 页 )
7. 单击滚动条两端的任意一个滚动箭头, 才可能触发该滚动条的 事件 A.KeyDown B.Scrol C.Change D.Dragover 8.VB 用 方法绘制直线 A.Line B.Pset C.Point D.Circle 9. 语句 Circle(1000,1000),800,,,,2 绘制的是 A. 弧 B. 椭圆 C. 扇形 D. 同心圆 10. 通用对话框可以通过对 属性的设定来过滤文件类型 A.Action B.FilterIndex C.Font D.Filter 二 判断题 ( 本大题共 10 小题, 每小题 1 分, 共 10 分 ) 判断下列各题, 在答题纸相应位置正确的涂 A, 错误的涂 B 11. 一个 VB 的工程可以有多个窗体 12. 决定对象是否可见的属性是 Visible 属性, 决定对象可用性的属性是 Enabled 属性 13.VB 的 Integer 类型变量不可以精确表示的整数, 用 Long 类型就一定可以精确表示 14. 表达式中若有多种运算, 在同一层括号内按函数运算 逻辑运算 关系运算 算术运算的顺序对表达式求值 15. 要在文本框中输入 6 位密码, 并按回车键确认, 则文本框的 MaxLength 应设置为 6 16.SetFocus 方法是把焦点移到指定对象上, 使对象获得焦点, 该方法适用于所有控件 17. 在用户拖动滚动框时, 发生滚动条控件的 Scrol 事件 18. 可在现有框架内设置控件, 也可先设置控件再将已有控件拖动到新建框架中 19. 运行时盘驱动器的 List 属性可以用 AddItem 和 RemoveItem 两种方法来改变 20. 选中文件列表框 File1 中某个选项时,File1.FileName 属性值为所选文件的全名 三 程序填空题 ( 本大题共 3 小题, 共 22 分 ) 阅读下列各程序, 根据程序说明在每小题提供的若干可选答案中挑选一个正确答案, 用字母 A B C 或 D 填写在答题纸相应位置上 21. 程序说明 单击 Command1 后输入 y, 计算并显示 n, 使 n 满足 2 n y 2 n+1 程序 DimnAsInteger,m AsInteger,yAsSingle y = (1) (Val(InputBox("y="))) (2) DoUntil(3) m = m*2:(4) Loop Printn 07759# VisualBasic 程序设计试题第 2 页 ( 共 7 页 )
供选择的答案 (1)A.Flaot B.Abs C.Int D.Round (2)A.n=0:m=0 B.n=1:m=1 C.n=0:m=1 D.n=1:m=0 (3)A.m>=y B.n*2>=y C.m<y D.m*2>=y (4)A.n=n+1 B ẏ=y/2 C ẏ=y*2 D.m=m+n 22. 程序说明 单击 Command1 后, 输入数组 a b, 显示在 a b 数组中都有的那些元素 如 a 数组中元素为 1 2 3 4 5,b 数组中元素为 3 4 5 6 7 8, 则显示 3 4 5 程序 PrivateFunctionf2(x()AsSingle,nAsInteger,yAsSingle)As(1) DimiAsInteger f2 = (2) Fori= 1Ton Ify = x(i)then (3) Nexti EndFunction Dima(5)AsSingle,b(6)AsSingle,iAsInteger Fori= 1To5:a(i)= Val(InputBox("a(" &i&")=")):nexti Fori= 1To6:b(i)= Val(InputBox("b("&i&")=")):Nexti Fori= 1To5 If(4) ThenPrinta(i) Nexti 供选择的答案 (1)A.Single B.Boolean C.String D.Integer (2)A.False B.True C.0 D.1 (3)A.f2=x(i) C.ExitFor:f2=True (4)A.f2(b,6,a(i)) C.f2(b(i),5,a) B.ExitFor D.f2=True:ExitFor B.f2(a,5,b(i)) D.f2(a,5,b(i))=True 07759# VisualBasic 程序设计试题第 3 页 ( 共 7 页 )
23. 程序说明 student.txt 中存放着若干学生姓名 学号和英语 数学成绩 ( 格式如下 ), 其中 学号第 5 6 位为专业代码, 下列程序将专业代码为 "01" 的所有学生信息写入到文件 new. txt 程序 DimnameAsString,numbAsString,enAsByte,maAsByte Open"student.txt"ForInputAs#1 (1) (2) Input#1,name,numb,en,ma If(3) = "01"Then Write#2,name,numb,en,ma Loop Close 供选择的答案 (1)A.Open"new.txt"ForPrintAs#2 B.Open"new.txt"As WriteFor#2 C.Open"new.txt"ForWriteAs#2 D.Open"new.txt"ForOutputAs#2 (2)A.DoUntilEOF(1) B.Do WhileEOF(1) C.Do WhileUntilEOF(1) D.WhileNotEOF(1) (3)A.Mid(numb,5,2) B.Mid(numb,5,6) C.Sub(numb,5,2) D.Sub(numb,5,6) 四 程序阅读题 ( 本大题共 3 小题, 共 22 分 ) 阅读下列程序并回答问题, 在每小题提供的若干可选答案中挑选一个正确答案, 用字母 A B C 或 D 填写在答题纸相应位置上 24. 程序 PrivateSubf3(nAsInteger,sAsString) DimfAsInteger,iAsInteger Ifn < 0Thenf= -1Elsef= 1 n = Abs(n):s= "" 07759# VisualBasic 程序设计试题第 4 页 ( 共 7 页 )
DoWhilen <> 0 s= (n Mod2)&s:n = n\2 Loop Iff= -1Thens= "-" + s Dim m AsInteger,ssAsString m = Val(InputBox("m=")):Calf3(m,ss) Label1.Caption = ss 问题与供选择的答案 (1) 单击 Command1 后输入 5, 标签控件 Label1 的界面显示为 A.101 B.1101 C.10 D.1001 (2) 单击 Command1 后输入 13, 标签控件 Label1 的界面显示为 A.1011 B.1101 C.31 D.1001 (3) 单击 Command1 后输入 -11, 标签控件 Label1 的界面显示为 A.1011 B.-1101 C.-1011 D.1011-25. 程序 Dimx1AsSingle,y1AsSingle PrivateSubForm_Load() P1.ScaleMode = 3 pixel PrivateSubP1_MouseDown(ButonAsInteger, ShiftAsInteger,X AsSingle,Y AsSingle) x1 = X:y1 = Y PrivateSubP1_MouseUp(ButonAsInteger, ShiftAsInteger,X AsSingle,Y AsSingle) IfButon = 1Then P1.Line(x1,y1)-(X,Y),RGB(255,0,0),B Else P1.Line(x1,y1)-(X,Y),vbBlue EndIf 07759# VisualBasic 程序设计试题第 5 页 ( 共 7 页 )
问题与供选择的答案 (1) 图片框控件 P1 每个坐标单位的长度为 A. 厘米 B. 毫米 C. 像素 D. 缇 (2)P1 的坐标原点位置在 P1 的 A. 中心位置 B. 左上角 C. 左下角 D. 右下角 (3) 运行时用鼠标左键在 P1 上拖动, 绘制出的图形是 A. 直线 B. 矩形 C. 圆 D. 实心填充矩形 (4) 运行时用鼠标右键在 P1 上拖动, 绘制出的图形是 A. 直线 B. 矩形 C. 圆 D. 实心填充矩形 26. 程序与菜单编辑器 PrivateSubForm_Load() Shape1.FilStyle = 0 PrivateSubaa1_Click() Shape1.Shape = 0 PrivateSubaa2_Click() Shape1.Shape = 3 PrivateSubbb1_Click(IndexAsInteger) IfIndex = 0ThenShape1.FilColor= vbred IfIndex = 1ThenShape1.FilColor= vbgreen IfIndex = 2ThenShape1.FilColor= vbblue 问题与供选择的答案 (1) 运行时点击名称为 aa1 的菜单项, 形状控件 Shape1 的形状为 A. 直线 B. 矩形 C. 圆 D. 椭圆 (2) 运行时点击名称为 aa2 的菜单项, 形状控件 Shape1 的形状为 A. 直线 B. 矩形 C. 圆 D. 椭圆 (3) 标题为红色 绿色 蓝色的菜单项, 他们的菜单名称 A. 分别为 bb1 bb2 bb3 B. 分别为 bb0 bb1 bb2 C. 分别为 bb bb1 bb2 D. 都是 bb1 (4) 标题为红色 绿色 蓝色的菜单项, 他们的 索引 值分别为 A.0 1 2 B.1 2 3 C.-1 0 1 D.3 2 1 07759# VisualBasic 程序设计试题第 6 页 ( 共 7 页 )
非选择题部分 注意事项 : 用黑色字迹的签字笔或钢笔将答案写在答题纸上, 不能答在试题卷上 五 程序设计题 ( 本大题共 2 小题, 每小题 13 分, 共 26 分 ) 27. 编制事件过程 Command1_Click, 输入 n 后, 计算并显示下列表达式的值 y=1 2+2 3+3 4+ +(n-1) n+n (n+1) 28. 列表框控件 List1 List2 中各表项均显示为整数, 编制事件过程 Command1_Click, 将在 List1 List2 中都存在的表项添加到列表框控件 List3( 原为空表 ) 中 例如 :List1 中所有表项为 1 3 5 7 10,List2 中所有表项为 5 6 7 8 9, 则应添加到列 表框控件 List3 中的表项为 5 7 07759# VisualBasic 程序设计试题第 7 页 ( 共 7 页 )