vb二级考试题库.pdf

《vb二级考试题库.pdf》由会员分享，可在线阅读，更多相关《vb二级考试题库.pdf（100页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、国 家 计 算 机 等 级 考 试 二 级 VB6.0上 机 题 库 1、3.综 合 应 用（1小 题，计 30分）在 考 生 文 件 夹 下 有 一 一 个 工 程 文 件 sjt7.vbp,在 Forml的 窗 体 中 有 个 文 本 框，二 个 命 令 按 钮 和 个 计 时 器。程 序 的 功 能 是 在 运 行 时，单 击“开 始 计 数”按 钮，就 开 始 计 数，每 隔 1秒，文 本 框 中 的 数 加 1;单 击 停 止 计 数 按 钮，则 停 止 计 数（如 图 所 示）。要 求：修 改 适 当 的 控 件 的 属 性，并 去 掉 程 序 中 的 注 释 符，把 程 序 中

2、的？改 为 正 确 的 内 容，使 其 实 现 上 述 功 能，但 不 能 修 改 程 序 中 的 其 他 部 分。最 后 把 修 改 后 的 文 件 以 原 来 的 文 件 名 存 盘。Private Sub Cl_Click（Index As Integer）Select Case?改 为：Select Case Index以 命 令 按 钮 数 组 Cl的 索 引 号 为 Select Case语 句 的 测 试 表 达 式 Case 1Timerl.Enabled=False _Case?改 为：Timerl.Enabled=TrueEnd SelectEnd SubPrivate S

3、ub Tinierl_Timer（）Text 1.Text=Textl.Text?改 为：Text 1.Text 二 Textl.Text+1End Sub2、2.简 单 应 用（2小 题，每 题 20分，计 40分）（1）在 窗 体（名 称 为 Forml,KeyPreview属 性 为 True）上 画 一 个 列 表 框（名 称 为 Listl）和 一 个 文 本 框（名 称 为 Textl）,如 图 1所 示。编 写 窗 体 的 KeyDown事 件 过 程。程 序 运 行 后，如 果 按 A键，则 从 键 盘 上 输 入 要 添 加 到 列 表 框 中 的 项 目（内 容 任 意，不

4、 少 于 三 个）；如 果 按 D键，则 从 键 盘 上 输 入 要 删 除 的 项 目，将 其 从 列 表 框 中 删 除。程 序 的 运 行 情 况 如 图 2所 示。在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt3.vbp（相 应 的 窗 体 文 件 名 为 sjt3.frm）,可 以 实 现 上 述 功 能。但 这 个 程 序 不 完 整，请 把 它 补 充 完 整。要 求：去 掉 程 序 中 的 注 释 符，把 程 序 中 的？改 为 适 当 的 内 容，使 其 正 确 运 行，但 不 能 修 改 程 序 中 的 其 他 部 分。最 后 把 修 改 后 的 文 件 按

5、 原 文 件 名 存 盘。图 2 图 1Private Sub Form KeyDown（KeyCode As Integer,Shift As Integer）If Chr（KeyCode）=A ThenTextl.Text=InputBox（请 输 入 要 添 加 的 项 Fl）*Listl.Additem?改 为：Listl.Addltem Textl.TextEnd IfIf Chr（KeyCode）=D ThenTextl.Text=InpulBox（请 输 入 要 删 除 的 项 目）For i=0 To?改 为：For i=0 To Listl.ListCount*If List

6、l.List（i）=?Then 改 为：If Listl.List（i）=Textl.Text Then*Listl.Remove I tern?改 为：Listl.Removeitem iEnd IfNext iEnd IfEnd Sub（2）在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt4.vbp（相 应 的 窗 体 文 件 名 为 sjt4.frw）,其 功 能 是 通 过 调 用 过 程 Average求 数 组 的 平 均 值，请 装 入 该 文 件。程 序 运 行 后，在 四 个 文 本 框 中 各 输 入 一 个 整 数，然 后 单 击 命 令 按 钮，即 可 求

7、 出 数 组 的 平 均 值，并 在 窗 体 上 显 示 出 来（如 图 所 示）。这 个 程 序 不 完 整，请 把 它 补 充 完 整，并 能 正 确 运 行。要 求：去 掉 程 序中 的 注 释 符，把 程 序 中 的？改 为 正 确 的 内 容，使 其 实 现 上 述 功 能，但 不 能 修 改 程 序 中 的 其 他 部 分。最 后 把 修 改 后 的 文 件 按 原 文 件 名 存 盘。Private Function Average(a()As Integer)As SingleDim Start As Integer,Finish As IntegerDim i As Inte

8、gerDim Sum As Integer1 Start=?(a)改 为：Start=LBound(a)*Finish=?(a)改 为：Finish=UBound(a)Sum=?改 为：Sum=0For i=Start To Finish1 Sum=Sum+?改 为：Sum=Sum+a(i)Next iJ Average=?改 为：Average=Sum/FinishEnd FunctionPrivate Sub Commandl_Click()Dim arrlDim arr2(4)As Integerarrl=Array(Vai(Text 1.Text),Vai(Text2.Text),Va

9、i(Text3.Text),Vai(Text4.Text)For i=1 To 4arr2(i)=CInt(arrl(i)Next i*Aver=Average(?)改 为：Aver=Average(arr2)Print 平 均 值 是：；AverEnd Sub3.综 合 应 用(1小 题，计 30分)在 窗 体 上 画 三 个 命 令 按 钮，其 名 称 分 别 为 Cl、C2和 C3,标 题 分 别 为“读 入 数 据、计 算 和 存 盘(如 图 所 示)。程 序 运 行 后，如 果 单 击 读 入 数 据 按 钮，则 调 用 题 目 所 提 供 的 ReadDatel和 ReadDate

10、2过 程 读 入 datainl.txl和 datain2.txt文 件 中 的 各 20个 整 数，分 别 放 入 Arrl和 Arr2两 个 数 组 中；如 果 单 击 计 算 按 钮，则 把 两 个 数 组 中 对 应 下 标 的 元 素 相 减,其 结 果 放 入 第 三 个 数 组 中(B|J：第 一 个 数 组 的 第 n个 元 素 减 去 第 二 个 数 组 的 第 n元 素，其 结 果 作 为 第 三 个 数 组 的 第 n个 元 素。这 里 的 n为 1、2.20),然 后 计 算 第 三 个 数 组 各 元 素 之 和，并 把 所 求 得 的 和 在 窗 体 上 显 示 出

11、 来；如 果 单 击“存 盘”按 钮，则 把 所 求 得 的 和 存 入 考 生 文 件 夹 的 dataout.txt文 件 中。在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt7.vbp,考 生 可 以 装 入 该 文 件。窗 体 文 件 中 的 ReadDatal和 ReadData2过 程 可 以 把 datainl.txt和 datain2.txt文 件 中 的 整 数 分 别 读 入 Arrl和 Arr2数 组 中；而 WriteData过 程 可 以 把 计 算 出 的 整 数 值 写 到 考 生 文 件 夹 下 指 定 的 文 件 中(整 数 值 通 过 计 算

12、求 得，文 件 名 为 dataout.txt),考 生 可 以 直 接 调 用。注 意：考 生 不 得 修 改 窗 体 文 件 中 已 经 存 在 的 程 序。存 盘 时，工 程 文 件 名 仍 为 sjt7.vbp,窗 体 文 件 名 仍 为 sjt7.frm.dim sum%Private Sub Cl Click()ReadDatal 调 用 过 程 ReadDalalReadData2 调 用 过 程 ReadDala2End SubPrivate Sub C2_Click()Dim arr3(20)As IntegerSum=0For i=1 To 20arr3(i)=Arrl(i

13、)-Arr2(i)将 数 组 Arrl和 数 组 Arr2中 对 应 下 标 的 元 素 相 减 后，结 果 放 入 数 组 arr3中 Sum=Sum+arr3(i)用 变 量 Sum来 存 放 数 组 arr3中 所 有 元 素 的 和 NextPrint Sum 在 窗 体 上 打 印 变 量 Sum,即 在 窗 体 上 显 示 数 组 ab3中 所 有 元 素 的 和 End SubPrivate Sub C3_Click()WriteData dataout.lxt，Sum 以 文 件 名 字 符 串 dalaoul.txl”和 变 量 Sum为 实 参 调 用 过 程 WriteD

14、ataEnd Sub3、2.简 单 应 用(2小 题，每 题 20分，计 40分)(2)在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt4.vbp(相 应 的 窗 体 文 件 名 为 sjt4.frm,其 功 能 是 通 过 调 用 过 程 Sort将 数 组 按 升 序 排 序。程 序 运 行 后，在 四 个 文 本 框 中 各 输 入 一 个 整 数(如 图 1所 示)，然 后 单 击 命 令 按 钮，即 可 使 数 组 按 升 序 排 序,并 在 文 本 框 中 显 示 出 来。要 求：把 程 序 中 的？改 为 正 确 的 内 容 最 后 把 修 改 后 的 文 件 按

15、原 文 件 名 存 盘。图 Private Sub Sort(a()As Integer)Dim Start As Integer,Finish As IntegerDim i As Integer,j As Integer,t As Integer,Start=?(a)改 为:Start=LBound(a)变 量 Start被 赋 予 数 组 a的 下 界 的 值,Finish=?(a)改 为：Finish=UBound(a)变 量 Finish被 赋 予 数 组 a的 上 界 的 值*For i=?To 2 Step-1 改 为：For i=4 To 2 Step-1For j=1 To?

16、改 为：For j=1 To 3*If a(j)?a(j+1)Then 改 为：If a(j)a(j+1)Thent=a(j+1)a(j+1)=a(j)a(j)=tEnd IfNext jNext iEnd Sub3.综 合 应 用(1小 题，计 30分)在 考 生 目 录 下 有 一 个 工 程 文 件 sjt5.vbp,其 窗 体 上 有 两 个 标 签 以 和 L2,标 题 分 别 为 口 令 和 允 许 次 数；一 个 命 令 按 钮 C1,标 题 为“确 定；两 个 文 本 框 名 称 分 别 为 Textl和 Text2。其 中 Textl用 来 输 入 口 令(输 入 时，显 示

17、,无 初 始 内 容；Text2的 初 始 内 容 为 3。并 给 出 了 C1的 事 件 过 程，但 不 完 整，要 求 去 掉 程 序 中 的 注 释 符，把 程 序 中 的？改 为 正 确 内 容，使 得 在 运 行 时,在 Textl中 输 入 口 令 后,单 击“确 定”，如 果 输 入 的 是 123456”则 在 Textl中 显 示 口 令 正 确；如 果 输 入 其 他 内 容，单 击 确 定 后，弹 出 如 图 所 示 的 错 误 提 示 对 话 框，并 且 Text2中 的 数 字 减 1。最 多 可 输 入 3次 口 令，若 3次 都 输 入 错 误，则 禁 止 再 次

18、 输 入。注 意：不 能 修 改 程 序 中 的 其 他 部 分。最 后 把 修 改 后 的 文 件 按 原 文 件 名 存 盘。Private Sub Cl_Click()If?=123456“Then 改 为：If Textl.Text=123456 Then当 单 击 确 定”命 令 按 钮 时，如 果 文 本 框 Textl的 内 容 为 123456 Textl.Text=口 令 正 确“在 文 本 框 Textl中 显 示 口 令 正 确 Textl.?=改 为：Textl.PasswordChar=文 本 框 Textl取 消 密 码 显 示，正 常 显 示 每 个 字 符 El

19、seText2.Text=Text2.Text-1If Text2.Text?Then 改 为:If Text2.Text 0 Then如 果 文 本 框 Text2中 允 许 输 入 的 次 数 大 于 0,执 行 第 一 个 MsgBoxMsgBox 第&(3-Text2.Text)&次 口 令 错 误，请 重 新 输 入 ElseMsgBox 3次 输 入 错 误，请 退 出 Textl.Enabled=?改 为：Textl.Enabled=False如 果 文 本 框 Text2中 允 许 输 入 的 次 数 等 于 0,文 本 框 Textl变 为 不 可 用 End IfEnd I

20、fEnd Sub4、(2)在 考 生 文 件 夹 下 有 个 工 程 文 件 sjt4.vbp,含 有 Forml和 Form2两 个 窗 体，Forml为 启 动 窗 体。两 个 窗 体 上 的 控 件 如 图 1所 示。程 序 运 行 后，在 Forml窗 体 的 文 本 框 中 输 入 有 关 信 息(密 码 框 中 显 示*字 符)，然 后 单 击 提 交 按 钮 则 弹 出“确 认”对 话 框(即 Form2窗 体)，并 在 对 话 框 中 显 示 输 入 的 信 息，如 图 2所 示。单 击 确 认 按 钮 则 程 序 结 束，单 击 重 输”按 钮，则 对 话 框 消 失，回 到

21、 Forml窗 体。在 给 出 的 窗 体 文 件 中 已 经 给 出 了 程 序，但 不 完 整。要 求：1)把 Forml的 标 题 改 为 注 册，把 Form2的 标 题 改 为“确 认；2)设 置 适 当 的 属 性，使 Form2标 题 栏 上 的 所 有 按 钮 消 失(如 图 2所 示)；3)去 掉 程 序 中 的 注 释 符，把 程 序 中 的？改 为 正 确 的 内 容。注 意：不 能 修 改 程 序 中 的 其 他 部 分，标 题 等 属 性 的 修 改 只 能 在 属 性 窗 口 中 进 行。最 后 把 修 改 后 的 文 件 按 原 文 件 名 存 盘。Private

22、 Sub Cl_Click()Dim k As Integer Form2.?改 为：Form2.Show显 示 窗 体 Form2Form2.Print Forml.LI.Caption;Forml.TextlForm2.Print Forml.L2.Caption;Forml.Text2Form2.Print Forml.L3.Caption;Forml.Text3Form2.Print Forml.Frame 1.?;”改 为：Form2.Print Forml.Framel.Caption;:*;For k=0 To 1设 置 变 量 k在 For循 环 中 的 初 值 为 0,终 值

23、 为 1 If Forml.Opl(?).Value Then 改 为：If Forml.Opl(k).Value Then如 果 窗 体 Forml上 的 单 选 按 钮 Op 1(k)被 选 中 Form2.Print Forml.Opl(k).Caption在 窗 体 Form2上 打 印 窗 体 Forml上 单 选 按 钮 Opl(k)的 标 题 End IfNext kEnd SubPrivate Sub Form_Load()Text2.?=改 为：Text2.PasswordChar=文 本 框 Text2以 的 形 式 显 示 文 本 框 Text2实 际 键 入 的 字 符

24、 End Sub图 1 图 23.综 合 应 用(1小 题，计 30分)在 考 生 目 录 下 有 个 工 程 文 件 sjt5.vbp,其 窗 体 上 有 一 个 文 本 框，名 称 为 Textl；还 有 两 个 命 令 按 钮，名 称 分 别 为 Cl、C2,标 题 分 别 为 计 算、存 盘，如 图 所 示。并 有 个 函 数 过 程 isprime可 以 在 程 序 中 直 接 调 用，其 功 能 是 判 断 参 数 a是 否 为 素 数，如 果 是 素 数，则 返 回 True,否 则 返 回 False。请 编 写 适 当 的 事 件 过 程，使 得 在 运 行 时，单 击 计

25、算 按 钮，则 找 出 小 于 18000的 最 大 的 素 数，并 显 示 在 Textl中；单 击 存 盘”按 钮，则 把 Textl中 的 计 算 结 果 存 入 考 生 目 录 下 的 out5.txt文 件 中。注 意：考 生 不 得 修 改 isprime函 数 过 程 和 控 件 的 属 性，必 须 把 计 算 结 果 通 过 存 盘 按 钮 存 入。ut5.txt文 件 中，否 则 无 成 绩。Private Sub Cl_Click()Dim i As Integeri=18000Doi=i-1Loop Until isprime(i)重 复 执 行 Do循 环，直 到 变

26、量 i是 素 数 时，结 束 循 环 Textl.Text=i 在 文 本 框 Textl中 显 示 变 量 iEnd SubPrivate Sub C2 Click()Open out5.txt For Output As#1建 立 并 打 开 文 件 0ut5.txt,以 便 可 以 将 记 录 写 入 文 件 中，并 设 置 其 文 件 号 为 1Print#1,Textl.Text把 文 本 庇 Textl的 内 容 写 入 文 件 号 为 1的 out5.ixl文 件 中 Close ttl关 闭 文 件 号 为 1的 oul5.txt文 件 End Sub5、(2)在 考 生 文

27、件 夹 下 有 一 个 工 程 文 件 sjt4.vbp,请 在 Forml窗 体 上 建 立 一 个 名 称 为 Opl的 单 选 按 钮 数 组，含 有 三 个 单 选 按 钮，其 标 题 分 别 为 10!、11!、12!”,Index属 性 分 别 为 0、1、2；再 画 个 名 称 为 C1的 命 令 按 钮，标 题 为 计 算；画 个 名 称 为 Textl的 文 本 框，如 图 所 示。程 序 的 功 能 是 在 选 定 个 单 选 按 钮 并 单 击 计 算”按 钮 后，可 以 计 算 出 相 应 的 阶 乘 值，在 Textl中 显 示 该 阶 乘 值。请 画 出 上 述 控

28、 件 并 编 写 程 序。注 意：考 生 不 得 修 改 工 程 中 已 经 存 在 的 内 容,在 结 束 程 序 运 行 之 前，必 须 进 行 次 计 算。必 须 通 过 单 击 窗 体 右 上 角 的 关 闭 按 钮 结 束 程 序，否 则 无 成 绩。最 后 按 原 文 件 名 存 盘。Private Sub CI ClickODim temp As LongDim i As Integer,k As Integertemp=1For k=0 To 2变 量 k的 取 值 范 围 为 单 选 按 钮 控 件 数 组 的 下 标 If Opl(k).Value Then如 果 单 选

29、按 钮 Opl(k)被 选 中 For i=1 To Vai(Opl(k).Caption)变 量 i的 初 值 为 1,终 值 为 单 选 按 钮 Opl(k)的 标 题 temp=temp*iNext iTextl.Text=tempEnd IfNext kEnd Sub3.综 合 应 用(1小 题，计 30分)在 窗 体 上 建 立 三 个 菜 单(名 称 分 别 为 Read、Calc和 Save,标 题 分 别 为“犊 入 数 据、”计 算 并 输 出 和 存 盘)，然 后 画 一 个 文 本 框(名 称 为 Textl,MultiLine属 性 设 置 为 True,ScrollB

30、ars属 性 设 置 为 2)(如 图 所 示)。程 序 运 行 后，如 果 执 行“读 入 数 据 命 令，则 读 入 datainl.txt文 件 中 的 100个 整 数，放 入 个 数 组 中，数 组 的 下 界 为 1；如 果 单 击”计 算 并 输 出“按 钮，则 把 该 数 组 中 下 标 为 奇 数 的 元 素 在 文 本 框 中 显 示 出 来，求 出 它 们 的 和，并 把 所 求 得 的 和 在 窗 体 上 显 示 出 来;如 果 单 击 存 盘”按 钮，则 把 所 求 得 的 和 存 入 考 生 文 件 夹 下 的 dataout.txt文 件 中。在 考 生 文 件

31、夹 下 有 一 个 工 程 文 件 sjt5.vbp,考 生 可 以 装 入 该 文 件。窗 体 文 件 中 的 ReadData过 程 可 以 把 datainl.txt文 件 中 的 100个 整 数 读 入 Arr数 组 中；而 WriteData过 程 可 以 把 指 定 的 整 数 值 写 到 考 生 文 件 夹 下 指 定 的 文 件 中(整 数 值 通 过 计 算 求 得，文 件 名 为 dataout.txt)。注 意：考 生 不 得 修 改 窗 体 文 件 中 已 经 存 在 的 程 序。存 盘 时，工 程 文 件 名 仍 为 sjt5.vbp,窗 体 文 件 名 仍 为 s

32、jt5.frmPrivate Sub Read_Click()ReadData调 用 过 程 ReadData,读 入 datainl.Ixl文 件 中 的 100个 整 数 End SubPrivate Sub Calc_Click()Textl.Text=For i=1 To 100 Step 2Textl.Text=Textl.Text&Arr(i)&Space(5)temp=temp+Arr(i)Next iPrint temp 在 窗 体 上 打 印 变 量 tempEnd SubPrivate Sub Save_Click()WriteData“dalaoul.txt，temp调

33、用 过 程 WriteDataEnd Sub6、2.简 单 应 用(2小 题，每 题 20分，计 40分)(1)在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt3.vbp,请 在 名 称 为 Forml的 窗 体 上 画 一 个 名 称 为 Textl的 文 本 框 和 一 个 名 称 为 C1,标 题 为“转 换 的 命 令 按 钮，如 图 所 示。在 程 序 运 行 时，单 击 转 换 按 钮，可 以 把 Textl中 的 大 写 字 母 转 换 为 小 写，把 小 写 字 母 转 换 为 大 写。窗 体 文 件 中 已 经 给 出 了 转 换”按 钮 的 Click事 件

34、过 程，但 不 完 整，请 去 掉 程 序 中 的 注 释 符,把 程 序 中 的？改 为 正 确 的 内 容。注 意：不 能 修 改 程 序 中 的 其 他 部 分。最 后 把 修 改 后 的 文 件 按 原 文 件 名 存 盘。Private Sub Cl_Click()Dim a$,b$,k%,n%n%=Asc(a)-Asc(?)改 为：n%-Asc(a)-Asc(A)整 型 变 量 n被 赋 予 字 符 a的 ASCII代 码 盾 与 字 符 A的 ASCII代 码 值 之 差，字 符 a的 ASCII代 码 值 为 97,字 符 A的 ASCII代 码 值 65,因 此 整 型 变

35、量 n为 32For k%=1 To Len(Textl.Text)b$=Stringd,Asc(b$)?)改 为：b$=Mid(Textl.Text,k%,1)If b$=a And b$=A And b$=Then如 果 字 符 变 量 6$为 大 写 b$=String(l,Asc(b$)+n%)用 字 符 变 量 5$的 八 5/1代 码 值 加 1:32,即 将 字 符 变 量 b$变 为 相 应 的 小 写 字 符 End IfEnd Ifa$=a$+b$Next k%Textl.Text=?改 为：Textl.Text=a$End Sub(2)在 考 生 文 件 夹 下 有 一

36、个 工 程 文 件 sjt4.vbp。请 在 窗 体 上 画 一 个 组 合 框，名 称 为 Cbl,并 输 入 三 个 列 表 项：3、7、11（列 表 项 的 顺 序 不 限，但 必 须 是 这 3个 数 字）：画 个 名 为 Textl的 文 本 框；再 画 个 标 题 为 计 算、名 称 为 C1的 命 令 按 钮。如 图 所 示。请 编 写 适 当 的 事 件 过 程，使 得 程 序 运 行 时，在 组 合 框 中 选 定 个 数 字 后，单 击 计 算 按 钮,则 计 算 5000以 内 能 够 被 该 数 整 除 的 所 有 数 之 和，并 放 入 Textl中。最 后，按 原

37、文 件 名 存 盘。提 示：由 于 计 算 结 果 较 大,应 使 用 氏 整 型 变 量。注 意：考 生 不 得 修 改 窗 体 文 件 中 已 经 存 在 的 程 序，在 结 束 程 序 运 行 之 前，必 须 至 少 进 行 一 次 计 算。必 须 用 窗 体 右 上 角 的 关 闭 按 钮 结 束 程 序，否 则 无 成 绩。Private Sub Cl_Click（）If Cbl.Text=3 Then 如 果 组 合 框 Cbl中 所 选 择 的 内 容 为 3divide（3）以 实 参 为 3调 用 过 程 divide。Elself Cbl.Text=7 Then 如 果 组

38、 合 框 Cbl中 所 选 择 的 内 容 为 7divide（7）以 实 参 为 7调 用 过 程 divide。Else如 果 组 合 框 Cbl中 所 选 择 的 内 容 为 11divide（11）以 实 参 为 11调 用 过 程 divide。End IfEnd SubPrivate Sub divide（x As Integer）Dim i As IntegerDim temp As LongFor i=1 To 5000If i Mod x=0 Then 如 果 变 量 i余 x等 于 0,即 如 果 变 量 i可 以 整 除 xtemp=temp+i 变 量 temp用 来

39、统 计 可 以 整 除 x的 所 有 变 量 i之 和 End IfNext iTextl.Text=tempEnd Sub3.综 合 应 用（1小 题,计 30分）在 窗 体 上 建 立 三 个 菜 单（名 称 分 别 为 Read、Calc和 Save,标 题 分 别 为 读 入 数 据、计 算 并 输 出 和 存 盘），然 后 画 一 个 文 本 框（名 称 为 Textl,MultiLine属 性 设 置 为 True,ScrollBars属 性 设 置 为 2）（如 图 所 示）。程 序 运 行 后，如 果 执 行 读 入 数 据 命 令，则 读 入 datainl.txt文 件 中

40、 的 100个 整 数，放 入 一 个 数 组 中，数 组 的 卜.界 为 1；如 果 单 击 计 算 并 输 出 按 钮，则 把 该 数 组 中 可 以 被 3整 除 的 元 素 在 文 本 框 中 显 示 出 来，求 出 它 们 的 和，并 把 所 求 得 的 和 在 窗 体 上 显 示 出 来：如 果 单 击 存 盘 按 钮，则 把 所 求 得 的 和 存 入 考 生 文 件 夹 下 的 dataout.txt文 件 中。在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt5.vbp,考 生 可 以 装 入 该 文 件。窗 体 文 件 中 的 ReadData过 程 可 以 把

41、 datainl.txt文 件 中 的 100个 整 数 读 入 Arr数 组 中；而 WriteData过 程 可 以 把 指 定 的 整 数 值 写 到 考 生 文 件 夹 下 指 定 的 文 件 中（整 数 值 通 过 计 算 求 得，文 件 名 为 dataout.txt）o注 意：考 生 不 得 修 改 窗 体 文 件 中 已 经 存 在 的 程 序。存 徐 时，工 程 文 件 玄 机 为 sjt5.vbp,窗 体 文 件 名 仍 为 sjt5.frnioPrivate Sub Calc_Click()Textl.Text=For i=1 To 100If Arr(i)Mod 3=0

42、 ThenTextl.Text=Textl.Text&Arr(i)&Space(5)temp=temp+Arr(i)End IfNext iPrint temp在 窗 体 上 打 印 变 量 tempEnd SubPrivate Sub Read_Click（）ReadDcitaEnd SubPrivate Sub Save_Click（）WriteData dataout.txt,temp调 用 过 程 WriteDataEnd Sub7、（2）在 考 生 文 件 夹 下 有 一 个 工 程 文 件 sjt4.v b p,窗 体 上 已 经 画 出 所 有 控 件，如 图 所 示。在 运 行

43、 时，如 果 单 击”开 始”按 钮，则 窗 体 上 的 汽 车 图 标 每 0.1秒 向 右 移 动 次（初 始 状 态 下 不 移 动）；如 果 单 击 停 止“按 钮，则 停 止 移 动。请 完 成 以 下 工 作：1）设 置 适 当 控 件 的 适 当 属 性，使 得 汽 车 图 标 每 0.1秒 向 右 移 动 次，而 初 始 状 态 下 不 移 动；2）请 去 掉 程 序 中 的 注 释 符，把 程 序 中 的？改 为 正 确 的 内 容；3）为 两 个 命 令 按 钮 编 写 适 当 的 事 件 过 程。最 后 以 原 文 件 名 存 盘。*注 意：不 得 修 改 已 经 给 出

44、 的 程 序。编 写 的 事 件 过 程 中 不 能 使 用 变 量，每 个 事 件 过 程 中 只 能 有 一 条 语 句。Private Sub Cl_Click（）Timerl.Enabled=True计 时 器 Timerl开 始 记 数 End SubPrivate Sub C2_Click（）Timerl.Enabled=False计 时 器 Timerl停 止 记 数 End SubPrivate Sub Timerl_Timer（）Pl.?Pl.Left+20 改 为：Pl.Move Pl.Left+20图 片 框 Pl距 窗 体 左 边 界 的 距 离 增 加 2 0,即 图

45、 片 框 Pl向 右 移 动 20End Sub3.综 合 应 用（1小 题，计 30分）在 窗 体 I:建 立 三 个 菜 单（名 称 分 别 为 Read、Calc和 S a v e,标 题 分 别 为 读 入 数 据、”计 算 并 输 出 和 存 盘），然 后 画 一 个 支 本 框（名 称 为 Textl,MultiLine属 性 设 置 为 True,Scrol IBars属 性 设 亶 为 2）（如 囱 而 示）。程 序 运 行 后，如 果 执 行 读 入 数 据”命 令，则 读 入 datainl.txt文 件 中 的 100个 整 数，放 入 一 个 数 组 中，数 组 的 下

46、 界 为 1；如 果 单 击”计 算 并 输 出”按 钮，则 把 该 数 组 中 大 于 等 于 50的 元 素 在 文 本 框 中 显 示 出 来，求 出 它 们 的 和，并 把 所 求 得 的 和 在 窗 体 上 显 示 出 来;如 果 单 击 存 盘”按 钮，则 把 所 求 得 的 和 存 入 考 生 文 件 夹 下 的 dataout.txt文 件 中。在 考 生 文 件 夹 下 有 个 工 程 文 件 sjt5.v b p,考 生 可 以 装 入 该 文 件。窗 体 文 件 中 的 ReadData过 程 可 以 把 datainl.txt文 件 中 的 100个 整 数 读 入 A

47、 c数 组 中；而 WriteData过 程 可 以 把 指 定 的 整 数 值 写 到 考 生 文 件 夹 下 指 定 的 文 件 中（整 数 值 通 过 计 算 求 得，文 件 名 为 dataout.txt）。注 意：考 生 不 得 修 改 窗 体 文 件 中 已 经 存 在 的 程 序。存 盘 时，工 程 文 件 名 仍 为 sjt5.v b p,窗 体 文 件 名 仍 为 sjt5.frm。Dim temp As IntegerPrivate Sub Calc_Click()Textl.Text=For i=1 To 100If Arr(i)=50 ThenTextl.Text=Te

48、xtl.Text&Arr(i)&Space(5)temp=temp+Arr(i)End IfNext iPrint temp在 窗 体 上 打 印 变 量 tempEnd SubPrivate Sub Read_Click()ReadData调 用 过 程 ReadData,读 入 datainl.txt文 件 中 的 100个 整 数 End SubPrivate Sub Save_Click()WriteData dataout.txt*,temp调 用 过 程 Writ eDat aEnd Sub8、2.简 单 应 用(2小 题，每 题 20分，计 40分)(1)在 名 称 为 Form

49、l的 窗 体 上 画 一 个 名 称 为 Labell、标 题 为“添 加 项 目：”的 标 签；画 一 个 名 称 为 Textl的 文 本 框，没 有 初 始 内 容；画 一 个 名 称 为 Combol的 下 拉 式 组 合 框，并 通 过 属 性 窗 口 输 入 若 干 项 目(不 少 于 3个，内 容 任 意)；再 画 两 个 命 令 按 钮，名 称 分 别 为 Command 1、Command2,标 题 分 别 为 添 加、统 计。在 运 行 时,向 Textl中 输 入 字 符,单 击“添 加”按 钮 后，贝 UTextl中 的 内 容 作 为 一 个 列 表 项 被 添 加

50、到 组 合 框 的 列 表 中；单 击 统 计 按 钮，则 在 窗 体 上 显 示 组 合 框 中 列 表 项 的 个 数，如 图 所 示。请 编 写 两 个 命 令 按 钮 的 Click事 件 过 程。*注 意：程 序 中 不 得 使 用 变 量，也 不 能 使 用 循 环。存 盘 时 必 须 存 放 在 考 生 文 件 夹 下，工 程 文 件 名 为 sjt3.vbp,窗 体 文 件 名 为 sjt3.frm。Private Sub Command1_Click()Combol.AddItem Textl.TextEnd SubPrivate Sub Command2_CIick()Pr