VB電子教案.docVIP

Visual Basic程序设计 黄中文 江西凤凰高级技工学校 项目一：初识Visual Basic 任务：VB城堡堡乐园欢迎大家 任务分析：制作如图所示的运行界面，界面上显示文字和背景图片，同时“VB城堡堡乐园欢迎大家”以滚动字幕的形式循环移动。该任务将带领同学们进入VB奇妙世界，并通过这个任务了解VB中程序的一般开发流程。 任务设计： 启动VB，创建一个工程 界面设计：“VB城堡堡乐园欢迎大家”字行可以用标签A控件来实现，还有一个时钟控件和一幅背景图。（直接从控件工具箱中拖） 属性设置： 对象 对象名称 属性 属性值 窗体 Form1 Caption 第一个应用程序 Picture 图片路径 标签 Label1 Caption VB城堡堡乐园欢迎大家 Font 幼圆、粗体、二号 BackStyle 0—Transparent ForcColor 白色 代码编写 Dim a Private sub Form_Load() Label1.left=Form1.Width Timer1.interval=100 A=form1.width End sub Privatr sub timer1_timer() If a = -Label1.width then A=form1.width End if Label1.move a A=a-100 End sub 按F5调试运行 保存 项目二：大小写字母转换器 任务分析：制作如图所示的运行界面，在第一个文本框中输入英文字母，将会在第二个文本框中显示其转换的对应英文字母（即大写变小写，小写变大写）如果输入的是空格则不发生变化，如果是其它字符则以“*”号显示。在单击“清屏”按钮的时候将会清空文本框中的所有内容，在单击“结束”按钮的时候将会退出本程序。 任务设计： 启动VB，创建一个工程。 界面设计：输入输出框可以用文本框Text1和Text2来实现，而提示字符“输入字符串”和“转换”可以用标签Label1和label2来实现，文本框左侧的清屏和结束用按钮Command1和Command2，单击控件工具箱中的对应按钮，在窗体上拖出相应的对象控件。 属性设计： 控件名 Caption Text fontSize Form1 大小写字母转换 10 Label1 输入字符串 10 Label2 转换 12 Text1 空白 16 Text2 空白 16 Command1 清屏 12 Command2 结束 12 代码编写： 对“输入字符串”文本框对象Text1对应的KeyPress事件进行编程： Private sub text1_keypress(Keyascii as integer) Dim aa as string *1 Aa=Chr$(keyascii) ‘将ASCII码转换成字符 Select case aa Case “A” To “Z” Aa=Chr$(keyascii+32) Case “a” To “z” Aa= Chr$(keyascii-32) Case”” Case Else Aa=”*” End select Text2.text=text2.text aa End sub 当单击“清屏”命令按钮，清除两个文本框的所有内容，就要求对Command1对应的Click事件进行编程： Private sub command1_click() Text1.text=”” Text2.text=”” End sub 当单击“结束”命令按钮程序结束运行，对象Command2的Click事件程序： Private sub command2_click() End End sub 按F5调试运行 保存 知识点： 多路分支选择结构 SELECT CASE语句： SELECT CASE测试表达式 CASE条件11,条件12…… 语句组1 CASE条件21,条件22…… 语句组2 …… CASE ELSE 语句组n END SELECT 说明： （1） SELECT CASE语句根据测试表达式的值，在顺序排列的CASE表中选择执行一个 语句组。它的执行过程是：先计算测试表达式的值，之后先由第一个CASE后的测试内容 测试，一旦测试的条件满足，便执行该CASE后面的语句组，若一个CASE后面的测试都 不满足，便进行下一个CASE的测试。若全部CASE都测试不满足，便执行CASE ELSE后 的语句组。不论执行了哪一个语句组，最后都经END SELECT出口。 （2）测试表达式可以是字符串表达式，也可以是数值表达式。若是字符串表达式，后面 所有的条件都应是字符串型；若是数值表达式，后面所有的条件都