计算机二级考试历年试卷--2004-11VB

二 语言基础选择题 1 VB 是面向 的程序设计语言 A 窗口 B 方法 C 对象 D 过程 2 VB 默认的工具栏是 A 文件 B 数据库 C 格式 D 标准 3 在 VB 中 当给引用的对象赋值时 应使用 语句 A Input B Set C Public D Integer 4 下列变量中 正确的是 A Clear B Class rooml C ClassA D 8Class 5 能产生 50 500 之间随机整数的函数表达式是 A Int 450 rnd 50 B Int 450 rnd C Int 451 rnd 50 D Int 451 rnd 6 表示学习成绩 score 在 75 分和 90 分之间的布尔表达式是 A score 75 and score 75 or score 90 C score 90 D score 90 7 要使标签中的文本靠右显示 则应将其 Alignment 属性设置为 A 0 B 1 C 2 D 3 8 下列控件中可以设置滚动条的是 A 复选框 B 框架 C 文本框 D 标签框 9 命令按钮不支持的事件是 A Click B LostFocus C DblClick D MouseDown 10 现有一菜单项 Menu1 若想在程序运行的过程中选中该菜单项 即在该菜单项前面显示 应执行下面的 语句 A Menu1 Checked False B Menu1 Checked True C Menu1 Enabled False D Menu1 Enabled True 11 能使 Form1 窗体重现的代码是 A Form1 hide B Form1 cls C Form1 show D me cls 12 下面各方法中 不能打开某一对象的属性窗口的是 A 选择对象 按下确定按钮 B 选取 视图 菜单的 属性窗口 命令选项 C 选择对象 单击鼠标右键 在弹出的菜单中 选取 属性窗口 菜单项 D 单击工具栏中的 属性窗口 图标 13 选择工具箱中的 Timer 控件是指 A 图像控件 B 文件列表框控件 C 形状控件 D 时钟控件 14 以下叙述中错误的是 A VB 是事件驱动型可视化编程工具 B VB 应用程序不具有明显的开始和结束语句 C VB 工具箱中的所有控件都具有宽度 Width 和高度 height 属性 D VB 中控件的某些属性只能在运行时设置 15 以下叙述中错误的是 A 双击鼠标可以触发 DblClick 事件 B 窗体或控件的事件的名称可以由编程人员确定 C 移动鼠标时 会触发 MouseMOve 事件 D 控件的名称可以由编程人员确定 16 以下声明语句中错误的是 A Const var1 123 B Dim Var2 abc C Public Const Var3 qwer D Static Var4 as Integer 17 程序运行之后 在窗体上单击鼠标 此时窗体不会接收到的事件是 A MouseUp B MouseDown C KeyDown D Click 18 如果要改变窗体的标题 需要设置的属性是 A Caption B Name C Icon D FontNmae 19 以下能判断是否到达文件尾的函数是 A Bof B ASC C New D Eof 20 GUI 的含义是 A 图形用户界面 B 图形设备接口 C 图形拖动方法 D 面向对象的程序设计 21 在窗体上画一个命令按钮 名称为 Command1 然后编写如下事件过程 运行程序后 单击 命令按钮 窗体上显示的是 Private Sub Command1 Click A 12345 共五个数字 Print Len A Sub End A 10 B 14 C 15 D 12 22 以下关于变量作用域的叙述中 不正确的是 A 在过程中只能定义局部变量 B 在模块中的声明部分可用 Private Dim 定义模块级变 量 C 全局变量只能用 Public 来定义 D 在窗体的声明部分可以定义窗体级变量 23 Public Conyers 2 To 14 AS Integer 声明正确的是 A 定义一个公用变量 COnters 其值可以是 2 到 14 之间的一个整型数 B 定义一个公用数组 Conters 数组内可以存放 14 个整数 C 定义一个公用数组 Conters 数组内可以存放 13 个整数 D 定义一个公用数组 Conters 数组内可以存放 12 个整数 24 abc abc abc abc 分别声明 abc 是 A 整型 单精度 字符串 双精度变量 B 整型 整型 字符串 双精度变量 C 单精度 整型 字符串 双精度变量 D 整型 双精度 字符串 双精度变量 25 在 VB 中 数组分类方法有多种 下面错误的提法是 A 依据数组的大小确定与否将其分为静态数组和动态数组两类 B 依据数组的维数不同可以分为一维数组 二维数组 直至最大为 60 维 C 依据数组的维数不同可以分为一维数组 二维数组 直至最大为 80 维 D 依据对象不同 将其分为变量数组和控件数组 三 阅读程序选择题 1 下面的程序功能是 计算 1 到 50 之间的偶数和及偶数平方和 并显示出来 根据题意 在 处选择正确答案 Private Sub Form Click Dim sum1 As Integer sum2 As Integer i As Integer sum1 0 sum2 0 For i 2 To 50 Step 2 sum1 1 sum2 2 Next i Print 偶数和 sum1 Print 偶数平方和 sum2 End Sub 1 A i B i i C sum1 i D sum2 i i 2 A i B i i C sum1 i D sum2 i i 2 下面程序的功能是 读入 n 后 求算式 1 1 2 1 3 1 n 的值 根据题意 在 处选择正确答案 Private Sub Form Click Dim sum As Single item As Single Dim nn As String Dim i j n nn InputBox 请输入求的项数 n n 1 sum 1 For i 2 To n item 2 For j 1 To i item 3 Next j sum sum 1 item Next i Print sum sum End Sub 1 A Val nn B Inputbox nn C Asc nn D Len nn 2 A item j B item j C j j D item item 3 A 1 item B sum 1 item C item item D sum item 3 在窗体上有一个名称为 Command1 的命令按钮 然后编写如下事件过程 Private Sub Command1 Click Dim a s a 8 s 1 1 s s a a a 1 Loop While a 0 Print s a End Sub 程序运行后 单击命令按钮 窗体上显示 s 的值为 2 a 的值为 3 在 处选择正确答案 1 A For B Do C While D Do While 2 A 7 B 34 C 9 D 死循环 3 A 9 B 0 C 7 D 死循环 4 在窗体上有一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮 执行如下事件过 程 根据题意 在 处选择正确答案 Public Sub Fun a ByVal x As Integer For i 1 To 5 x x a i Next i End Sub Private Sub Command1 Click Dim arr 5 As Variant For i 1 To 5 arr i i Next i n 10 Call Fun 1 n Text1 Text n End Sub 程序运行后 单击命令按钮 在文本框中显示的内容是 2 1 A a B arr C arr 5 D arr i 2 A 10 B 15 C 25 D 24 5 在窗体上画一个名称为 Command1 命令按钮 一个名称为 Picture1 的图形框 运行程序后 单击命令按钮后打印出如图所示的杨辉三角形 根据题意 在 处选择正确答案 Option Base 1 Private Sub Command1 Click Dim a 11 11 As Integer 1 m 11 For i 1 To m a i 1 1 a i i 1 Next i For i 3 To m For j 2 To 2 i a i j a i 1 j 1 3 a i 1 j Next j Next i n 30 For i 1 To m Picture1 Print Tab n 4 k n For j 1 To i Picture1 Print Tab k Picture1 Print Format a i j k k 6 Next j 5 Picture1 Print n n 3 Next i End Sub 1 A m 11 B m 7 C n 11 D n 7 2 A i 1 B I C J 1 D j 3 A a I j 1 B a I j C a i 1 j 1 D A i 1 j 4 A n k B k n C k i D k j 5 A Print B Picture1 Print C Print D Picture1 Print 四 综合应用题 如图设计一个名为 学生食堂售菜机 的窗体 该窗体上有二个标签 Label1 Label2 二 个文本框 初始显示为空 Text1 Text2 一个图片框 Picture1 一个命令按钮 Command1 要 求在 Text1 Text2 中分别输入单价 数量后 单击 总介 按钮后 在图片框中显示总价 请 写出 Form Load Command1 Click 代码 Private Sub Form Load Form1 Caption 学生食堂售菜机 Labe