2023年VB实验报告新编.pdf

台 州 学 院 V B程 序 设 计 实 验 报 告 实 验 七：常 用 控 件 班 级：1 0物 理 2学 号：姓 名：实 验 日 期：2 023一、实 验 目 的 和 规 定 1.掌 握 基 本 控 件 的 重 要 属 性、事 件；2.纯 熟 掌 握 在 窗 体 上 建 立 上 述 控 件 的 操 作 方 法：3.纯 熟 掌 握 事 件 过 程 代 码 的 编 写；4.初 步 掌 握 建 立 基 于 图 形 界 面 的 应 用 程 序 的 过 程。二、实 验 重 要 仪 器 和 设 备 计 算 机 一 台，Wind o w s X P操 作 系 统,V isual B a s i c环 境。三、实 验 内 容 实 验 7.1 设 计 一 个 字 体 修 饰 的 程 序，界 面 如 图 7-1所 示。规 定:框 架 1 中 有 两 个 复 选 框,可 以 选 择 粗 体 和 斜 体 对 标 签 中 的 文 字 进 行 修 饰；框 架 2 中 有 两 个 单 选 按 钮，可 以 选 择 宋 体 或 楷 体 对 标 签 中 的 文 字 进 行 修 饰;标 签 Label 1的 文 字 内 容 为 Visual B a s i c 程 序 设 计”，宋 体,常 规，三 号；文 字 对 齐 方 式 为 居 中。图 7-1 字 体 修 饰 实 验 7.2 设 计 一 个 点 菜 的 程 序，界 面 如 图 7-2所 示。规 定:框 架 中 的 复 选 框 提 供 可 选 择 的 三 种 套 餐，右 边 的 文 本 框 中 可 以 输 入 数 量;输 入 时 文 本 框 只 接 受 数 字 键;并 且 只 有 选 取 了 相 应 的 套 餐 后 才 可 以 进 行 输 入；假 如 没 有 选 取 套 餐，那 么 文 本 框 不 能 编 辑 并 清 空;单 击“拟 定”按 钮，记 录 点 餐 的 金 额，并 用 消 息 框 显 示 出 来;%点 餐 菜 单 r 儿 童 套 餐 13元|-份 r 标 准 套 餐 18元|-份 r 商 务 餐 25元|份 _.-._.，一 确 定 图 7-2点 菜 实 验 7.3 设 计 一 密 码 修 改 程 序，规 定。1）当 单 击“拟 定”按 钮 后，一 方 面 比 较“用 户 名”和“原 密 码”是 否 一 致，若 一 致 且 都 为“admin”，则 继 续 执 行 环 节 2;否 则 弹 出 消 息 框，提 醒 用 户 犯 错，并 让 用 户 重 新 输 入。2）比 较“新 密 码（N）”和“新 密 码（S）”，若 两 者 一 致,弹 出 密 码 修 改 成 功 消 息 框,程 序 终 止 执 行。否 则 弹 犯 错 误 消 息,并 让 用 户 重 新 输 入。3）当 单 击“取 消”按 钮 后，程 序 终 止 执 行。图 7-3 密 码 修 改 实 验 7.4（选 做）设 计 一 个 拨 号 盘 的 程 序。界 面 如 图 7 4 所 示 规 定:命 令 按 钮 数 组 构 成 数 字 键，单 击 数 字 键 按 钮,将 拨 号 的 内 容 显 示 在 文 本 框 T e x t l中；单 击“重 拨”按 钮，再 现 本 来 的 拨 号 过 程;（提 醒：再 现 过 程 由 定 期 器 实 现）定 期 器 的 时 间 间 隔 为 0.5 秒;设 立 文 本 框 最 多 接 受 10个 字 符。_ 3_ 6_ 9add四、实 验 原 始 纪 录 实 验 7.1程 序 的 界 面 设 计。工 程 1 liciosoft Visual Basic 设 计 13回 区）程 序 代 码。Private S ub C h e e k 1_C lick()If Checkl.Valu e=1 Th e nL ab e 11.F o n t Bol d=T r ueEl s eLa b el 1.FontBold=Fa 1 seEnd I fE nd S u bPr i vate S ub Check2_Cli c k()If Chee k 2,V a lue=1 T h e nLabel 1.Fon 1 1 t a 1 i c=T r ueElseLabe 1 1.F ontltalic=F a Is eEnd IfE n d SubP r i vate S u b O p tionl_Click()Label 1.F ontN a me=Op t i o n l.CaptionEnd SubP r i v ate S u b 0 ption2_Cli c k()L ab e 1 1.FontN a me=O p t ion2.Capti o nE n d Sub实 验 7.2程 序 的 界 面 设 计。13回 区）r 工 程 2-licrosoft Visual Basic 设 计 事 点 餐 1 3回 区 菜 单 1 7 儿 童 套 餐 13元!5 份 1 7 标 准 套 辔 18元|5 份 厂 商 务 餐 25元|份 确 定 金 颉 总 金 额 为 155元|匚 裁 定 二 二;|程 序 代 码。Pr i v a t e S u b Check 1_C 1 ic k()If C h e c k l.V a lu e=1 ThenTextl.En a bled=TrueEl s eText 1.E n a bled=F a IseT e x t 1.T ext=E n d IfEnd Su bP r i v ate S u b Chee k 2_Cli c k()If C heck2.Value=1 ThenT e xt 2.En a bled=T r u eEls eTe x t2.E nabled=Fais eText 2.T e x t=End IfEnd SubP ri v a te Sub Che c k3_Cli c k()If Ch e ck 3.V alue=1 T h e nT e x t 3.Ena b 1 ed=TrueEls eText 3.E nabled=F a IseTex t 3.Tex t 二”“End IfEnd SubP r ivat e S u b Comman d l_Click()Dim a As I n teger,b As I n t e ge ra=V al(T extl.T e x t)*1 3+Val(T ext 2.Text)*1 8+V a 1(T e xt3.Te x t)*25b=M sg Box(总 金 额 为“&a&”元，vblnfor mation,“金 额”)E nd S u bPr i vate S u b Text 1 _KeyPres s(K e y Ascii As Integer)I f K e y A s ci i 57 T h en K e yAsci i=0End SubPriva t e S u b Tex t 2 _ Key P r e s s(Ke y Ascii A s Int e g e r)If Key A s cii 5 7 Th e n Key Asc i i=0End SubPrivate Su b Tex t 3_ K e yPress(KeyAsci i As I ntege r)If K ey Asci i 5 7 Then Key As c i i=0E n d Sub实 验 7.3程 序 的 界 面 设 计。密 码 修 改 成 功 工 程 3确 定 二 二 力 程 序 代 码。Pr i vate S u b C o mmand 1 _ C 1 i ck()a=T e x tl.Textb=Text2.T e x tc=Text 3.Tex td=Tex t 4.TextIf(a=admin)An d(b=admin)The nI f c=d ThenMsgB o x”密 码 修 改 成 功”Els eMsgBox”密 码 输 入 不 一 致,请 重 新 输 入”T e x t 3,Te x t=n Tex t 4.T e x t=n,End IfE 1 seMsgBox”用 户 名 与 密 码 不 一 致,请 重 新 输 入”T e x t 1.Text=”Te x t2.Text=uText3.Text=T e x t4.Text=E n d l fEn d S u bP r i v a t e S ub Com m a n d2_Click()EndE n d Sub实 验 7.4（选 做）程 序 的 界 面 设 计。程 序 代 码。Dim b As Strin g,i As Intege r,d As S tri n g,c As I n tegerP r ivate S u b C o mm and 1 _Click(Index As I n te g er)S e l e c t C ase In d exC a s e 0a=T e x tl.Te x t&1T e x t l.T e x t=aCase 1a=T e x t 1.T ex t&2T e xt1.T e xt=aCase 2a=T e xtl.T e x t&3Textl.T e x t=aC a se 3a=T e x t l.T e x t&4Te x 11.T e x t=aC ase 4a=Te x tl.T e x t&5Tex t l.T ext=aCase 5a=Textl.Te x t&6T ext 1.Text=aCa s e 6a=T e x t l.T e x t&7T e x tl.Tex t=aCase 7a=Te x tl.T e xt&8Textl.Te x t=aC a s e 8a T e x tl.T e x t&9Tex t l.Text=aCase 9a=Textl.Te x t&0T e x tl.T e x t=aE n d Sei e ctE n d Su bPrivat e S u b T i m e rl_Time r()k=L e n(b)i=i+1c=Mid(b,i,1)d=d&cIf i Mod k=0 Then T im erl.E n a b 1 e d=Fa 1 seTextl.Text=dE n d S u bP r i vate S u b Comm a nd2_Click()b=T extl.T e x tTextl.T e xt=,H,Tim e r 1.Enab 1 ed=T r u ed=i=0End Su b五、实 验 结 果 及 分 析 实 验 7.1运 营 结 果。实 验 7.2 运 营 结 果。总 金 触 为 155元 确 定 实 验 7.3 运 营 结 果。密 码 修 改 成 功 工 程 3确 定 实 验 7.4 运 营 结 果。（选 做）六、实 验 总 结 与 思 考（重 要 写 一 些 在 实 验 过 程 中，碰 到 的 问 题、所 犯 的 错 误,以 及 是 如 何 发 现 纠 正 的。大 约 100至 2 0 0字 左 右。）