VB程序设计实践总结

第一篇：VB程序设计实践总结

VB程序设计实践总结

现代技术中心何亮

本期从事VB程序设计实践教学工作。在工作中和工作之余，思考颇多，精简总结归纳如下：

1.教学辅导方式的多样化

由于程序语言课程相对于上期的计算机文化基础课程要难很多，需要学生理解的也多，况且基础知识薄弱，因此，学生的疑难问题特别多，而上课时间有限，我采取了三中方式及时的解决学生的问题：①教务办公系统“网上答疑”；本学期共收到学生提问100多条，并及时给予答复；②在线答疑；利用空闲时间，通过QQ，与有疑难的同学进行在线答疑，不光解答学习问题，同学对学生思想生活进行教导，收效甚好；③安排定点不定时的方式答疑；每周星期二，星期三晚上有专门的老师和学生助教辅导学生完成项目，解答项目重点疑难。

2.课堂讲授的多样化

由于程序设计语言非常抽象化，许多知识点需要讲解具体的实例才能让学生易于理解；同时了，由于老师的讲解和理解方法可能和学生的理解有所出入。因此，为了便于学生更好的理解知识，我在教学过程中采取了以下一些方法：①明确任务，先讨论学习，后讲解加深；我在每堂前让学生明确该堂课的学习任务，然后以小组为单位，通过上网，翻书，讨论学习任务；然后再根据学生反馈的信息，精讲多练；②眼，手，耳并用，提高动手能力；由于VB程序设计涉及很多的对象操作，因此，我在课堂中适时的给学生播放一些“学习视频”影片，让学生边听，边看，并操作，这样的方法比老师操作和讲解效果更好；③学生助教讲课，气氛活跃，学生易接受；为了更好的推广“赏识教育”，鼓励学生努力学习，我特别把学习好的同学聘请为学生助教，适当的给予机会讲解一些知识点，以他们的语言，他们的理解方式讲解出来，学生理解快，掌握好，更易于接受。

3.知识框架的系统化和延伸

大家都知道，现在学校里学习的知识和社会上用到的知识相差很远，很多学生学习了很多知识，可到了社会上去无从下手。鉴于此，我在课堂上适当的延伸该课程的相关知识。比如，在开发一个成熟的管理信息系统时，我让学生试着写系统需求说明书，软件设计说明书等，同学明确的给学生提出软件开发的基本流程，以及一些软件工程的知识和数据库的知识。最后，还教学生使用一些安装程序制作软件，掌握些社会工作的技能。这样，扩展了学生的知识面，掌握了更多的技能，学生兴趣更高，学习积极性也非常好。

同时，在教学过程中，从学生的信息反馈发现自己有以下一些问题做的不好：

1.知识点细节把握不够，让学生思考的东西过多；

2.知识点讲解和延伸过多，不易于掌握；

以上是我本期教学工作中的创新和探索，如有不妥之处，请领导给予及时的指出，我将在以后的教学中改正。

第二篇：VB程序设计课程设计

VB程序设计课程设计

1、目的

VB程序设计课程设计是考察学生对VB程序设计课程相关知识点掌握情况的重要环节，也是激励学生进一步学习VB、提高运用VB开发实际计算机程序的能力。课程设计的重点在于学生利用VB开发程序的能力。

2、课程设计题目

学生信息管理系统

3、程序功能

该程序具有建立数据库，建立数据库表，添加数据，删除数据，查询学生每学期成绩、不及格情况、积点情况等相关信息的功能。

4、实现要求

每个学生建立一个数据库（名字自拟），数据库中建立学生基本信息表（学号、姓名、性别、出生年、出生月、出生日、联系电话、年级、班级、住址等）、学生成绩表（学号、课程号、成绩、学期等）、课程信息表（课程号、课程名称、出版社、出版日期、版次、页码、价格、课程类型（基础课、专业基础课、选修课等）、开课学院等）。

把课程信息、每一学期的成绩等分别输入相应的表中，其中学生基本信息表记录不少于5个学生的信息。

在以上数据的基础上，实现相关的程序功能（不仅仅第3条指定的功能）。

设计多界面程序，相关查询结果应由不同的界面显示，每个同学显示结果的形式应尽量不同。

5、考核

根据学生实现程序功能多少（40分）、界面设计情况（20分）、课程设计报告撰写情况（20）、答辩情况（20分）进行考核。雷同者应重做。

6、课程设计报告内容

1）课程设计题目

2）课程设计的目的3）程序功能介绍

4）程序界面设计与控件属性设置

5）程序代码编写

6）程序演示（将运行过程用截图方式截下来，并对输入数据、输出的结果进行适当说明）

7）课程学习与课程设计心得体会

7、上交材料

本次课程设计以小班为单位上交如下资料：

1）光盘：每一小班建立一个目录（专业年级班级），在此目录下建立每个同学的目录（学号姓名），在每个同学的目录下保存该同学的电子版的课程设计报告、打包的程序。

2）纸制版的课程设计报告

第三篇：vb程序设计方法

发表于《中小学信息技术教育》杂志2005年第7期 VB程序设计方法——今天我来做导演！

教学目标：

1、知道创建一个VB程序的基本步骤

2、了解窗口、事件和消息的含义

3、培养学生的自主探究精神

教学重点和难点：

1、窗口，事件和消息的关系

2、属性的设置

3、代码的输入

学生分析：

高一学生，已经学习了程序的三种基本结构，能辨别三种结构，但不会自己书写程序。对VB基本上一无所知。

教学方法：

采用主动式任务驱动的教学方法，通过创设情境，激发学生对VB的兴趣,使学生产生动手做一个VB程序的欲望.在布置任务的时候,不是教师指定完成什么任务,而是由学生自己提出想完成一个样的任务，即想做一个什么样的VB程序，因为任务是学生自己提出来的,所以学生肯定感兴趣的,这就避免了教师布置的任务不能照顾到全体学生装的弊端.而教师作为引导者和技术帮助者,帮助学生一步步地完成任务，引导学生分解任务，分解为界面的创建，属性的设置，代码的输入等几部分。在实践过程中，使学生掌握用VB进行程序设计的步骤和方法。

教学过程：

一、激趣引入

师：上节课中我们演示了一个抛硬币的VB小程序，大家还有印象吗？（教师演示这个程序）师：下面我再来演示几个其他VB小程序（教师演示若干个趣味小程序，如，和刘德华对话，井字棋，心情好吗，挖地雷，单选复选框与字体，测验记忆力，弹球游戏，剪刀包袱，在演示过程中，让学生注意鼠标单击按钮，或者鼠标移动，窗口上会有什么反应）

师：窗口——舞台，事件——导演的命令，反应——演员的表演，控件——演员（以对比方式说明它们之间的关系，让学生明白，需要哪个演员（控件）作出什么表演，要对这个演员（控件）发号施令，导演不能瞎指挥，不然表演要乱套的。）

师：有了舞台，演员，导演在哪儿呢？导演就是你！今天就是请大家当一回导演（出示课题：今天你来做导演！）意图：

1、在演示过程中，提醒学生注意窗口，事件（点击按钮或移动按钮），消息（事件的反应）。

2、激发学生的兴趣，产生自己动手做一个VB程序的欲望。

二、形成任务 大屏幕展示：

一、确定导演的工作目标，即你想要完成一个什么样的VB程序？

老师引导，启发学生，使每个学生能确定自己的目标，即要完成一个什么样的VB程序，即名称是什么？功能是什么？……。（对于不能确定的学生，建议参考老师演示的例子，从中选择一个自己感兴趣的）

意图：这是很重要的一个过程，要很好地引导学生，使学生清楚地知道自己的任务，即自己要做什么？

三、分解任务

（以演示中的一个小例子，来说明如何完成一个VB程序）大屏幕展示：

二、导演如何完成任务？

师：导演正式上任了，大家都胸有成竹了，明确了要做一个什么样的VB程序，首先做什么呢？

1、界面的设计（舞台的布置）师：一个程序，你最先看到是什么？

师：舞台如何布局？演员如何选取？窗口如何布局？上面要放哪些东西？这些东西怎么放比较好看？……

意图：引导学生从界面设计入手，学会用控件来输入文字，图片，通过对文字的修饰，图片的插入，引入属性的设置，突破这个难点。

2、如何让对象动起来？

师：窗口布置好了，舞台拱建好了，演员也到位了，那么让演员如何表演呢？每个演员做什么动作呢？导演发布命令的时候（输入代码）的时候，一定要看清对象，不要乱发命令啊！意图：

引入代码的输入。为节省时间，提供演示程序的代码，避免自己书写代码。

四、动手实践

师：各位跃跃欲试的导演们，按照自己刚才确定的任务，动手来完成自己的第一个VB小程序吧！可能问题：

有些学生在输入代码的时候，为分不清代码需要给哪个控件加上，这时一定要让学生明白，导演的指令必须是针对某个演员发的，不能乱发。对于学生碰到的问题，老师做好技术指导工作。

五、评价交流（展示学生作品，交流评价）

师：不同风格的导演设计的效果是不同的，让我们来欣赏一下各位导演的作品吧 意图：

通过电子教室软件，转发一些小组完成的作品，能过交流了解其他同学的制作成果，吸取他人经验

提醒学生在程序中加入制作人信息，即导演的信息，有初步的版权意识

有些学生可能设计的任务比较大，在课内无法完成，则鼓励在课后继续完成，作为拓展作业。

五、总结

师：各位导演感觉如何？做一个导演不容易吧，做一个好的导演更不容易。创建一个VB程序的基本步骤：界面设计，属性设置，代码输入。

导演有大有小，但是基本工作是一样的，就是上面这些步骤，今天我们是小导演，明天我们可能是大导演，期待欣赏到同学们的大作！意图：回顾过程，总结提高。

附：学案

今天我来做导演

——ＶＢ程序设计方法

一、明确目标

身为导演，最重要的一件事，就是明确自己的目标，请确定你的目标，即你想做个什么样的VB程序？

提示：如果一时之间想不出来，可以参考老师演示的例子

二、设计舞台（界面的布局）

１、如果你想在窗口上输入文字，方法如下：

（１）用鼠标选择左边工具栏中的“ＬＡＢＥＬ”标签

（２）在窗口上拖出一个大小合适的矩形（矩形的大小可以用矩形边上的八个小方块进行调整）

２、如果你想插入一张图片，方法如下：

（１）用鼠标选择左边工具栏中的“ＩＭＡＧＥＳ”标签

（２）在窗口上拖出一个大小合适的矩形

３、如果你想在窗口上增加一个按钮，方法如下：

（１）用鼠标选择左边工具栏中的“ＢＵＴＴＯＮ”标签

（２）在窗口上拖出一个大小合适的矩形

４、如果你想在窗口上增加一个文本框，方法如下：

（１）用鼠标选择左边工具栏中的“ＴＥＸＴ”标签

（２）在窗口上拖出一个大小合适的矩形

：），增加其他控件的方法类似，相信自己，试一试！

三、对演员进行分工（属性的设置）

１、如何在窗口上显示文字？

方法如下：

（１）用鼠标选中Ｌａｂｅｌ控件

（２）在右边的属性窗口中找到“Ｃａｐｔｉｏｎ”属性，在右边输入要显示的文字 思考：如何修改文字的字体？颜色？大小？ 提示：修改相应的属性

２、如何插入图片？

方法如下：

（１）用鼠标选中Ｉｍａｇｅ控件

（２）在右边的属性窗口中找到“Picture”属性，点击旁边的省略号按钮，选择要插入的图片

3、如何修改Text显示的文字？ 方法如下：

（1）用鼠标选中Text控件

（2）在右边鼠性中选中Text属性，输入要显示的文字

4、如何修改按钮上显示的文字？ 方法如下：

选中按钮，修改“Caption”属性

四、让演员动起来（输入代码）选择演员，输入想要演员实现的代码

五、检查一下导演工作进展如何？ 方法： 运行、播放

六、你是个合格的导演？还是个优秀的导演？

1、你知道如何做一个VB程序了吗？（知道/不知道）

2、你是个合格的/优秀的导演？（是/不是）

第四篇：VB程序设计期末复习总结[范文模版]

1.timer_Tick事件 在指定的时间里调用此事件，比如设置timer1.interval=10，则表示在一秒内执行10次timer_Tick事件。

2.Label3.Text = Format(x, “00000”)，设置x是一个五位数，不足左侧用零来补。

3.TextBox1.Text = UCase(TextBox1.Text)，将输入的字母转换成大写，用textchanged事件 4.Label1.Font = New Font(“隶书”, 12, FontStyle.Bold)设置字体名：Textbox1.Text.Font.Name = “微软雅黑”。设置字号：Textbox1.Text.Font.Size = 14。设置粗体：Textbox1.Text.Font.Bold = True。设置斜体：Textbox1.Text.Font.Italic = True。设置下划线：Textbox1.Text.Font.Underline = True。设置删除线：Textbox1.Text.Font.Strikethrough = True。Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。Button1.Location = New Point(60,40)等价于：Button1.Left = 60

Button1.Top = 40 6.例如，将Button1控件设置为宽度为80、高度为30。Button1.Size = New Size(80,30)等价于：Button1.Width = 80

Button1.Height = 30 7.Size与clientsize。前者是整个窗体的大小，后者是不含边框的窗体的大小。

8.Cursor属性决定运行时鼠标移动到对象上时，显示出的鼠标指针的图像。其属性值是枚举类型。

9.ControlBox和Icon属性决定标题栏上是否有控制菜单框、设置其图标。默认情况下，ControlBox属性值为True，若设置为False，则不显示控制菜单框，并且不显示最大化 按钮、最小化按钮和关闭按钮。

10.FormBorderStyle属性用于设置窗体边框的样式。其他的BorderStyle属性是用来设置边框格式的。

11.窗体的常用事件。Click事件，在程序运行时单击窗体的某个位置，VB将调用窗体的Form_Click事件过程，如果单击的是窗体内的控件，则只能调用相应控件的Click事件过程。Load事件，当窗体被装入时触发该事件。当应用程序启动时，自动执行该事件过程，因此通常将进行初始化的程序代码写在窗体的Load事件过程中。12.TextAlign属性用于设置文本的对齐方式。Left：正文左对齐，Right：正文右对齐，Center：正文居中。也可用于决定对象的位置。

13.Maxlength属性用于设置文本框中最多能够输入字符的个数。默认情况下，其值为32767。14.ScrollBars属性用于设置水平滚动条和垂直滚动条。当设置水平滚动条后，文本框的自动换行功能将会自动消失，只有按Enter键才能换行。竖直滚动条则正常换行。

15.ReadOnly属性用于设置文本框是否可以编辑。默认值为False，表示运行程序时能对文本框进行编辑。当其值为True时，不能编辑文本框中的内容，但可以选定文本框中的内容。

16.PassWordChar属性设置在文本框中取代用户输入而显示的字符。例如，当设置为“*”时，运行程序时文本框中输入的内容存储在Text属性中，但均以“*”显示。一般用于设置口令。

17.TextChange事件当用户输入新内容或程序将Text属性设置为新值时，文本框的Text属性值发生变化，从而触发TextChange事件。当用户输入一个字符时，就会触发一次TextChange事件。例如，在文本框中输入字符串Basic时，就会5次触发TextChange事件。出发之后开始执行设置程序。

18.KeyPress事件当用户在文本框中按下并释放键盘上的一个键时，就会触发KeyPress事件。与TextChange事件类似。所不同的是，当按下某些键（如方向键）时，文本框的值没有发生变化，此时仅触发KeyPress事件，而不触发TextChange事件。KeyPress事件会返回一个e参数，通过e.KeyChar可以获取按键对应的字符。例如，运行程序时按了字符“A”键，则e.KeyChar的值为“A”。将命令按钮的Text属性设置为“退出(&E)”。运行时，按钮上显示“退出(E)”。当用户按下Alt+E时，相当于单击了该按钮，运行其Click事件过程。

19.Picturebox属性：将图像文件c:examplerabbit.jpg显示在PictureBox1图片框中：PictureBox2.Image=Image.FromFile(“c:examplerabbit.jpg”)20.Picturebox属性：SizeMode属性用于设置图片框中图像的显示方式，属性值有：Normal：默认值，图像保持其原始尺寸、其左上角与图片框的左上角对齐。如果图像比图片框大，则超过部分被剪裁掉；StretchImage：图像被拉伸或收缩，使其与图片框的大小一致；AutoSize：图像保持其原始尺寸、自动调整图片框的大小，使其与图像大小一致；CenterImage：图像保持其原始尺寸、与图片框的中心对齐。若图像比图片框小，图像居中显示；否则，图像居中，而外边缘将被剪裁掉；Zoom：图像大小按其原有的大小比例被缩放，其宽度或高度之一与图片框一致。

21.Vb中变量命名法：必须以字母或下划线开头，由字母、数字和下划线组成，长度不超过1023个字符。如果名称以下划线开头，则必须包含至少一个字母或数字。不能使用VB中的关键字，如：Integer、If等。

22.Boolean类型是逻辑类型，表示true和false。

23.n是十进制/八进制/十六进制整数，八进制在整数前面加&O（是字母O，不是数字0），例如：&O56、&O56S、&O56L。十六进制在整数前面加&H例如：&H56、&HAB12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十进制，前者是因为定义，后两者是因为是浮点数。

24.格式：Mid(s, n[, m])、Left(s, n)、Right(s, n)功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，无m则表示所有自字符。Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。

Mid(b, 2, 1)= 0

✔ Microsoft.VisualBasic.Left(b, 3)= 0

❌ Mid可用于赋值，left与right不可用于赋值。

25.后缀

26.Char类型，用来存储单个字符或汉字，占两个字节。例如：“A”、“0”、“数”等。String类型，表示包含多个字符的字符串用一对西文双引号““”括起来表示例如：”Visual Basic“、”2016“、”G“、” “空字符串”“若表示的字符串中包含双引号“””，则用连续的两个双引号表示。

27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。例如文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为：If InStr(TextBox1.Text, “计算机”)> 0 Then 28.Date类型变量d的值是d = “[8 / 20 / 2009]6:5:4[AM]”

[月日年]时:分:秒[上下午] 29.算术运算符的优先级：指数取负，乘除整除，取余加减（^-*/+-mod）

30.串联运算符“+”运算符既可作为字符串运算符，又可作为算术运算符。当“+”运算符两边操作数都是字符串时，进行串联运算，将两个字符串连接起来，并作为结果。当“+”运算符两边操作数都是数值时，进行加法运算。当一侧是数字字符串，另一侧是数值时，若option strict为on则显示错误，off则正确转化为double运算，默认值为off；当一侧是数值，另一侧是非数字的字符串是，错误。“&”运算符不管两边操作数的数据类型，直接进行连接操作。

31.关系运算符设计比较时注意：两个操作数都是数字则直接比较；都是字符则比较ascll码值；中文最牛逼；比较运算符优先级相同；

32.Like函数的用法：Like运算符与通配符：?、*、#、[字符列表]、[!字符列表]结合使用。其中，？表示任何一个字符，* 表示任意多个字符，# 表示任何一个数字（0~9），[字符列表] 表示字符列表中任意一个字符，[!字符列表] 表示不在字符列表中的任意一个字符。

If b Like “[” & A(m)& “]” Then If Not e.KeyChar Like “[a-zA-Z]” Then 33.当多种表达式同时在一个表达式中出现时，其优先级的顺序如下：

算术运算符＞字符串运算符＞关系运算符＞逻辑运算符

具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。当表达式中包含多个运算符时，使用圆括号，可以改变计算顺序，圆括号内的表达式优先计算。34.35.36.逻辑运算符的功能是对操作数进行逻辑运算（又称布尔运算），其运算结果是逻辑值True或False。Const PI As Single = 3.1415

'声明符号常量。声明一个常量，不一定非得用dim，const也可以

数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数学运算。这些方法可以作为数学函数使用，使用时，在函数名前面加“Math.”。

四舍五入函数，格式：Round(x[,n])。功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56)的运算结果为5，Math.Round(4.56, 1)的运算结果为4.6 字符和ASCII码转换函数，格式：Asc(s)、Chr(x)。功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值，Chr则计算出以x为ASCII码的字符。示例：Asc(“A”)的运算结果为65。Chr(65)的运算结果为“A”。Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。

大小写字母转换函数，格式：UCase(s)、LCase(s)。功能：s是一个字符型量，UCase将字符串中的所有字母转换成大写字母，LCase将字符串中的所有字母转换成小写字母。ucase(“a”)也有引号

判断文本框TextBox1中输入的是否为单个字母的表达式为：

If UCase(TextBox1.Text)>= “A” And UCase(TextBox1.Text)<= “Z” Then

If TextBox1.Text Like “[a-zA-Z]” Then If UCase(TextBox1.Text)Like “[A-Z]” Then If LCase(TextBox1.Text)Like “[a-z]” Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。字符串替换，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。若缺省m，替换把第n个字符开始的所有符合条件的字符串。若缺省n，则从第一个字符串开始替换。

字符串与数组元素的转换，格式：Join(A, “d”)、Split(s, “d”)。功能：A为数组，s和d是一个字符型数据。Join以d为分隔符将数组A各元素的值连接成字符串，并作为返回值。Split的功能与Join相反，它将字符串s以d为分隔符，分隔成数组元素。缺省d时，以空格为分隔符。37.38.39.40.41.42.43.44.45.格式输出函数Format可以将数值、日期和时间按指定格式转换成字符串，其格式如下：Format(表达式, “格式字符串”)。格式名General Number、G或g保持原有数值的小数位数，格式名Fixed、F或f则四舍五入保留两位小数。

46.百分比的数字格式，格式名Percent表示将数字乘以100后、保留两位小数、并加百分号(%)。示例：Format(0.567,“Percent”)的运算结果为“56.70%”。

47.科学表示法的数字格式，使用标准的科学表示法表示数字。格式名Scientific提供两个有效位，格式名E或者e提供六个有效位。示例：Format(1234.567,“Scientific”)的运算结果为“1.23E+03” ；Format(1234.567, “e”)的运算结果为“1.234567E+003”。

48.常用的用户定义数字格式，0 和 #。符号“0”和“#”用于决定显示数值整数部分和小数部分的位数。其相同之处是：若数值整数部分的位数多于格式字符串的位数，按实际数值返回；若小数部分的位数多于格式字符串的位数，按四舍五入计算。不同之处是：当数值的位数少于格式字符串的位数时，“0”格式将不足部分补0，而“#”则不显示。49..和 ，符号“.”表示加小数点，“,”表示加千分位。示例：

Format(1234.56, “0,000.00”)的运算结果为“1,234.56”。Format(1234, “0,000.00”)的运算结果为“1,234.00”。

50.日期的格式，根据区域设置显示日期。格式名Date、Medium Date或D表示长日期格式，格式名Short Date或者d表示短长日期格式。示例：假设今天是2015年9月25日，Format(Now, “Long Date”)的运算结果为“2015年9月25日”； Format(Now, “Short Date”)的运算结果为“2015/9/25”。Label1.Text = Format(TextBox1.Text, “long date”)51.复合赋值语句常用于以下几个方面：累加sum += s

等价于

sum = sum + s 连乘 n *= i

等价于

n = n * i

显示多行信息，复合赋值语句使用得最多的是“&=”运算符。要显示多行信息，一般是利用文本框、标签，通过“&=”来实现显示。52.Inputbox（“提示信息”，“标题”，“默认内容”），“提示信息”、“标题”、“默认内容”都可以不填空着，但至少要有一个空着的省略号。

53.InputBox的返回值是一个字符串。如果需要将输入的数值参加算术运算，必须在进行运算前用Val函数把它转换为数值类型。但可以用split函数调用。每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数。这时，通常与循环语句、数组结合使用。对话框显示的信息，若要分多行显示，必须加回车换行符，即Chr(13)+Chr(10)或VB系统常量vbCrLf。

54.定义变量时，可以用简写符号表示变量类型，$ 是 String，% 是 Integer，& 是 Long，!是 Single，@ 是 Currency，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(“提示信息”, vbOKOnly, “标题”)“提示信息”, vbOKOnly, “标题”可以都是空的，但至少要有一个空的省略号。MsgBox(“确认数据是否正确？”, MsgBoxStyle.YesNo + MsgBoxStyle.Question , “ 数据验证”)条件表达式1 F T 条件表达式2 F … 条件表达式n T 语句块1 语句块2 F T 语句块n 语句块n+1 56.elseif 的用法

57.如果是数字，则没有is。

58.Do until loop(直到结束)；do while loop(当执行)59.在for语句中，执行一次next语句，循环变量增加一个步长

60.UBound函数，格式为：UBound(数组名 [, 维])。使用UBound函数可以计算出数组的任一维可用的最大下标，从而确定数组的任一维的上界。其中：参数维指定返回数组的哪一维。1（默认）代表第一维，2代表第二维，以此类推。61.选择法排序：

Public Class Form1

Dim A()As Integer = {2, 1, 3, 4}

Dim m, n, i, j, imin As Integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

m = UBound(A)

For i = 0 To m1

For j = m To i + 1 Step-1

If A(j)< A(j1)

A(j1)+ f(n-2)

End If

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Dim y As Single

y = 0

For n = 1 To Val(TextBox1.Text)

y = y + 1 / f(n)

Next

Label2.Text = y

End Sub End Class 函数的表示法2 Public Class Form1

Dim a As String

Dim n, m As Integer

Function f(ByRef n As Integer)As String

a = TextBox1.Text

m = Len(CStr(a))

For n = m To 1 Step-1

f &= Mid(a, n, 1)

Next

End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)Handles Button1.Click

Label1.Text = f(n)

End Sub End Class 65.打开保存等操作的用法：

Public Class Form1

Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 退出ToolStripMenuItem.Click

End

End Sub

Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 保存ToolStripMenuItem.Click

SaveFileDialog1.Filter = “简单文本格式|*.txt|复杂文本格式|*.rtf”

SaveFileDialog1.FilterIndex = 2

SaveFileDialog1.ShowDialog()

MsgBox(SaveFileDialog1.FileName)

If SaveFileDialog1.FileName <> “" Then

If SaveFileDialog1.FilterIndex = 1 Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText)'.txt,.TXT

Else

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)'.doc,.DOC

End If

End If

End Sub

Private Sub 打开ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 打开ToolStripMenuItem.Click

OpenFileDialog1.FileName = ”“

OpenFileDialog1.Filter = ”简单文本|*.txt|复杂文本|*.rtf“

OpenFileDialog1.FilterIndex = 1

OpenFileDialog1.Title = ”朕的打开......“

OpenFileDialog1.ShowDialog()

MsgBox(OpenFileDialog1.FileName)

If OpenFileDialog1.FileName <> ”“ Then

Me.Text = OpenFileDialog1.FileName

If OpenFileDialog1.FilterIndex = 1 Then

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)

Else

RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)

End If

End If

End Sub

Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 新建ToolStripMenuItem.Click

RichTextBox1.Text = ”“

Me.Text = ”我的记事本“

End Sub

Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem.Click

RichTextBox1.Cut()

End Sub

Private Sub 复制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem.Click

RichTextBox1.Copy()

End Sub

Private Sub 粘贴ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem.Click

RichTextBox1.Paste()

End Sub

Private Sub 删除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 删除ToolStripMenuItem.Click

RichTextBox1.SelectedText = ”"

End Sub

Private Sub 全选ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 全选ToolStripMenuItem.Click

RichTextBox1.SelectAll()

End Sub

Private Sub 日期时间ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 日期时间ToolStripMenuItem.Click

RichTextBox1.SelectedText = Now

End Sub

Private Sub 复制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 复制ToolStripMenuItem1.Click

Call 复制ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 剪切ToolStripMenuItem1.Click

剪切ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 粘贴ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs)Handles 粘贴ToolStripMenuItem1.Click

粘贴ToolStripMenuItem_Click(sender, e)

End Sub

Private Sub 显示窗体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)Handles 显示窗体ToolStripMenuItem.Click

Form2.ShowDialog()

End Sub End Class 66.控制输入可以用e.keychar来做 67.Listbox的用法

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles ListBox1.SelectedIndexChanged

Select Case ListBox1.SelectedIndex

Case 0

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

Case 1

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)

Case 2

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)

Case 3

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout)End Select End Sub

第五篇：VB第5章 《多媒体程序设计》总结

VB第5章 《多媒体程序设计》总结

一、绘图方法：

1、颜色设置：

（1）颜色函数：

①QBColor：16种基本颜色。

QBColor(0)～QBColor(15)

②RGB颜色：

RGB（红色值，绿色值，蓝色值）

RGB（red，green，blue）

每种颜色值为：0～255

（2）颜色常数：

vbRed，vbGreen，vbBlue等。

（3）16进制颜色：

&H000000～&HFFFFFF2、Pset：画点

Pset(x，y),c3、Line：画线等

(1)画线：Line(x1，y1)－(x2，y2),c

(2)画矩形：Line(x1，y1)－(x2，y2),c，B

(3)填充矩形：Line(x1，y1)－(x2，y2),c，BF4、Circle：画圆等

(1)画圆：Circle(x，y)，r，c

(2)画弧、画扇形：Circle(x，y)，r，c，start，end Start、end：0～2π（画弧）

-2π～-0.000001（画扇形）

(3)画椭圆：Circle(x，y)，r，c，，aspect Aspect：纵横比

二、图像类控件：

1、Line控件：线条控件

（1）BorderColor：边框颜色。

（2）BorderStyle：边框样式。

（3）BorderWidth：边框宽度。

2、Shape控件：图形控件

（1）Shape：形状。

（2）FillColor：填充颜色。

（3）FillStyle：填充样式。

3、Picture控件：图像框控件

（1）功能（简答）：

①接受和输出图像；

②创建动态绘图；

③输出文本；

④作为控件容器。

（2）属性：

①AutoRedraw：自动重绘。

②AutoSize：自适应尺寸。

③Picture：控件中显示的图片。

（3）方法：

①PaintPicture：绘制图形文件。

②LoadPicture：加载图片。

对象名.Picture=LoadPicture(“带路径文件名”)

4、Image控件：图像控件

（1）功能：显示图像。

（2）属性：

①Picture：控件中要显示的图片。

②Stretch：图形是否调整大小与控件相适应。

True：图形调整大小与控件相适应。

False：控件调整大小与图形相适应。（默认）

（3）方法：

Move方法：

对象名.MoveLeft，Top，Width，Height

三、多媒体控件：

1、Declare语句：用于在模块级别中声明对DLL动态链接库中外部过程的引用。

2、API函数mciSendString：使用字符串作为操作命令来控制媒体的设置。常用操作命令如下：

（1）Open：打开媒体设备。

（2）Close：关闭媒体设备。

（3）Play：播放媒体设备。

（4）Pause：暂停播放媒体文件。

（5）Stop：停止播放媒体文件。

3、ShockWaveFlash控件：Flash动画播放器

（1）属性：

①Movie：指定要播放的Flash动画文件。

②TotalFrames：总帧数。

③CurrentFrame：当前帧编号。

（2）方法：

①Play：开始播放动画。

②Back：跳到动画的上一帧。

③Forward：跳到动画的下一帧。

④Rewind：返回动画的第一帧。

⑤Stop：暂停Flash动画播放。

4、MediaPlayer控件：媒体播放器控件

（1）属性：

①URL：指定媒体文件的位置。

②fullScreen：是否处于全屏显示状态。

③playState：返回当前控件状态。

（2）controls：

①Controls.play：播放媒体。

②Controls.stop：停止播放。

③Controls.pause：暂停播放。

④Controls.currentPosition：返回当前播放进度。

⑤Controls.currentPositionString：返回时间格式字符串。

（3）currentMedia：

①currentMedia.duration：返回媒体的总长度。

②currentMedia.durationString：返回时间格式的字符串。

（4）settings：

①Settings.volume：设置音量，设置为0～100。

②Settings.balance：设置立体声的左声道和右声道的音量。