VB笔试试题 A卷.doc

西华大学课程考试 考查 试题卷西华大学课程考试 考查 试题卷 A A 卷 卷 试卷编号 试卷编号 第 1 页 共 9 页 课程名称课程名称 程序设计基础程序设计基础 VB VB 考试时间考试时间 120120 分钟分钟 课程代码 课程代码 84264608426460 试卷总分 试卷总分 100100 分分 一 一 判断题 每小题判断题 每小题 1 分分 共共 15 分 分 判断下列各小题的叙述正确与否 正确的填 T 错误的填 F 1 VB 是一种面向对象的可视化程序设计语言 它采用了事件驱动的编程机制 2 要改变窗体标题 应该设置窗体的 NAME 属性 3 可通过修改文本框的 Text 属性来达到让文本框输出数据的目的 4 如果要把多条语句书写在一行上 可使用 作为分隔符 5 运行窗体时 要让某控件不可见 可通过改变其 Enabled 属性为 False 实现 6 在窗体模块的声明部分中用 Private 声明的变量的有效范围是其所在的工程 7 VB 提供了三种基本程序结构 它们分别是选择结构 循环结构 递归结构 8 过程内 Static 申明的变量是局部变量 它在每次调用过程时都要进行初始化 9 计时器 Timer 控件的作用是为系统计时 10 过程定义时 形参前面使用 ByRef 表示本参数以地址传递方式接收实参 11 启动窗体时 系统自动执行的窗体事件是 UnLoad 12 递归调用是指在一个过程的内部调用另一个不同的过程 13 12 For j 1 To 2 i 1 Print Next j Print Next i A B C D 10 在 VB 中 若要改变一个图片框上所显示的图片 应当修改其 属性 A Value B Text C Image D Picture 11 以下关于 VB 列表框的叙述中 不正确的是 A 可通过属性 Item 返回列表框中的项目 B 可通过属性 Text 返回列表框中已选项目的内容 C 可通过属性 ListIndex 返回列表框已选项目的序号 D 可通过属性 ListCount 返回列表框中项目的数目 12 如果一个工程中有多个窗体要调用某个自定义过程 则此过程应该定义在 中 A 标准模块文件 B 资源文件 C 类模块文件 D 工程文件 13 下列子过程语句说明合法的是 A Sub sub1 n as Integer B Function sub2 ByVal n C Function sub3 sub3 D Sub sub4 ByVal n 14 把数据项 X 添加到 list1 列表框中并成为第一项 则正确的语句是 A List1 AddItem x 1 B List1 AddItem x 0 C List1 AddItem 1 x D List1 AddItem 0 x 15 有关 VB 中的顺序文件说法正确的是 A 文件中的数据是按每条记录的记录号从小到大排列的 B 文件中的数据是按每条记录的长度从小到大排列的 C 文件中的数据是按记录的某个关键数据项从大到小顺序排列的 D 记录按写入文件的先后顺序存放 在读取时也是按该顺序依次进行 三 阅读程序 每个选择三 阅读程序 每个选择 2 分 共分 共 40 分 分 1 Public a As Integer Private Sub Command1 Click a 10 Print a End Sub Private Sub Command2 Click a a 2 Print a End Sub 1 在运行程序时 如果先单击名为 Command1 的按钮 再单击名为 Command2 的按钮 窗 体上的输出结果为 A 10 12 B 11 12 C 12 11 D 11 13 第 3 页 共 9 页 2 在运行程序时 如果先单击名为 Command2 的按钮 再单击名为 Command1 的按钮 窗 体上的输出结果为 A 5 1 B 2 10 C 10 12 D 12 11 3 如果在 Command2 Click 事件过程的第一条语句处增加 Dim a as integer 语句后运行该程 序 先单击名为 Command1 的按钮 再单击名为 Command2 的按钮 窗体上的输出结 果为 A 12 2 B 10 2 C 5 10 D 6 5 2 Private Sub Form Click Dim i As Integer Dim isum As Integer For i 1 to 7 L1 Isum sum i Next i Print isum isum End Sub Private Function sum n As Integer L2 Dim j As Integer j j n n n 2 sum j End Function 4 该程序运行时第一次单击窗体产生的结果是 A isum 3 B isum 4 C isum 5 D isum 7 5 如果将 L2 语句改为 Static j As Integer 则程序运行是第一次单击窗体产生的结果为 A isum 3 B isum 12 C isum 5 D isum 15 6 如果在原程序的基础上只将 L1 语句改为 isum isum sum i 则程序运行时第一次单 击窗体产生的结果为 A isum 3 B isum 12 C isum 5 D isum 18 3 在窗体上创建一个名为 Text1 的文本框对象 然后编写如下程序 Private Sub Text1 KeyPress KeyAscii As Integer Static s As Integer Dim c As String Select Case KeyAscii Case Asc 0 To Asc 9 s s KeyAscii Asc 0 Case 13 Print s Text1 Locked True End Select End Sub 7 若焦点位于文本框 Text1 中 则能够触发 KeyPress 事件的操作是 A 单击鼠标 B 双击文本框 C 鼠标滑过文本框 D 按下键盘上的某个键 8 若焦点位于文本框 Text1 中 输入 3st4d28f 并按下回车键后 则窗体上输出的结果是 A 0 B 4 C 8 D 17 第 4 页 共 9 页 9 若焦点位于文本框 Text1 中时 输入 3st4d28f 并按下回车键后 以下说法中正确的是 A 文本框 Text1 消失 B 文本框 Text1 变灰 C 文本框 Text1 内容改变 D 文本框 Text1 不能被编辑 4 Private Sub jc m As Integer s As Long Dim i As Integer L1 s 1 For i 1 To m L2 s s i Next i End Sub Private Sub Form Click Dim p As Long res As Long i As Integer Do n Val InputBox 请输入一个正整数 n Loop Until n 0 And Int n n For i 1 To n Call jc i p res res p Next i Print res End Sub 10 本程序中的 Do Loop 语句的作用是 A 无任何实质作用 B 控制用户必须输入多次数据 C 可反复供用户输入数据并分别计算结果 D 控制用户必须输入一个正整数 否则让用户一直输入直到满足条件为止 11 本程序的功能是 A 求 1 2 3 n B 求 1 2 3 n C 求 1 2 3 n D 求 1 2 3 n 12 如果用户输入的 n 的值为 4 则输出的结果为 A 1 B 22 C 44 D 33 13 如果把 L1 处改为 s 0 把 L2 处改为 s s i 则本程序的功能是 A 功能无变化 B 求 1 2 3 n C 求 1 2 3 n D 求 1 1 2 1 2 3 1 2 3 n 5 使用子过程实现产生若干个随机数元素的数组 程序界面如下 第 5 页 共 9 页 代码为 Option Base 1 Private Sub Command1 Click L1 Dim a b c As Integer arr As Integer a Val Text1 Text b Val Text2 Text c Val Text3 Text ReDim arr c Call ger a b arr Text4 Text For i LBound arr To UBound arr Text4 Text4 Str arr i Next i End Sub Private Sub ger ByVal m As Integer ByVal n As Integer sz As Integer For i LBound sz To UBound sz sz i Int Rnd n m 1 m Next i End Sub 14 本程序的功能是 A 产生任意个随机数并输出 B 产生指定个数和指定范围的随机整数并输出 C 产生任意个随机字母并输出 D 产生指定个数和指定范围的随机字符并输出 15 在 L1 处如果不定义 arr as Integer 则 A 程序照常运行 B 程序将出错 系统提示数据找不到 C 程序出错 系统提示类型不匹配 D 程序将出错 系统提示数组下标越界 16 下面关于 ger 过程说法不正确的是 A 它是一个有参过程 B 由于它不返回结果 故是无参过程 C 它能产生指定范围内的随机数并存放在数组中 D 数组参数是以地址方式传递的 17 关于整个程序说法正确的是 A 本程序能产生指定个数的随机英文字符 B 不使用 ReDim arr c 这句 程序也将照常运行 C 如果输入数据时 text2 的值小于 text1 的值 程序将出错 D 数组 arr 下标的下限是 1 第 6 页 共 9 页 6 磁盘上已有顺序文件 1 txt 其内数据如下 姓名 性别 总分 张三 男 215 李四 女 221 王春 男 231 陈明明 女 185 请阅读下面程序 Private Sub Form Click Dim t As String xm As String xb As String zf As Integer Open App Path 1 txt For Input As 1 Open App Path 2 txt For Output As 2 Line Input 1 t Print 2 t While Not EOF 1 Input 1 xm xb zf If xb 男 Then Write 2 xm xb zf End If Wend Close 1 2 End Sub 18 本程序的功能是 A 把 1 txt 文件中的学生信息全部复制到 2 txt 中 B 把 2 txt 文件中的学生信息全部复制到 1 txt 中 C 把 1 txt 文件中的男生信息复制到 2 txt 中 D 把 2 txt 文件中的男生信息复制到 1 txt 中 19 从文件的访问方式来看 文件 2 txt 的类型是 A 二进制文件 B 随机文件 C 顺序文件 D 文本文件 20 下列有关以上程序说法中 正确的是 A 如把 Line Input 1 t 和 Print 2 t 两句放到 While Not EOF 1 的后面 程 序运行结果无变化 B 如把 Line Input 1 t 改为 Input 1 t 将不影响程序的运行结果 C 如把 Write 2 xm xb zf 改为 Print 2 xm xb zf 将不影响程序的运行结果 D 文件 1 txt 和本窗体所在的工程文件不一定在同一个文件夹下 四 四 程序填空 每空程序填空 每空 2 分 共分 共 30 分 分 1 以下程序的功能是 把 1 100 之间的能被 3 整除但不能被 5 整除的数累加起来 Private Sub Form Load Dim i s s 0 For i 1 To 100 If 1 Then 2 End If Next i Print s 第 7 页 共 9 页 End Sub 2 以下程序的功能是 单击命令按钮后 窗体中显示如下内容 A BB CCC DDDD EEEEE Private Sub Command1 click For i 1 To 5 3 For j 1 To i Print 4 Next j Next I End Sub 3 以下程序的功能是判断一个数是否是素数 Private Sub Command1 Click Dim n As Integer re As Boolean n Val Text1 Text call ss n re if 5 then Text2 Text 是素数 Else Text2 Text 不是素数 endif End Sub Private Sub ss ByVal n As Integer re As Boolean re True For i 2 To n 1 If 6 Then 7 Exit Sub End If Next i End Sub 4 生成一个5 5的数组 数据元素是介于 0 30 之间的随机整数 再沿主对角线对称地 交换数据 程序运行结果如图所示 第 8 页 共 9 页 Option