VISUALBASIC程序设计期末复习

1 Visual Basic 程 序 设 计 期 末 复 习 一一 、 单 项 选 择 题1 能 够 改 变 标 签 (Label)控 件 显 示 标 题 的 属 性 是 （ ） 。A Name B Caption C Text D Border2 当 一 个 工 程 中 含 有 多 个 窗 体 时 ， 其 中 的 启 动 窗 体 是 （ ） 。A 启 动 VB 时 创 建 的 第 一 个 窗 体 B 第 一 个 添 加 的 窗 体C 在 “ 工 程 属 性 ” 对 话 框 中 指 定 的 窗 体 D 最 后 一 个 添 加 的 窗 体3.当 运 行 程 序 时 ， 系 统 自 动 执 行 启 动 窗 体 的 （ ） 事 件 。 A Load B Unload C Click D LostFocus4 下 列 4项 中 合 法 的 变 量 名 是 （ ） 。A 2xyz B IntegerC x-yz D x_yz5 表 达 式 24/2-23*4/4Mod53（ ）A 12 B 16C 20 D 326 要 清 除 List列 表 框 控 件 中 的 所 有 项 目 ， 可 采 用 的 方 法 是 （ ）A Erase B Clear C Click D Delete7 下 列 正 确 的 赋 值 语 句 是 （ ）A x+y=z B 2=x+yC z=x+y D x=Integer+28 可 通 过 下 列 何 种 属 性 来 设 置 或 返 回 List列 表 框 控 件 中 当 前 选 定 项 目 的 索 引 （ ） 。A ListIndex B ListCount C ListText D LisItem9.若 窗 体 Form1左 上 角 的 坐 标 为 (-250,300)， 右 下 角 的 坐 标 为 (350,-200)， 那 么 X轴 和Y轴 的 正 方 向 是 （ ）A 向 左 和 向 上 B 向 左 和 向 下C 向 右 和 向 下 D 向 右 和 向 上 10 如 果 仅 需 要 得 到 当 前 系 统 时 间 ， 则 可 以 使 用 哪 个 函 数 （ ）A TimeB YearC Now 2 D Date11 数 学 关 系 8 y 2 Thenk = k + 5Else k = k + 2End IfNext iPrint i, kEnd Sub写 出 程 序 运 行 时 单 击 窗 体 后 ， Form1 上 的 输 出 结 果 。6. Private Sub Form_Click()Dim i As Integer, k As Integer, c As IntegerFor i = 1 To 5If i Mod 2 = 0 Thenk = k + 2 Elsec = c + 2End IfNext iPrint k, c 6 End Sub写 出 程 序 运 行 时 单 击 窗 体 后 ， Form1 上 的 输 出 结 果 。7 Sub Change(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = xx = yy = tPrint x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integera = 10: b = 20Change a, bPrint a, bEnd Sub写 出 程 序 运 行 时 单 击 窗 体 后 ， Form1上 的 输 出 结 果 。四 、 完 善 程 序 题1 假 设 用 Access创 建 了 一 个 名 为 “ 学 生 .MDB” 的 数 据 库 ， 并 在 其 中 创 建 了 一 张 名 为“ 学 生 基 本 情 况 ” 的 数 据 表 ， 表 中 存 放 了 学 生 的 基 本 信 息 ， 如 图 1所 示 。现 在 要 求 利 用 VB编 写 一 个 数 据 库 查 询 程 序 ， 程 序 的 运 行 界 面 如 图 2所 示 ， 基 本 逻 辑 是 ：首 先 文 本 框 (Text1)中 输 入 希 望 查 询 的 学 生 学 号 ， 然 后 点 击 “ 查 询 ” 按 钮 (Command1)， 如 果数 据 库 中 存 在 该 学 号 ， 则 分 别 在 Text2、 Text3、 Text4 中 显 示 学 号 、 姓 名 、 籍 贯 信 息 ， 否 则 提 示 用 户 “ 记 录 不 存 在 ” 并 使 Text1获 得 焦 点 ， 要 求 用 户 重 新 输 入 。 当 点 击 退 出 按 钮 (Command2)时 关 闭 本 窗 体 。 图 1用 Access创 建 的 学 生 基 本 情 况 数 据 表 7 图 2 查 询 程 序 运 行 界 面程 序 如 下 ， 请 补 充 完 整 。PrivateADOcnAsConnectionPrivateSubForm_Load()12 “Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:学 生 .MDB“EndSubPrivateSubCommand1_Click()DimstrSQLAsStringDimADOrsAs 3 RecordsetADOrs.ActiveConnection= 4 strSQL=“Select*From 学 生 基 本 情 况 Where 学 号 =“+“+Text1+“5If 6 ThenText2=ADOrs.Fields(“学 号 “)Text3=ADOrs.Fields(“姓 名 “)Text4=ADOrs.Fields(“籍 贯 “)Else MsgBox“要 查 询 的 学 号 不 存 在 ， 请 重 新 输 入 !“,vbOKOnly,“信 息 提 示 “Text1=“7EndIfEndSubPrivateSubCommand2_Click() UnLoadMeEnd 8 2 使 用 顺 序 文 件 读 写 方 式 编 写 一 个 简 单 的 记 事 本 应 用 程 序 ， 其 运 行 界 面 如 图 3所 示 。基 本 逻 辑 是 ： 假 设 在 以 C盘 的 根 目 录 下 有 一 个 名 为 F1.txt的 文 本 文 件 。 当 点 击 “ 打 开 ” 按 钮(Command1)时 ， 程 序 将 F1.Txt文 件 中 的 内 容 显 示 在 文 本 框 (Text1)中 ， 当 点 击 “ 新 建 ” 按 钮(Command2)时 ， 清 空 Text1中 的 内 容 ； 用 户 可 以 在 Text1中 进 行 编 辑 操 作 ， 当 点 击 “ 保 存 ”按 钮 (Command3)时 ， 将 Text1中 的 内 容 保 存 在 F1.txt文 件 中 。 当 点 击 “ 退 出 ” 按 钮 (Command4)时 关 闭 本 窗 体 。 记 事 本 程 序 运 行 界 面程 序 如 下 ， 请 补 充 完 整 。PrivateSubCommand1_Click()DimstrtxtAsStringText1=“Open“G:VBaa.Txt“ForInputAs#1DoWhile 1Input#1,strtxtText1=Text1+ 2Loop 3EndSub PrivateSubCommand2_Click()Text1=“EndSubPrivateSubCommand3_Click()4Write#1, 5Close#1EndSubPrivateSubCommand4_Click()UnloadMeEndSub 9 3 列 表 框 应 用 程 序 。 要 求 从 文 本 框 (Text1)中 输 入 姓 名 ， 然 后 按 “ 回 车 ” 键 ， 把 姓 名添 加 到 列 表 框 (List1)中 ； 当 选 择 列 表 框 中 某 一 项 后 ， 按 “ 删 除 ” 按 钮 (Command1)， 则 从 列 表框 中 删 除 该 项 。 程 序 运 行 结 果 如 下 图 所 示 。 PrivateSubText1_KeyPress( 1 )IfKeyAscii= 2 ThenIfText1= 4 Then5 Else MsgBox“请 先 选 择 一 个 项 目 !“,vbOKOnly,“信 息 提 示 “EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub 10 五 、 编 写 程 序 题1.编 写 一 程 序 ， 要 求 单 击 “ 开 始 ” 按 钮 (Command1)， 在 列 表 框 (List1)中 输 出 1100之 间偶 数 ， 单 击 清 除 按 钮 (Command2)， 清 除 文 本 框 中 的 全 部 内 容 。 程 序 运 行 结 果 如 下 图 所 示 。 2. 请 根 据 下 列 描 述 编 写 财 务 部 门 征 收 劳 务 酬 金 所 得 税 程 序 ， 规 定 如 下 ：（ 1） 收 入 在 1000元 以 内 ， 扣 税 3%；（ 2） 收 入 在 1000-3000元 内 ， 800元 以 上 部 分 扣 税 15%，（ 3） 收 入 在 3000-5000元 内 ， 3000元 以 内 按 （ 2） 的 方 法 扣 税 ， 3000元 以 上 部 分 ， 扣税 20%，（ 4） 当 收 入 达 到 5000元 以 上 ， 扣 税 25%。程 序 运 行 界 面 如 下 图 所 示 。 答 案一 、 单 项 选 择 题1.B 2.C 3.A 4.D 5.A 6.B 7.C 8.A 9.D 10.A 11.C12.B 13.A 14.A 15.D 16.A 17 B 18 A 19.B 20.C 21.B22. C 23.D 24.D 11 二 、 填 空 题1 工 具 箱2 Timer3 ab4 6005 style6 右 上7 使 服 务 程 序 处 于 侦 听 状 态 ， 等 待 客 户 访 问8 用 于 向 远 程 主 机 发 出 链 接 请 求9 UDP10 逻 辑 错 误11 SendKeys“Enter”12 数 据 库 引 擎 13. 随 机 文 件 二 进 制 文 件14.ADOrs.Open15.“ (或 空 字 符 串 ) Variant(或 变 体 型 )16 显 示 变 体 型 (或 写 成 Variant型 )17 三 角 形18 119 Connection20 Public三 、 阅 读 程 序 题1 6 32 AAA B3 3 42 9 4 0 45 5 146 4 67 20 1010 20四 、 完 善 程 序 题1. 1SetADOcn=NewConnection2ADOcn.Open3New4ADOcn5ADOrs.OpenstrSQL 6NotADOrs.EOF7Text1.SetFocus 12 2. 1NotEOF(1)2strtxt3Close#14Open“G:VBaa.Txt“ForOutputAs#15Text13.1KeyAsciiAsIntege2133Text1405List1.RemoveItemList1.ListIndex 五 、 编 写 程 序 题1.PrivateSubCommand1_Click()DimiAsIntegerFori=200To400IfiMod2=0ThenList1.AddItemiEndIfNextiEndSubPrivateSubCommand2_Click()List1.Clear EndSub2 Private Sub Command