12年春VB试题

2012 年春 二级 VB 试卷 第一部分程序阅读与填空 第一部分程序阅读与填空 2424 小题 每小题小题 每小题 3 3 分 共分 共 7272 分 分 1 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个正 确答案 程序说明 用下列近似公式求自然对数的底数 e 累加过程到末项小于 10 12 为止 程序 Private Sub Commandl Click Dim 1 Dim i As Integer e 2 2 While 3 t t i 4 i i l Wend Print e End Sub 供选择的答案 1 A e As Double t As Double B e As Single t As Single C e As Double t As Single D e As Single t As Double 2 A t l i 2 B t 2 i l C t l i l D t 2 i 2 3 A t le 12 C e le 12 D e le 12 4 A e e l t B e e l t C e e t i D a p t 2 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个正 确答案 程序说明 单击 Commandl 后 生成一个 5 至 100 之间的随机整数 n 计算下 列表达式的值并显示 程序 Private Sub Commandl Click Dim s As Single i As Integer n As Integer n 5 s 6 For i 7 s 8 Next i Print s End Sub 供选择的答案 5 A Rnd 10 B 5 Rnd 100 C 5 Rnd 95 D 5 Rnd 95 6 A n l B 1 C n D 0 7 A l To n B n To 1 Step 1 C n To 1 D l To n 1 8 A s Sqr i B Sqr s i C i Sqr s D n Sqr s 3 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个 正确答案 程序说明 文件 e aaa txt 中存放了若干商品的名称 数量 价格 执行下 列过程将删除其中数量为 O 的商品信息 Private Sub Commandl Click Dim mc As String sl As Integer jg As Single Open e aaa txt For 9 As 1 Open e bbb txt For 10 As 2 Do While Not EOF 1 Input 1 mc sl jg If 11 Then Write 2 mc sl jg Loop Close 1 Close 2 Kill e aaa txt Name 12 End Sub 供择择的答案 9 A OutPut B Input C Append D Read 10 A OutPut B Input C Append D Read 1l A s1 0 B s1 C sl0 D sl 0 12 A e aaa txt As e bbb txt B e bbb txt As e aaa txt C e bbb txt As e aaa txt D e bbb txt e a aa txt 4 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个正确 答案 程序 Private Sub Commandl Click Dim i As Integer j As Integer n As Integer k As Integer n Val InputBox n ReDim A n As Integer For i 1 To n A i Val InputBox a i Next i For i 1 To n 1 For j i 1 To n If A i A j Then k k 1 Next j Next i Print k End Sub 问题 13 单击命令按钮 Commandl 并输入 3 2 5 1 后 显示结果为 A l B 3 C 0 D 5 14 单击命令按钮 Commandl 并输入 3 1 2 5 后 显示结果为 A 1 B 3 C 0 D 5 15 单击命令按钮 Commandl 并输入 3 5 2 1 后 显示结果为 A 1 B 3 C 0 D 5 16 单击命令按钮 Commandl 并输入 4 l 3 2 4 后 显示结果为 A 1 B 3 C 0 D 5 5 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个正确 答案 程序 Private Sub f s As String Label1 Caption For i Len s To 1 Step 1 Label1 Caption Label1 Caption Mid s i 1 Next i End Sub Private Sub Text1 KeyPress k As Integer If k 13 Then Call f Text1 Text If k Asc 9 Then k 0 End Sub 问题 17 在文本框控件 Textl 输入 235 后 标签控件 Labell 标题显示为 A 325 B 253 C 235 D 532 18 在文本框控件 Textl 输入 132456 后 标签控件 Labell 标题显示为 A 123456 B 654231 C 654321 D 456123 19 当输入焦点在 Textl 时按下按键 其文本显示结果为 A 前缀 增加字符 B 空白 C 没有变化 D 后缀 增加字符 20 当文本框控件 Textl 的下列哪个属性为 True 时 其文本可显示但不可编辑 A Multiline B Locked C Visible D Enabled 6 阅读下列程序说明和程序 在每小题提供的若干可选答案中 挑选一个正确 答案 程序 Dim k As Integer Private Sub Form Load p1 Scale 100 100 100 100 k 0 p1 DrawWidth 5 Timer1 Interval 10 Timer1 Enabled True End Sub Private Sub Timerl Timer p1 Circle 0 0 80 vbRed k 3 141593 180 k l 3 1415 93 180 k k 1 If k 360 Then Timer1 Enabled False End Sub 问题 21 运行终止时 图片框控件 Pl 中的显示为 A 扇形 B 红色实心圆 C 红色边线的一段圆弧 D 红色边线的圆 22 运行时 P1 中的圆或圆弧或扇形的绘制方式是 A 顺时针 B 逆时针 C 起点在 12 点方向 D 起点在 9 点方向 23 运行时 P1 中的圆或圆弧或扇形的半径为 A 5 B 10 C 80 D 100 24 将 Timer 过程中 Circle 语句内的 k 3 141593 180 k l 3 141593 180 改为 k 3 141593 180 k 1 3 141593 180 绘图终 止时 pl 中显示 A 红色实心圆 B 黑色实心圆 C 半圆形 D 半个圆弧 第二部分程序编写 第二部分程序编写 2 2 小题 每小题小题 每小题 1414 分 共分 共 2828 分 分 1 编制事件过程 Commandl Click 输入 10 个数 计算 显示他们的平均 值 显示这 10 个数中所有大于平均值的数 2 编程 在图片框控件 P1 绘制红色边线兰色填充的矩形 鼠标按下处为矩 形左上角 抬起处为右下角 参考答案 1 A 精度要达到 10 12 只能用双精度 2 A e 的初始值为 2 说明是从 2 这一项开始循环 3 B 一项大于该值时还要继续循环 4 D 每一项已经累除了 直接相加 5 C Rnd 产生的是 0 1 之间的数 6 D 先看 7 题 n 已经在循环内了 s 不需要初始值 7 B 先算 n 的开方 逐步到 1 8 C S 要比 i 多开方 1 次 9 B 输入用 Input 10 A 输出用 Output 11 C 数值型 不等于 0 重新输出 12 A 把 aaa 改为 bbb 13 16 题 输入 n 个数 比较大小 前面比后面的小 则计数加 1 第一个数是个数 13 A 1 对 25 14 B 3 对 12 15 25 15 C 无 16 D 5 对 13 12 14 34 24 17 20 题 过程 f 把参数倒过来 按键事件 回车调用 f 非数字键忽略 17 D 18 C 19 C 20 B Locked 为编辑加锁 只能显示不可修改 21 24 题 用定时器慢慢画圆弧 坐标正为弧 负为扇形 最后组成一个圆 21 D 最终是一个圆 22 B 角度的原点是向右 逆时针转动 与坐标系无关 23 C 圆心后的参数即为半径 24 A 每次画角度为 1 度的扇形 结果是实心圆 编程题 1 用数组实现 累加可单独循环计算 但显示必须单独循环 因为输入时还没算出平均值 Dim x 10 As Single i For i 1 to 10 X i inputbox 输入第 个数 S s x i Next Av s 10 For i 1 to 10 If x i av then Print x i Next 2 按下 MouseDown 事件中记录当前坐标 抬起 MouseUp 事件中画矩形 记录坐标必须使 用模块及变量 BF 是边线与填充一样颜色的实心矩形 颜色不同 只能用填充方式 用 B 方式画矩形 Dim x1 As Single y1 As Single Sub p1 MouseDown Bu