2010 11第二学期VB试卷(A卷及参考答案)

2010/11第 一 学 期 程 序 设 计 基 础 VB试 卷 A及 参 考 答 案说 明 ： 考 生 应 将 所 有 答 案 填 写 在 答 卷 上 ， 否 则 无 效一 、 选 择 题 （ 每 小 题 1 分 ， 共 10 分 ）C 1 由 “ Fori=1To16Step3” 决 定 的 循 环 结 构 被 执 行 （ ） 次 。A、 4 B、 5 C、 6 D、 7B 2 当 文 本 框 的 属 性 设 置 为 True时 ， 在 运 行 时 文 本 框 不 能 编 辑 。A、 Enabled B、 Locked C、 Visible D、 MultiLineD 3 以 下 语 句 将 删 除 列 表 框 List1中 的 最 后 一 项 。A、 List1.RemoveItemList1.ListCountB、 List1.ClearC、 List1.List(List1.ListCount-1)=“D、 List1.RemoveItemList1.ListCount-1B 4 滚 动 条 的 属 性 用 于 指 定 用 户 单 击 滚 动 条 的 滚 动 箭 头 时 ， Value属 性 值 的 改 变量 。A、 LargeChange B、 SmallChange C、 Value D、 ChangeC 5 将 通 用 对 话 框 类 型 设 置 为 “ 另 存 为 ” 对 话 框 ， 应 修 改 属 性 。A、 Filter B、 Font C、 Action D、 FileNameA 6. 设 x=4， y=6， 则 以 下 不 能 在 窗 体 上 显 示 出 “A=10”的 语 句 是 。A PrintA=x+yB Print“A=“;x+yC Print“A=“+Str(x+y)D Print“A=“NextiPrintPrintgEndSub答 案 ： 18五 、 程 序 选 择 填 空 题 （ 每 空 格 2 分 ， 共 24分 ）阅 读 下 列 程 序 说 明 和 程 序 ， 将 答 案 填 写 在 答 题 纸 相 应 题 号 下 。1 以 下 程 序 产 生 50个 两 位 随 机 整 数 、 并 按 从 小 到 大 的 顺 序 存 入 数 组 a中 ， 再 将 其 中 的 偶 数按 从 小 到 大 的 顺 序 在 窗 体 中 用 紧 凑 格 式 输 出 。PrivateSubForm_Click()Dima(50)Asbyte,iasByte,jAsByte,mAsByteFori=1To50:a(i)=(1):NextiFori=1To49Forj=(2)Ifa(j)a(j+1)Thenm=a(j):(3):a(j+1)=mEndIfNextj,iFori=1To50If(4)ThenPrinta(i);NextiEndSub答 案 ： 1 （ 1） 10+Int(Rnd*90) （ 2）1To50i（ 3） a(j)=a(j+1) （ 4） a(i)Mod2=02. 下 列 程 序 能 在 一 定 范 围 内 找 出 所 有 素 数 ， 要 求 ： 文 本 框 用 来 输 入 所 要 找 的 数 的 范 围 ， 且只 能 先 在 Text1（ 必 须 大 于 1） 输 入 结 束 后 才 能 在 Text2（ 必 须 大 于 Text1中 的 数 ） 中 输 入 ，按 回 车 键 表 示 输 入 结 束 。 在 Text2输 入 结 束 后 ， 才 能 单 击 “ Command1” （ 确 定 ） 命 令 按 钮 ，并 在 窗 体 上 输 出 该 范 围 内 的 所 有 素 数 。 以 上 过 程 可 重 复 。PrivateSubForm_Load()Command1.Enabled=False:（5）EndSubPrivateSubCommand1_Click()DimnAsInteger,mAsInteger,iAsInteger,pAsIntegern=Val(Text1.Text):m=Val(Text2.Text)Fori=nTom（6）DoWhilepInt(Sqr(i)Then（7）NextiText1.Text=“:Text2.Text=“Text1.Enabled=True:Text2.Enabled=FalseCommand1.Enabled=FalseEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfVal(Text1.Text)a(k) B、 a(j)a(k) D、 a(j)0sum=sum+nMod10:n=n10WendEndFunctionPrivateSubCommand1_Click()Dima(10)AsInteger,b(10)AsInteger,iAsIntegerFori=1To10a(i)=InputBox(“a(“;NextiPrintFori=1To10Printb(i);“;NextiEndSub2. 利 用 1个 定 时 器 、 1个 标 签 和 2个 命 令 按 钮 制 作 一 个 动 态 秒 表 。各 控 件 名 称 取 缺 省 值 ， 控 件 Command1、 Command2标 题 分 别 为 “ 开 始 ” 、 “ 结 束 ” 。 运 行 时 ，单 击 “ 开 始 ” 按 钮 后 秒 表 开 始 计 时 ， 并 在 标 签 上 显 示 总 秒 数 ； 单 击 “ 结 束 ” 按 钮 后 ， 计 时 结束 ， 在 窗 体 上 显 示 出 运 行 的 时 间 （ 折 算 成 小 时 、 分 钟 和 秒 数 ） 。答 案 ：DimxAsLongPrivateSubForm_Load()Timer1.Interval=1000:Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Clsx=0Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()DimhAsInteger,mAsInteger,sAsIntegerTimer1.Enabled=Falseh=x3600m=(xMod3600)60或m=(x-3600*h)60s=xMod3600Mod60Print“运 行 了“+Str(h)+“小 时“+Str(m)+“分“+Str(s)+“秒“EndSubPrivateSubTimer1_Timer()x=x+1Label1.Caption=xEndSub3. 编 程 实 现 单 击 窗 体 后 ， 在 窗 体 上 打 印 菲 波 那 契 数 （ Fibonacci） 数 列 1、 1、 2、 3、 5、 8、13、 21、 34中 前 40项 的 值 ， 输 出 格 式 要 求 ： 数 列 中 每 个 数 占 10个 字 符 宽 ， 左 对 齐 ； 每 行输 出 5个 数 。 输 出 形 式 如 下 图 所 示 ：答 案 ：方 法 一 ：PrivateSubform1_Click()Dimf(40)AsLong,iAsIntegerf(1)=1:f(2)=1Fori=3To40f(i)=f(i-1)+f(i-2)NextiFori=1To40PrintTrim(Str(f(i);Space(10-Len(Trim(Str(f(i);IfiMod5=0ThenPrint 打 印 5个 数 换 行NextiEndSub方 法 二 ：PrivateSubform1_click()Dimf1AsLong,f2AsLong,f3AsLong,iAsIntegerf1=1