Chapter 15 VB 程式进阶答辩

格式：ppt
大小：3.33 MB
文档页数：69

下载文档原格式

VB大作业编程辩论赛计时与评分系统答案参考

一．设计思路首先设计一个计时器登录系统窗体界面并编辑相关代码以完成登录；然后设计辩论赛计时器主菜单,辩论队名称立场及设置窗体界面并编辑相关代码，其次是设计辩论队比赛规则，队员介绍，各个环节的时间设置以及计时器的窗体界面并编辑相关代码以完成分队计时限时的要求；最后设计一个评委打分和一个颁奖仪式窗体界面并编辑相关代码。

二．设计目标要求辩论赛计时评分系统具有分队计时限时，统计裁判打分并计算最后得分的功能三．总体设计结构和功能（1）.结构流程图（2）程序模块和程序代码Private Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" ThenMsgBox "对不起，用户名与密码不能为空！", vbInformation, "输入错误"Exit SubEnd IfIf Text1 = "tuqianbiao" And Text2 = "123456" ThenMsgBox "恭喜你，登录成功!"Form1.HideForm2.ShowElseMsgBox "密码或用户名错误！请您重新输入!" Text2 = ""End IfEnd SubPrivate Sub Command2_Click()Text1 = ""Text2 = ""End SubPrivate Sub Picture1_Click()End SubPrivate Sub Label2_Click()End SubPrivate Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.ShowEnd SubPrivate Sub Command3_Click() Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.ShowEnd SubPrivate Sub Command4_Click() Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.HideForm15.ShowEnd SubPrivate Sub Command6_Click() Form3.Text1 = Form4.Text1Form1.HideForm2.HideForm3.ShowForm4.HideEnd SubPrivate Sub Command7_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.Showbel5.Caption = Form7.Text1.Text bel6.Caption = Form7.Text2.Text bel7.Caption = Form7.Text3.Text End SubPrivate Sub Command8_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.ShowEnd SubPrivate Sub Command9_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.Showbel4 = Form9.Text1.Text bel6 = Form9.Text2.Text bel10 = Form9.Text3.Text bel11 = Form9.Text4.TextEnd SubPrivate Sub Label10_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.ShowEnd SubPrivate Sub Label3_Click()Form1.HideForm2.HideForm3.HideForm4.ShowEnd SubPrivate Sub Label5_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.ShowEnd SubPrivate Sub Label7_Click() Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.ShowEnd SubPrivate Sub Label9_Click() Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.ShowEnd SubPrivate Sub Command1_Click() Form1.HideForm2.ShowForm3.HideForm4.HideEnd SubPrivate Sub Text1_Change() Text1.Text = Form4.Text1.TextEnd SubPrivate Sub Command1_Click() Text1 = ""End SubPrivate Sub Command2_Click() Form1.HideForm2.ShowForm3.HideForm4.HidePrivate Sub Picture1_Click()End SubPrivate Sub Command1_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEnd SubPrivate Sub Form_Load()Label3.Caption = Form6.Text2.Text Label5.Caption = Form6.Text4.Text End SubPrivate Sub Command1_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command2_Click() Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideEnd SubPrivate Sub Command1_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Private Sub Command2_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideEnd SubPrivate Sub Command1_Click() Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideEnd SubPrivate Sub Command1_Click() Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command2_Click() Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideEnd SubPrivate Sub Command1_Click() Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideEnd SubPrivate Sub Command1_Click() Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.ShowEnd SubPrivate Sub Command2_Click() Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideEnd SubPrivate Sub Command1_Click()t = Form11.Text1.Textm = tbel3.Caption = t & "秒"End SubPrivate Sub Command10_Click() t = Form11.Text5.Textm = tbel3.Caption = t & "秒" End SubPrivate Sub Command11_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Command12_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Command13_Click() Timer2.Enabled = TrueEnd SubPrivate Sub Command14_Click() Timer2.Enabled = FalseEnd SubPrivate Sub Command15_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideEnd SubPrivate Sub Command16_Click() If (Timer1.Enabled = True) Then Timer1.Enabled = FalseTimer2.Enabled = TrueElseTimer1.Enabled = TrueTimer2.Enabled = flseEnd IfEnd SubPrivate Sub Command17_Click() Timer1.Enabled = FalseTimer2.Enabled = FalseEnd SubPrivate Sub Command2_Click()t = Form11.Text2.Textbel3.Caption = t & "秒" End SubPrivate Sub Command3_Click()t = Form11.Text3.Textm = tbel3.Caption = t & "秒"End SubPrivate Sub Command4_Click()t = Form11.Text4.Textbel3.Caption = t & "秒"End SubPrivate Sub Command5_Click()t = Form11.Text5.Textm = tbel3.Caption = t & "秒"End SubPrivate Sub Command7_Click()t = Form11.Text2.Textbel3.Caption = t & "秒"End SubPrivate Sub Command8_Click()t = Form11.Text3.Textbel3.Caption = t & "秒"End SubPrivate Sub Command9_Click()t = Form11.Text4.Textbel3.Caption = t & "秒"End SubPrivate Sub Form_Load()Label2.Caption = "请注意时间限制哦！"Private Sub Timer1_Timer()If (t > 0) Thent = t - 1bel3.Caption = t & "秒"If (t < 0 Or t = 0) ThenTimer1.Enabled = FalseMsgBox ("时间到!")End IfIf (t < 10) ThenTimer3.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub Timer2_Timer()If (m < 10 Or t < 10) ThenTimer3.Enabled = TrueEnd IfEnd SubPrivate Sub Timer3_Timer()If (t < 10 And Timer1.Enabled = True) Then If pickbmp = 0 ThenForm12.Image1.Picture = Image2.Picture Form12.Image2.Picture = Image3.Picture Form12.Image3.Picture = Image1.Picture pickbmp = 1Elsepickbmp = 0End IfEnd SubPrivate Sub Command1_Click()Text11.Text = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) End SubPrivate Sub Command2_Click()Text12.Text = Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9) + Val(Text10) End SubPrivate Sub Command3_Click()Form1.HideForm2.ShowForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideEnd SubPrivate Sub Command4_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm14.ShowEnd SubPrivate Sub Command1_Click()If Val(Form13.Text11) > Val(Form13.Text12) Then bel3 = bel4bel4 = bel6bel6 = bel10bel7 = bel11Elsebel3 = bel10bel4 = bel11bel6 = bel4bel7 = bel6End IfEnd SubPrivate Sub Command2_Click()Form1.HideForm2.HideForm3.HideForm4.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.ShowForm14.HidePrivate Sub Command1_Click()Form1.HideForm2.ShowForm3.HideForm5.HideForm6.HideForm7.HideForm8.HideForm9.HideForm10.HideForm11.HideForm12.HideForm13.HideForm14.HideForm15.HideEnd Sub 四．运行结果五．总结1.系统的特点界面美观图文并茂操作较为简便提示较为清晰设计生动2.不足：部分地方使用有缺陷3.待改善的地方：资源待丰富，功能有待完善，使用有待简化通过这个大作业，自动动手编写程序，使我对课本上的知识有了一个更深层次的了解，是我对vb面向对象编程有了一个比较全面的理解，大大的吸引了我学习语言的兴趣。

VB答辩要求

《计算机软件技术基础》课程设计答辩要求（适用于VB/VC）1、学生答辩前应将所有材料上传到服务器自己的文件夹下（包括报告电子档、源程序等，注意正确命名文件）。

2、学生按指定时间到指定机房进行答辩。

虽然安排的时间是大概时间，但是不需要提前也不能滞后。

3、学生准时到达指定机房后，班长组织学生按学号依次坐好，学生将装订好的报告及考试证放在机器旁，并安装好自己的程序（必须包括源程序）。

4、教师将依次对每个学生进行答辩，答辩中将检查设计报告，程序执行情况及源程序，并提出问题。

5、在答辩过程中，其他学生要坐在自己的座位上，不要围观。

6、因为学生很多，教师答辩的过程非常紧凑，学生应按上述要求做好准备。

7、教师答辩到学生时，如果由于学生个人原因无法正常答辩的（程序无法打开、报告未带、程序未安装好等），教师不再等待，直接答辩下一个学生。

耽误的学生只能在所有学生答辩完成后进行补答，补答的学生成绩将做降档处理。

VC课程设计的答辩与VB有所不同：VB是一个教师对整班的所有同学进行答辩，一般能估计出自己大概在什么时间答辩。

而VC则是每个教师只对选择了自己题的学生进行答辩，根据选题的情况不同，需要等待时间也不尽相同。

所以学VC 的同学们要在座位上耐心等候答辩教师的到来。

友情提示：1、因为是全体答辩，时间紧任务重，老师很可能不能当场给出准确的分数，事后会进一步对设计结果进行分析以给出准确得分。

2、在所有答辩完毕后，会对所有同一个题目的设计结果进行比对（计算机自动处理），对程序报告疑似雷同的设计进行分析（人工核对），确认抄袭后以做弊论处，所以务必按照要求对文件进行命名！3、上传后的文件自己能看到文件名但不能打开也不能改名，如果已经上传错了，需要再改成符合要求的名字重新上传（例如原始文件名为“39-113939-学算术.FRM”，重新提交时可改为“39-113939-学算术(最新).FRM”，如果还有错，可以增加“最”的个数），因为原来的错误文件不能删除，最好写一个说明文件，指出最新的文件版本。

VB课程学习第十五课

一、在窗体中定义过程与函数用private定义的过程与函数只能在本窗体中使用用Public定义的过程与函数能够在本工程的所有模块中使用省略private或public时，是表示public在其它模块中使用本窗体的全局过程或函数时的格式：<窗体名>.<方法名>[<参数列表>]或<窗体名>.<过程名>[<参数列表>]二、在标准模块中定义过程与函数用private定义的过程与函数只能在本模块中使用用Public定义的过程与函数能够在本工程的所有模块中使用省略private或public时，是表示public在其它模块中使用本窗体的全局过程或函数时的格式：<方法名>[<参数列表>]或<过程名>[<参数列表>]注意：不需要在前面写上模块名三、在多个工程中共享模块打开工程→“工程”菜单→“添加模块”→现有模块四、变量作用域1、全局变量（no1）全局变量是在模块的通用声明部分，用public声明的变量。

作用域为本程序的所有模块。

生存期为本工程的生存期。

如果是定义在窗体模块的全局变量。

在使用时，要在变量前加上窗体名称。

如：在窗体form2上定义一个全局变量public x as integer我们就在可以窗体fom1上使用全局变量x,使用方法。

Y=form2.x定义在标准模块中的全局变量，在使用时不需要在变量名前加前缀2、模块级变量模块级变量是在模块的通用声明部分，用dim或private语句声明的变量。

作用域为限于它们所在的模块的任何位置，但是不能被其它模块所使用。

生存期为本模块的生存期(no2)3、局部变量局部变量是用dim声明在函数或过程中的变量。

作用域局限于各自所在的过程或函数。

生存期为本过程或函数被执行的一瞬间（形参也是局部变量）（no3）4、当不同作用域的变量同名时，局部变量将屏蔽模块级变量和全局变量，模块级变量将屏蔽全局变量。

VB期末报告答辩

VB期末報告大家來找碴
五資三甲 9511561034
蔡孟翰
目錄
• 流程圖 • 執行程式 • 獎勵 • 結尾 • 心得 • 幫忙我的同學
第一關
流程圖
執行程式第二關
第三關
要看找碴完成圖
結束
完成圖
執行程式
顯示還剩下錯誤的數量
開始後每找到一個
就減一個
顯示時間開始之後會開始倒數
法！
幫忙我的同學
有侯臣頤李正杰這兩位同學！
按了開始就會開始遊戲
按結束就會結束
獎勵
當到了第三關以後每破一關都會出現獎勵
結尾
當破完第五關時，先出現獎勵，看完獎勵時，
出現一個對話框，問你要不要看最後完成的圖，
要就跳到第三張圖，按完整圖就可以看了！如果不要，就直接結束程式！
心得
當老師說要找期末程式來報告，我真的不知如何是好，後來我就直接自己做，但是也做不出來，但是在朋友同學的幫助下，終於完成了，在做的過程中，發現VB6跟VB9真的有差異，現在我也慢慢瞭解到哪些東西需要用哪個語

VB在考核答辩会上的妙用

办法详见后面的代码。这里有一个计时快结束时，有出现声
音提示的功能．主要调用 ”ｗｉｎｍｍ．ｄｌｌ ”中 ”ｓｎｄＰｌａｙＳｏｕｎｄＡ ”
函数来实现这个功能，把这个函数及所使用的常量定义下公

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝”０９ ”
ＥｎｄＩｆ
以下省略Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝８至０的处理方式
Ｄａｔａｌ＿Ｒｅｃｏｒｄｓｅｔ．ＭｏｖｅＦｉｒｓｔＥｎｄＩｆＥｎｄＳｕｂ
考核答辩的操控按钮。２个Ｔｉｍｅｒ控件，分别命名为Ｔｉｍｅｒｌ和
Ｔｉｍｅｒ２．设置Ｔｉｍｅｒｌ的Ｉｎｔｅｒｖａｌ设置为５ｍｓ．在Ｔｉｍｅｒｌ＿Ｔｉｍｅｒ
Ｃｏｍｍａｎｄ４．Ｃａｐｔｉｏｎ＝ ”思考两分钟 ”
Ｔｉｍｅｒ２．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ
如图７所示，为考核答辩的界面设计。
Ｃｏｍｍａｎｄ４．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ
Ｉｍａｇｅ１．Ｖｉｓｉｂｌｅ＝ＦａｌｓｅＬａｂｅｌ２．Ｖｉｓｉｂｌｅ＝Ｆａｌｓｅ
（１）Ｄａｔａ控件，用来绑定数据库ｄｂ１．ｍｄｂ，用来为显示题库内
容的Ｌａｂｅｌ控件做引用。（２）４个ＣｏｍｍａｎｄＢｕｔｔｏｎ按钮，为

VisualBasicNet程序设计教学课件VBNET第15课

? SQL的主要句：
命令.
分类
描述
SELECT 数据查询在数据库中查找满足特定条件的记录
DELETE 数据操作从数据表中删除记录
INSERT 数据操作向表中插入一条记录
UPDATE 数据操作用来改变特定记录和字段的值
CREATE 数据定义在数据库中建立一个新表
DRUP 数据定义从数据库中删除一个表
13
地区模糊查询
14
练习
? 完成示例程序 ? 完成姓名的精确、模糊查询
? “与模糊”按钮显示地区和姓名是“与”的模糊组合 ? “或模糊”按钮显示地区和姓名是“或”的模糊组合
? “全部显示”按钮显示所有的记录，并且令自动浏览有效
15
4
5
添加CustomerDataGridView
? 只显示客户ID、公司、姓名、VIP、地区、照片
6
不需要显示的列移除
7
使用SQL查询数据库
? 结构化查询语言(Structure Query Language，SQL)是操作关系数据库的工业标准语言。通过SQL命令，可以
从数据库的多个表中获取数据，也可对数据进行更新操作。
? 例在客户表中查询华东地区的客户情况：
? SELECT * FROM 客户 WHERE 地区= “华东“
? 注意：“华东”是通过TextBox1输入的，如何在Select 语句中作为参数传递呢?
9
地区精确查询
10
11
代码修改，并将此代码复制到按钮对应的代码中
删除自动生成的代码和控件，考虑：查询时让自动浏览不可用
Visual 程序设计（15）
1
上周回顾
? 状态栏 ? Items属性 ? Autosize属性：False ? 设置每栏的宽度Size属性 ? Load事件：

VB第15题程序题解题方法-浙江省桐庐分水高级中学高三信息技术一轮复习教学设计

《VB第15题程序题解题方法》教学设计
课
题
VB第15题程序题解题方法授课人潘美康
课型新授课课时一课时
授课日2019年12月24日授课班级高三（7）班
一、教学目标
1、结合问题实例，分析归纳第15题第（1）问考试题型。

2、分析程序实例，掌握解答VB大题第十五题的解决方法。

3、自主合作与交流，掌握VB程序中每个变量的含义并用叙述对例题程序的理解。

五、重点难点
重点：第15题第（1）问题目考试知识点、VB大题解题步骤。

难点：VB大题解题方法。

六、教学过程
教学
环节
教师活动学生活动设计意图
任务引入希沃软件引入本堂课解决的任务是：技术三第15
题解题步骤。

布置任务一：学生自主审题，首先解决第（1）问
题目，并归纳题型。

自主做题归纳题型，争取拿分
归纳题型从以下几方面归纳题型
（1）事件名、对象名、事件处理过程名
（2）赋值语句（对象名、属性名、属性值）
（3）定义变量、溢出错误等
（4）窗体对象、界面对象
（5）函数名
记忆、记录归纳题型，帮助理解
讲解
解题
思路
按照以下步骤讲解题目
根据教师操作
步骤，理解题
目
归纳解题步骤，帮助
理解程序大题
学生
讲题
指导学生根据上课讲授步骤，用自己的理解方式讲
解此题目。

准备讲解此题
学生自主讲解，帮助
内化知识。

总结
与布
置作
业
请其他同学补充学生讲解的内容，并再次归纳做题步骤。

VB计算机等级考试管理系统论文及毕业设计答辩稿

从技术可行性角度分析,本系统采用的是Access数据库和Visual Basic 6.0编程,所需要的计算机软硬件性能并不是很高,且易于开发,现有的技术条件完全能够达到系统目标所提出的要求；
从经济可行性角度分析,本系统的经济效益以及因此带来的高效率要远远超过它的开发成本；
从操作可行性角度分析,凡是参加计算机等级考试的考生,必然具有一定的计算机基础操作能力,所以简单的登陆以及查询不是问题,而对于管理员,由于VB是一门简单易学的面向对象的编程语言,Access是一个简单实用的数据库管理系统,因此作为系统开发工具, 可以很轻松地完成考试管理的各项任务且易于操作.
级别
按按按按按
准报年院准
考考级系考
证级
证
号别
号
这是计算机等级考试管理系统的报名界面.
这是考生的报名界面, 主要填写考生自身的信息以及报名信息.
总结
通过本次设计,我学到了不少东西.不但对VB 6.0这一开发工具有所掌握,更重要的是对进行软件设计的整体设计流程及思维方法有了深刻的认识. 在整个设计过程中,徐善针老师不论是在理论还是在实践上,都给予了我耐心而又细致的指导.在此特向徐善针老师表示深深的谢意.
B/S模式体系结构图：
系统功能模块图
报名管理
计算机等级考试管理系统考场管理
成绩管理
考考考网生打打考考统考考考网
生生生上成印印场场计生生试上
信信信报准准座信信报成成成成
息息息名考考位息息名绩绩绩绩
录查统查证证号录查费录查统查
入询计询号
入询
入询计询
按按按按按学报年院学号考级系号级别按按按考报院场考系
计算机等级考试管理系统 --报名管理

VB学生信息管理系统论文及毕业设计答辩稿

系统功能设计
本系统的主要任务是实现对学校教导处的学生信息管理、成绩管理、课程管理及相关查询.其主要功能包括：
1、学生信息管理功能班级管理.提供给班主任进行本班学生的信息更新、删除. 添加学生.以班级为单位,进行学生入库.其中分为单个添加和成批添
加.单个添加学生供数量较少的学生信息入库；成批添加可以从现存的学生信息EXCEL文件中成批录入到数据库中. 删除学生.当学生毕业后,学生信息转移备份数据库中,系统的基本数据库中需要删除学生信息.该功能主要进行成批地删除学生信息, 如连续学号区段的多位学生信息删除,整个班级的删除,所有学生信息的删除. 新生管理.本部分的功能主要有新生导入、分班、及设置学号.新生导入实现从现存的EXCEL新生名单中录入学生信息.分班功能实现按新生的报考专业、成绩及性别进行分班.设置学号实现自动为各班学生编发学号. 学生信息备份.在学生信息删除前,将其按班级为单位保存到备份数据库.
谨在此感谢我的指导教师***老师,以及给我提供无私帮助、支持的老师们,让我衷心对你们说声：谢谢！
系统数据流图
数据库设计
本系统涉及到的信息主要有5类：学生信息、成绩信息、教师信息、图书信息、后备信息.由于成绩信息和教师信息与学生信息关系密切,因此将这三类信息存放在同一数据库中,以提高多种信息同时读取的速度. 按以上分析,将系统的数据库设计为三个：一、学生数据库：该数据库为中包含有以下各表： 1、学生表：记录学生的基本信息,是进行学生及其它各类信息处理的基础. 2、成绩表：记录学生的期中、期末及总评的各科成绩. 3、总分表：记录学生的期中、期末及总评的总分及名次. 4、课程表：记录各专业各年级开课情况,在添加学生记录时,可根据该表的情况决定在成绩表添加学生记录的个数.

VB答辩

成绩评定表课程设计任务书”控件的应用的应用”控件的应用的应用的应用目录一、题目内容的描述 (1)二、使用过程含义及数据类型 (1)三、应用程序功能的详细说明 (2)四、主要模块的算法与步骤描述 (2)五、运行结果 (5)六、结束语 (6)七、程序的源代码清单 (7)一．题目内容的描述使用“MediaPlayer”控件、“DirListBox”控件、“DriveListBox”控件、“FileListBox”控件、“Frame”控件、定时器控件、“Labe l”控件、“CommandButton”控件，程序功能要求可以对MP3格式文件进行“播放”、“暂停”、“停止”操作，同时显示播放时间和歌曲名称。

通过操作，工程运行界面如下：二．使用过程含义及数据类型1.使用过程此课程的设计应用了Sub的两个过程中的通用过程。

通用过程是具有一定功能的独立程序段。

如果有重复编写的代码段，可以将这些代码段用通用过程来实现。

通用过程将应用程序单元化，更便于维护和管理。

语法：Private Sub过程名[局部变量和常数声明]语句块[Exit Sub]语句块End Sub说明：（1）Private：用来声明该Sub过程是局部的（2）过程名：与变量名的命名规则相同。

在同一模块中，同一名称不能既用于Sub过程又用于Function过程。

（3）局部变量和常数声明：用来声明在过程中定义的变量和常数。

可以用Dim等语句声明。

（4）Exit Sub：使执行立即从一个Sub中退出，程序接着从调用该Sub过程语句的下一句继续执行。

（5）语句块：过程执行的操作，称为子程序体或过程体。

（6）End Sub：用于结束本Sub过程。

三．应用程序功能的详细说明本课题主要是将“MediaPlayer”控件,定时器控件,“CommandButton”控件等进行组合运用，使窗体能够播放MP3音频文件。

“DirListBox”控件和“DriveListBox”控件用来查找MP3文件，“FileListBox”控件用来显示文件夹中的文件清单，两个清空的“Label”控件分别显示歌曲名和播放时间，通过四个“CommandButton”控件分别对MP3文件进行播放,暂停，停止，关闭等操作。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

1. 程式碼
15-3.1 計數式迴圈For...Next
2. 由於變數 i 每次加 1，所以 Total = Total + i 相當於
所以便能達到我們想要計算1 + 2 + 3 + ... + 100之值的目的。
15-3.1 計數式迴圈For...Next
計算1到100的奇數和（For...Next增加值為2）請利用 For...Next 敘述撰寫一個「計算1到100奇數和」的程式。【範例檔案：1到100奇數和.frm】
15-4 認識陣列
當程式中需要儲存一個資料時，我們可以指定一個變數來儲存它，但若要同時儲存或處理20個甚至更多相同性質的資料時，便可考慮改以陣列(array)的方式來儲存與使用資料。
15-4.1 一維陣列
一維陣列可看做是一系列有順序的記憶體空間，當我們宣告一個一維陣列時，程式會保留記憶體中的一塊位置並將之規畫為有順序的記憶單元，程式設計師則可透過陣列索引(index)來指定要存取的記憶空間。
15-3.1 計數式迴圈For...Next
當程式中某個敘述區段要重覆執行的次數是固定且可計數時（例如重複執行某程式片段100次），這類已知起始值，每執行一次增減多少，一直到超過或等於終止值才停止的問題，都可以使用 For...Next 敘述。
15-3.1 計數式迴圈For...Next
15-3.1 計數式迴圈For...Next
下面是二個後測式迴圈的簡單範例。此外，仔細觀察這四個例子會發現，前測試迴圈與後測試迴圈最大的差異處在於：
–前測試迴圈：可能連一次也不執行迴圈內的敘述。 –後測試迴圈：最少會執行迴圈內的敘述一次。
15-3.3 條件式迴圈 Do...Loop
計算1到100的總和（Do...Loop While）請利用 Do...Loop While 敘述撰寫一個「計算1到100 總和」的程式，如下圖。
15-2.2 巢狀 If...Then...Else
15-2.2 巢狀 If...Then...Else
15-2.2 巢狀 If...Then...Else
求最大值（巢狀IF...Then...Else）請撰寫一個「求最大值」的程式：使用者透過輸入方塊輸入三個數字A、B、C，程式處理後再以訊息方塊顯示三者的最大值。【範例檔案：求最大值.frm】
15-4.1 一維陣列
例如當我們要在VB中儲存10筆整數資料時，只要宣告一個整數陣列即可，並不需要宣告10個名稱不同的整數變數。
15-4.1 一維陣列
15-4.1 一維陣列
15-4.1 一維陣列
15-4.1 一維陣列
氣泡排序實作（一維陣列的應用）請開啟未完成的範例檔案「氣泡排序.vbp」，並為「排序」鈕撰寫事件程序，使其當使用者輸入5個數字並按下「排序」鈕後，程式會顯示排序後的數字。
15-3.2 巢狀 For...Next
由程式中可以看出，當 i = 1 時，j 依序由 1 至 9，當 i = 2 時，j 一樣依序由 1 至 9，如此重複下去直到 i = 9 。另外程式中二個Print指令的目的是，當 j 跑完一個輪迴時（剛好是一行），讓游標換行並空一行。
15-3.2 巢狀 For...Next
【範例檔案：1到100總和DoLoopWhile.frm】
15-3.3 條件式迴圈 Do...Loop
計算1到100的總和（Do...Loop Until）利用 Do...Loop Until 敘述撰寫一個「計算1到100總和」的程式。【範例檔案：1到100總和DoLoopUntil.frm】
15-3.3 條件式迴圈 Do...Loop
條件式迴圈可重覆執行某一程式區段，至於重覆的次數則視設定條件是否符合而定。其中：
–前測式迴圈：先作測試再決定是否執行迴圈。 –後測式迴圈：先執行一次迴圈敘述後再行判斷是否重
覆執行。
15-3.3 條件式迴圈 Do...Loop
15-3.3 條件式迴圈 Do...Loop
1. 循序結構：到醫院看病時要依序「掛號」→「候診」 →「醫生診療」→「開處方」→「批價」→「領藥」。
15-1 結構化程式設計的概念
2. 選擇結構：速食店的員工詢問顧客要點幾號套餐，並依顧客所點之餐號準備相關餐點。
3. 重複結構：電玩遊戲終
15-2.1 具判斷力的 If...Then...Else
15-2.2 巢狀 If...Then...Else
應用 If...Then...Else 敘述可以處理許多單純的選擇性問題，但有時候我們的設定條件可能不只一個，例如「如果有很多人就叫Pizza來吃，如果3到4個就點炸雞全家餐，如果只有一個人就叫便當」，或是「如果分數在80分以上為優秀，介於60到80分為尚可，60以下為極待加強」，這時就必須要使用巢狀 If...Then...Else 敘述才能解決。
Chapter 15 VB程式進階
15-1 結構化程式設計的概念 15-2 VB中的選擇結構 15-3 VB中的重覆結構 15-4 認識陣列
15-1 結構化程式設計的概念
對於程序式語言來說，在開發時會從上而下將程式分解成許多模組（即一個個的小程式），並使每一模組分別負責一件獨立的工作，如此即可簡化大型程式的複雜性，這樣的設計觀念稱為結構化程式設計 (structured programming)。
15-2.3 多重選擇 Select...Case
15-2.3 多重選擇 Select...Case
15-2.3 多重選擇 Select...Case
15-2.3 多重選擇 Select...Case
改寫成績分級（Select...Case）請利用 Select . . .Case 改寫「成績分級」的程式，使成績區分為更多等級（100、97∼99、80∼96、60∼79 、0∼59、其他），並分別顯示不同的回應訊息。
15-3.1 計數式迴圈For...Next
這個程式唯一的差別在於，為了只計算奇數之和，變數 i 必需每次加 2，這可以利用程式碼 For i=1 To 100 Step 2 來達成，如此 Total = Total + i 便相當於
所以便能達到我們想要計算1到100之奇數和的目的。
15-3.1 計數式迴圈For...Next
【範例檔案：改寫成績分級.frm】
15-2.3 多重選擇 Select...Case
15-2.3 多重選擇 Select...Case
15-3 結VB中的重覆結構
重複結構又稱迴圈，不需要一直撰寫重複的程式碼，就可以重複執行某段程式，而且可以很方便地設定起始或停止的條件，並有效地控制程式執行的流程。 VB中主要提供 For...Next 以及 Do...Loop 二種重複，以下亦將簡單介紹其觀念與應用方式。
計算1到100的總和（For...Next）請利用 For...Next 敘述撰寫一個「計算1到100總和」的程式。【範例檔案：1到100總和.frm】
15-3.1 計數式迴圈For...Next
在這個程式中，我們首先宣告一個整數變數 Total 用以存放加總後的結果，並藉由 Total = 0 設定其初始值為 0，然後省略 STEP 敘述表示增加值為 1，即控制變數 i 每次加 1 直到 i = 100，所以這個迴圈會執行 100次。
15-2.1 具判斷力的 If...Then...Else
If...Then...Else 結構
顧名思義就是「如果⋯就⋯否則⋯」的意思。例如「If 明天是個好天氣 Then 去陽明山賞楓 Else 在家看電視」或是「If 分數 >= 60 Then Print "成績及格" Else Print "成績不及格"」等，都是 If...Then...Else 結構的例子。
15-2 VB中的選擇結構
撰寫程式時也是一樣，如果程式只能由上而下循序執行而不具備「選擇」的能力，將會使程式的功用受到限制。因此VB提供了「If . . .Then. . .Else」以及「 Select...Case」二種選擇結構，藉此可以執行各種判斷並執行相關處理，使程式撰寫更加靈活有彈性。
15-2.1 具判斷力的 If...Then...Else
15-2.1 具判斷力的 If...Then...Else
計算工讀生薪水（IF...Then...Else）請撰寫一個「計算工讀生薪水」的程式：當工作時數小於等於40小時，每小時的薪水為100元；若超過40 小時，則超過的部分每小時再加發20元加班費，如下圖。【範例檔案：工讀生薪水.frm】
下面範例也是同樣的原理，只是我們將條件式改為 Do Until i = 101。
【範例檔案：1到100總和 DoWhileLoop.frm】
15-3.3 條件式迴圈 Do...Loop
15-3.3 條件式迴圈 Do...Loop
15-3.3 條件式迴圈 Do...Loop
15-3.3 條件式迴圈 Do...Loop
For...Next 的初始值與增加值這個範例說明 For...Next 敘述的初始值沒有正負限制，增加值也可以是非整數。【範例檔案：初始值與增加
值.frm】
15-3.2 巢狀 For...Next
一個 For...Next 結構之中也可以再包含一個或數個 For...Next 結構，我們稱之為巢狀 For...Next。下面的例子，便是利用二層迴圈建立的「九九乘法表」。九九乘法表（巢狀 For...Next）請利用使用巢狀 For . . .Next 結構在表單上建立「九九乘法表」。【範例檔案：九九乘法表.frm】
15-1 結構化程式設計的概念
由於這些模組都只有一個入口以及一個出口，不但有助於程式偵錯，而且程式整體流程也會變得更加容易閱讀與修改。其中每一模組通常由下列三種結構組成：