55VB电子教案

VisualBasic程序设计黄中文江西凤凰高级技工学校项目一：初识VisualBasic任务：VB城堡堡乐园欢迎大家任务分析：制作如图所示的运行界面，界面上显示文字和背景图片，同时“VB城堡堡乐园欢迎大家”以滚动字幕的形式循环移动。该任务将带领同学们进入VB奇妙世界，并通过这个任务了解VB中程序的一般开发流程。任务设计：1、启动VB，创建一个工程2、界面设计：“VB城堡堡乐园欢迎大家”字行可以用标签A控件来实现，还有一个时钟控件和一幅背景图。（直接从控件工具箱中拖）3、属性设置：对象对象名称属性属性值窗体Form1Caption第一个应用程序Picture图片路径标签Label1CaptionVB城堡堡乐园欢迎大家Font幼圆、粗体、二号BackStyle0—TransparentForcColor白色4、代码编写DimaPrivatesubForm_Load()Label1.left=Form1.WidthTimer1.interval=100A=form1.widthEndsubPrivatrsubtimer1_timer()Ifa=-Label1.widththenA=form1.widthEndifLabel1.moveaA=a-100Endsub5、按F5调试运行6、保存VisualBasic程序设计黄中文江西凤凰高级技工学校项目二：大小写字母转换器任务分析：制作如图所示的运行界面，在第一个文本框中输入英文字母，将会在第二个文本框中显示其转换的对应英文字母（即大写变小写，小写变大写）如果输入的是空格则不发生变化，如果是其它字符则以“*”号显示。在单击“清屏”按钮的时候将会清空文本框中的所有内容，在单击“结束”按钮的时候将会退出本程序。任务设计：1、启动VB，创建一个工程。2、界面设计：输入输出框可以用文本框Text1和Text2来实现，而提示字符“输入字符串”和“转换”可以用标签Label1和label2来实现，文本框左侧的清屏和结束用按钮Command1和Command2，单击控件工具箱中的对应按钮，在窗体上拖出相应的对象控件。3、属性设计：控件名CaptionTextfontSizeForm1大小写字母转换10Label1输入字符串10Label2转换12Text1空白16Text2空白16Command1清屏12Command2结束124、代码编写：（1）对“输入字符串”文本框对象Text1对应的KeyPress事件进行编程：Privatesubtext1_keypress(Keyasciiasinteger)Dimaaasstring*1Aa=Chr$(keyascii)‘将ASCII码转换成字符SelectcaseaaCase“A”To“Z”Aa=Chr$(keyascii+32)Case“a”To“z”Aa=Chr$(keyascii-32)Case””CaseElseAa=”*”EndselectText2.text=text2.text&&aaEndsub（2）当单击“清屏”命令按钮，清除两个文本框的所有内容，就要求对Command1对应的Click事件进行编程：Privatesubcommand1_click()Text1.text=””VisualBasic程序设计黄中文江西凤凰高级技工学校Text2.text=””Endsub（3）当单击“结束”命令按钮程序结束运行，对象Command2的Click事件程序：Privatesubcommand2_click()EndEndsub5、按F5调试运行6、保存知识点：多路分支选择结构SELECTCASE语句：SELECTCASE测试表达式CASE条件11,条件12……语句组1CASE条件21,条件22……语句组2……CASEELSE语句组nENDSELECT说明：（1）SELECTCASE语句根据测试表达式的值，在顺序排列的CASE表中选择执行一个语句组。它的执行过程是：先计算测试表达式的值，之后先由第一个CASE后的测试内容测试，一旦测试的条件满足，便执行该CASE后面的语句组，若一个CASE后面的测试都不满足，便进行下一个CASE的测试。若全部CASE都测试不满足，便执行CASEELSE后的语句组。不论执行了哪一个语句组，最后都经ENDSELECT出口。（2）测试表达式可以是字符串表达式，也可以是数值表达式。若是字符串表达式，后面所有的条件都应是字符串型；若是数值表达式，后面所有的条件都应是数值型。（3）条件：CASE子句中的“条件”，指的是测试条件，即把测试表达式的值与此条件对比，检查表达式的值是否符合此条件，符合的称为“匹配”。“条件”可以有三种形式：①常量、变量或表达式：如1，2，3，“A”，“B”等都是合法的。②低值TO高值，如1TO20,”A”TO“K”等。（4）应避免不同的CASE子句中的条件和相应的操作出现矛盾。VisualBasic程序设计黄中文江西凤凰高级技工学校项目三：浮雕文字任务分析：浮雕大家并不陌生，公园、历史博物馆这些地方总少不了浮雕的点缀。现在我们可以利用VB制作出文字的浮雕效果。浮雕效果，实际上是让显示的字通过白色和黑色错位叠加来实现。使用标签label1、label2，修改Caption为“江西凤凰高级技工学校”，分别设置前景色为白色和黑色。为了实现错位的效果，只要使两个标签的left、top属性值有一点差距，同时要设置label1标签名册的Backstyle为0（避免叠加上的标签覆盖原来标签内的标题文字）。为了达到逼真的效果，两个标题的Caption、Font属性要求设置完全相同。任务设计：1、界面设计：（1）启动VB，新建一个工程。（2）单击工具箱上标签A控件，在当前窗体上建立两个标签，2、属性设置：对象对象名称属性属性值窗体Form1Caption浮雕文字标签Label1Caption江西凤凰高级技工学校Font宋体、加粗、小二BackColor灰色Label2Caption江西凤凰高级技工学校font宋体、加粗、小二BackStyle0—Transparent（透明）3、按F5调试运行。VisualBasic程序设计黄中文江西凤凰高级技工学校项目四：认识文本框和命令按钮任务：简单的算术运算器任务分析：本任务是设计一个简易计算器，我们可以用文本框（textbox）接受用户从键盘输入的数据，用命令按钮（command）表示加、减、乘、除、整除、求余这些简单的算术运算功能。而上面的=符号只是显示在窗体上，可以用标签（label）来实现。任务设计：1、界面设计（1）在窗体上建立三个文本框，分别用于存放两个操作数和计算的结果。（2）在窗体上建立六个命令按钮，分别表示加、减、乘、除、整除、求余。（3）在窗体上建立一个标签控件，表示=符号。2、属性设置：对象对象名称属性属性值窗体Form1Caption间单的算术运算器文本框Text1~text3Text清空Alignment2—Center（居中）标签Label1Caption=Backstyle0—transparent命令按钮Command1Caption+Command2Caption-Command3Caption*Command4Caption/Command5Caption\Command6Captionmod3、代码编写：DimaasintegerDimbasinteger（1）为+号按钮command1添加Click事件：Privatesubcommand1_click()A=text1.textB=text2.textText3.text=a+bEndsub（2）为-号按钮command2添加Click事件：Privatesubcommand2_click()A=text1.textB=text2.textText3.text=a-bEndsubVisualBasic程序设计黄中文江西凤凰高级技工学校（3）Privatesubcommand3_click()A=text1.textB=text2.textText3.text=a*bEndsub（4）Privatesubcommand4_click()A=text1.textB=text2.textText3.text=a/bEndsub（5）Privatesubcommand5_click()A=text1.textB=text2.textText3.text=a\bEndsub（6）Privatesubcommand6_click()A=text1.textB=text2.textText3.text=amodbEndsub4、按F5调试运行。VisualBasic程序设计黄中文江西凤凰高级技工学校项目五：密码输入小键盘任务分析：模仿银行ATM取款的密码输入盘，只有输入正确的账号密码，才可以取款。单击键盘上的数字键，输入账号密码，输入完毕后单击“ENTER”键，如果密码输入正确，则显示可以取款，反之则显示密码错误，要重新输入。任务设计：1、界面设计（1）启动VB，新建工程，在当前窗体上创建一个标签A、一个文本框控件和一个框架控件。（2）单击工具栏上的命令按钮，按住鼠标左键在框架内拖动到合适大小，调整好位置。（3）右击框架内的命令按钮，复制再粘贴，反复8次，创建控件数组。（4）数字键盘建立后，再单击工具栏上的命令按钮，创建两个命令按钮，分别作为“Enter（输入）”按钮和“Clear（清除）”按钮。2、属性设置：对象对象名称属性属性值窗体Form1Caption密码输入小键盘标签Label1Caption请输入密码，再按输入键确认，如密码错误，请重新输入Font隶书、小三、加粗forecolor黑色backcolor白色VisualBasic程序设计黄中文江西凤凰高级技工学校项目五：认识列表框和组合框任务：选课系统设计任务分析：本任务是一个学生自行选课系统，可以从表示未选课程的列表框（ListBox）中选择这一学期要修的课程，单击命令按钮，将选择的课程放置在表示已选课程的列表框中。反之，可以在已选课程列表中选择课程，通过命令按钮，撤销该课程的选择。任务设计：1、界面设计：（1）启动VB，新建一个工程。（2）在当前窗体上建立三个标签控件和两个命令按钮控件。（3）单击工具箱上列表框控件，分别在当前窗体合适位置建立大小合适的列表框1和列表框2，作为“未选课程列表”和“已选课程列表”。2、属性设置：对象对象名称属性属性值窗体Form1Caption选课系统设计标签Label1Caption未选课程名称Font宋体、加粗、五号Label2Caption已选课程名称Font宋体、加粗、五号Label3Caption清空列表框List1~List2List空值命令按钮Command1CaptionCommand2Caption3、代码实现：（1）为命令按钮添加单击事件，并在事件中添加如下代码。实现当单击按钮时，将“未选课程列表”中选定的课程移至“已选课程度列表”中；如果没在“未选课列表”中选择课程，则出现“请选择课程”的信息框提示。并且只能选择8门课程，超出范围，则弹出“你已经选择了8门课程”的信息框提示，即不允许再选课。Privatesubcommand1_click()Iflist2.listcount8andlist1.text“”thenList2.additemlist1.textList1.removeitemlist1.listindexElseIflist2.listcount=8thenMsgbox”你已经选择了8门课！”，，”提醒”ElseMsgbox”请选择课程！”，，”提醒”EndifEndifVisualBasic程序设计黄中文江西凤凰高级技工学校Label3.caption=“提示：从未选课程列表中选择课程，本学期你一共可以选择8门课，你已经选择了”&List2.ListCount&”门课程”Endsu