安徽VB省二级笔试题目及答案.pdf

1、-1-2006 年 全 国 高 等 学 校 （ 安 徽 考 区 ）计 算 机 水 平 考 试 试 卷（ 二 级 VisualBasic 语 言 ）一 、 单 项 选 择 题 （ 每 题 1 分 ， 共 40 分 ）1. 下 列 缩 写 表 示 中 ， 与 存 储 设 备 无 关 的 是 1 。A） GB B） MB C） KB D） MIPS2. 二 进 制 数 00111101 转 换 成 十 进 制 数 为 2 。A） 57 B） 59 C） 61 D） 603. 能 将 高 级 语 言 源 程 序 转 换 为 目 标 程 序 的 是 3 。A） 解 释 程 序 B） 编 辑 程 序 C）

2、 编 译 程 序 D） 连 接 程 序4. 计 算 机 操 作 系 统 是 4 之 间 的 接 口 。A） 主 机 和 外 设 B） 用 户 和 计 算 机C） 系 统 软 件 和 应 用 软 件 D） 高 级 语 言 和 计 算 机5. 关 于 Windows 系 统 中 的 窗 口 和 对 话 框 ， 说 法 正 确 的 是 5 。A） 对 话 框 能 移 动 和 改 变 大 小 B） 窗 口 能 移 动 和 改 变 大 小C） 对 话 框 不 能 移 动 但 能 改 变 大 小 D） 窗 口 能 移 动 但 不 能 改 变 大 小6. 多 媒 体 技 术 中 的 “ 多 媒 体 ” 的

3、含 义 ， 主 要 是 指 如 6 等 表 示 信 息 的 形 式 。A） 磁 盘 、 光 盘 B） 声 音 、 图 像 C） 电 缆 、 光 纤 D） 声 卡 、 音 箱7. 常 见 的 邮 件 传 输 服 务 器 使 用 7 协 议 接 收 邮 件 。A） HTTP B） IP C） TCP D） POP38. 以 下 不 是 即 时 通 信 软 件 的 是 8 。A） 微 软 MSN B） 新 浪 UC C） 金 山 WPS D） 腾 讯 QQ9. 下 列 有 关 计 算 机 病 毒 的 叙 述 中 ， 正 确 的 是 9 。A） 计 算 机 病 毒 是 一 种 人 为 编 制 的 特

4、殊 程 序B） 严 禁 在 计 算 机 上 玩 游 戏 是 预 防 病 毒 的 唯 一 措 施C） 计 算 机 病 毒 只 破 坏 磁 盘 上 的 数 据 和 程 序D） 计 算 机 病 毒 只 破 坏 内 存 中 的 数 据 和 程 序10. 下 面 关 于 算 法 的 说 法 ， 错 误 的 是 10 。A） 算 法 必 须 有 输 出 ， 但 不 一 定 有 输 入B） 算 法 必 须 在 计 算 机 上 用 某 种 语 言 实 现C） 算 法 必 须 在 有 限 步 执 行 后 能 结 束D） 算 法 的 每 一 步 骤 必 须 有 确 切 的 定 义-2-11. 下 列 符 号 中

5、， 可 以 用 作 VB 变 量 名 的 是 11 。A） a.b.c B） 5abc C） main_1_a D） abs12. 可 以 删 除 字 符 串 两 端 空 格 的 函 数 是 12 。A） Trim B） Rtrim C） Ltrim D） Mid13. 函 数 Int(Rnd*80)+1 是 在 13 范 围 内 产 生 随 机 整 数 。A） 0， 80 B） 0， 79 C） 1， 79 D） 1， 8014. 下 列 四 个 字 符 串 进 行 比 较 ， 最 大 的 是 14 。A） “9977“ B） “CD45“ C） “Cinema“ D） “text“15.

6、下 面 语 句 中 有 函 数 非 法 调 用 的 是 15 。A） x=Int(-1.34) B） x=Fix(-1) C） x=Sqr(-100) D） x$=Chr$(65)16. 已 知 a=“IAMASTUDENT“， 则 表 达 式 Mid(a,4,1)+Right(a,7)+Left(a,3)的 值 是16 。A） “STUDENT“ B） “ASTUDENTIAM“C） “IAMSTUDENT“ D） “ISTUDENTAM“17. 用 八 进 制 表 示 VisualBasic 的 整 型 常 数 时 ， 前 面 要 加 上 的 符 号 是 17 。A)ElsePrint“#

7、“;EndIfNextiA） *#*#*# B） #*#*#* C） *#*# D） #*#*39. 下 列 程 序 段 的 循 环 结 构 执 行 后 ， i 的 输 出 值 是 39 。DimyAsIntegerFori=2To10Step2y=y+iNextiPrintiA） 11 B） 12C） 13 D） 因 为 y 初 值 不 知 道 ， 所 以 不 确 定40. 下 面 分 别 是 求 两 个 数 中 的 大 数 的 程 序 段 ， 不 正 确 的 是 40 。A） Max=IIf(xy,x,y) B） IfxyThenMax=xElseMax=yC） Max=x D） Ify=

8、xThenMax=yIfy=xThenMax=y Max=x二 、 填 空 题 （ 每 题 2 分 ， 共 20 分 ）1、 VisualBasic 的 对 象 主 要 分 为 （ 1） 和 系 统 对 象 两 大 类 。2、 若 用 户 单 击 命 令 按 钮 Command1， 则 此 时 将 被 执 行 的 事 件 过 程 名 为 （ 2） 。3、 函 数 Len(“Hello!“+Space(2)+Mid(“NewYear“,5,3)的 值 是 （ 3） 。4、 若 要 求 输 入 密 码 时 文 本 框 中 只 显 示 *号 ， 则 应 当 在 文 本 框 的 属 性 窗 口 中 设

9、 置 （ 4） 属 性 。5、 在 调 用 过 程 时 参 数 的 传 递 有 两 种 ： 按 地 址 传 递 和 按 值 传 递 ， 其 中 默 认 方 式 是 （ 5） 方 式 。6、 下 面 程 序 的 功 能 是 利 用 随 机 函 数 产 生 10 个 （ 1100） 之 间 的 随 机 整 数 ， 打 印 其 中 能 被 5整 除 的 数 并 求 其 和 ， 如 果 其 和 不 为 零 就 输 出 ， 请 用 正 确 的 内 容 填 空 。PrivateSubForm_Click()Dim sum AsInteger, x AsIntegerFori=1To10x=Int(Rnd*

10、100+1)If (6) =0Thensum=sum+xPrint“x=“;xEndIfNextiIf (7) 0 ThenPrint“sum=“; sumEndIfEndSub-5-7、 已 知 sum=1 k+2 k+n k， 下 面 是 实 现 计 算 该 函 数 的 程 序 ， 请 填 空 。PrivateSubCommand1_Click()DimkAsInteger,iAsInteger,sAsLongDimSumAsInteger,nAsIntegern=5k=1Fori=1Tons=s+pow( (8) )NextiSum=sPrintSumEndSubFunctionpow(

11、aAsInteger,bAsInteger)AsLongDimiAsInteger,tAsLongt=1Fori=1Toa(9)Nextipow=tEndFunction8、 请 用 正 确 的 内 容 填 空 ， 使 得 以 下 程 序 能 够 找 出 50 以 内 所 有 能 构 成 直 角 三 角 形 的 整 数 。PrivateSubForm_Click()DimaAsInteger,bAsIntegerDimcAsSingleFora=1To50Forb=aTo50c=Sqr(a2+b2)If (10) ThenPrinta,b,cNextbNextaEndSub三 、 阅 读 理

12、解 题 （ 每 小 题 4 分 ， 共 20 分 ）1. 执 行 下 面 程 序 输 入 5 后 ， 程 序 输 出 的 结 果 是 1 。PrivateSubForm_Click()x=InputBox(“请 输 入 x： “)Ifx215Theny=x2+1PrintyEndSub-6-2. 执 行 下 面 程 序 后 ， 输 出 的 结 果 是 2 。PrivateSubForm_Click()DimxAsIntegerFori=1To2Forj=1ToiFork=jTo3x=x+1NextkNextjNextiPrintxEndSub4. 在 窗 体 上 画 一 个 名 称 为 Com

13、mand1 的 命令 按 钮 ， 并 编 写 如 下 程 序 ：PrivateSubCommand1_Click()DimxAsIntegerDimyAsIntegerStaticzAsIntegerx=10:y=20:z=30Callf1(x,y,z)Printx,y,zEndSubPrivateSubf1(x1AsInteger,_ByValy1AsInteger,z1AsInteger)x1=x1+2y1=y1+2z1=z1+2EndSub程 序 运 行 后 ， 单 击 命 令 按 钮 ， 在 窗 体 上显 示 的 内 容 是 （ 4） 。3. 执 行 下 面 程 序 后 ， 输 出 的

14、 结 果 是 3 。PrivateSubForm_Click()Dima()a=Array(1,2,3,4)j=1:s=0Fori=0To3Step1s=s+a(i)*jj=j*10NextiPrintsEndSub5. 执 行 下 面 程 序 后 ， 输 出 的 结 果 是 5 。PrivateSubForm_Click()Dima(10， 10)AsIntegerFori=1To5Forj=1To5a(i,j)=i*jNextjNextiPrinta(2,3)+a(3,4)+a(4,5)EndSub-7-四 、 编 程 题 （ 共 20 分 ）1. 编 写 程 序 将 自 然 数 1100

15、0 中 能 被 5 和 7 同 时 整 除 的 数 打 印 出 来 ， 并 统 计 其 个 数 。 （ 6 分 ）2. 计 算 三 角 形 面 积 的 公 式 如 下 ： )()( cpbpapparea 其 中 ： )(21 cbap (1) 试 编 程 定 义 计 算 三 角 形 面 积 的 函 数 过 程 Tria(a,b,c)， 其 中 的 形 参 a,b,c 表 示 三 角 形 的 三条 边 长 。 （ 4 分 ）(2) 利 用 所 定 义 的 函 数 过 程 Tria,编 程 计 算 用 户 给 定 边 长 的 三 角 形 面 积 。 程 序 运 行 界 面 如 下左 图 。 如

16、果 用 户 输 入 的 数 据 不 能 构 成 三 角 形 ， 程 序 应 给 出 如 下 右 图 所 示 的 提 示 。 （ 4 分 ）3.某 大 奖 赛 ,有 7 位 评 委 给 参 赛 选 手 打 分 。 如 下 图 所 示 ,评 委 给 的 分 数 在 文 本 框 控 件 数 组 （ Text1）中 输 入 ， 去 掉 最 高 分 和 最 低 分 后 计 算 其 平 均 值 作 为 该 选 手 的 成 绩 在 文 本 框 Text2 中 显 示 。 再 把全 部 评 委 给 的 分 数 和 最 后 得 分 写 入 磁 盘 D 的 根 目 录 下 数 据 文 件 score.txt 中

17、.试 编 写 “ 计 算 ” 按钮 （ Command1） 单 击 事 件 的 过 程 实 现 上 述 功 能 。 （ 6 分 ）-8-选 择 题 ：1-5DCCBB 6-10BDCAB11-15CADDC 16-20BBBCB21-25BDAAD 26-30CBCBB31-35ACCDC 36-40DCDBD 填 空 题1、 控 件 和 窗 体 对 象 ； 2、 click ； 3、 11；4、 password; 5、 传 址 ； 6、 xmod5,sum;7、 k,i t=t*b; 8 、 c=int(c)andc;7、 k,i t=t*b; 8 、 c=int(c)andc=50 阅 读 程 序 题1、 26； 2、 8； 3、 4321；4、 12 20 32； 5、 38