当前位置：文档之家 › Visual Basic 程序设计案例教程第4讲

Visual Basic 程序设计案例教程第4讲

  • 格式：ppt
  • 大小：280.00 KB
  • 文档页数：48

下载文档原格式

  / 48

合集下载

[电子教案(PPT版本)]面向对象程序设计基础教程——Visual Basic语言 (4)[14页]

[电子教案(PPT版本)]面向对象程序设计基础教程——Visual Basic语言 (4)[14页]
进行封装，程序员使用时只能看到函数名、参 数和返回值等信息。使用时，程序员无须了解 函数过程的实现细节。函数内部与函数外部之 间的信息传递都是通过参数和返回值来实现的， 所以程序员使用函数，只需了解函数的参数特 征和返回值特征即可。 Visual Basic提供了上百种内部函数（库函数）， 函数分为有参函数和无参函数。
4.4.3 字符串函数
Visual Basic提供的字符串处理函数，可 以对字符串进行各种方式的处理，常用的 字符串函数见表4.9。
4.4.4 日期与时间函数
日期与时间函数提供时间和日期信息。默 认日期格式为：“mm/dd/yy”，默认时间 格式为：“hh:mm:ss”。常用的日期与时 间函数见表4.10。
1．局部变量 2．模块级变量 3．全局变量
4.3 运算符与表达式
4.3.1 算术运算符与表达式 4.3.2 字符串运算符与表达式 4.3.3 日期运算符与表达式 4.3.4 关系运算符与表达式 4.3.5 逻辑运算符与表达式 4.3.6 运算符的优先级
4.4 常用内部函数
4.4.1 函数的概念及使用 1．函数的概念 函数是能够实现一定功能的一段程序，由系统
• ① 第一个字符必须是英文字母，后接字符可以是数字、字母、下画线，但不得有 小数点、空格、+、−、%、（、）、#、$等符号。
• ② 变量名后可加类型说明符号，如！、@、#、$、%、&等。类型说明符号在变 量命名时也可以省略。但是，有类型说明符号的命名可以增强程序的可阅读性， 从类型说明符就可以立即知道变量所属的类型，便于对程序的理解。
4.1 数据类型
4.1.2 基本数据类型
• 1．数值型数据 • 2．字符型数据String • 3．布尔型数据Boolean • 4．日期型数据Date • 5．对象型数据Object • 6．变体型数据Variant • 7．自定义类型

《Visual Basic程序设计实用教程》 第4章

《Visual Basic程序设计实用教程》 第4章
If 逻辑表达式 Then 语句组1 Else 语句组2
演示
2020/1/11
逻辑表 达式
语句组1
语句组1
逻辑表 达式
语句组2
演示
2020/1/11
例4.2找最小数。设计一个窗体，在窗体上添加四个标签、 四个文本框和两个命令按钮。运行程序时，先在输入要比 较的三个数，再单击“确定”，程序将找出三个数中最小 的数，并把计算结果显示在最小数文本框中。
语句序列2
…… ElseIf逻辑表达式n Then
语句序列n
[Else 语句序列n+1]
End If
2020/1/11
块If结构的嵌套 上边介绍了块If结构的基本形式，在实际使用中常需要复 杂的多重选择，用一个块If结构是不行的，必须用嵌套的 块If结构。所谓嵌套的块If结构，指在一个块If结构中，又 包含另一个块If结构。
2020/1/11
例4.3判断三角形。 设计一个窗体，在窗体上添加五个标签、三个文本框和两个 命令按钮。运行程序时，先在输入文本框中输入边长，再单 击“判断”，程序将判断是否能构成三角形及其具体的形状： 锐角，直角，钝角，并把计算结果显示在结论标签框中。
2020/1/11
多分支结构
有时程序可能有多种选择，可以使用多分支结构。多分支结构
2020/1/11
列表框属性 （1）Text属性 返回列表框被选择的列表项目，是字符串类型。在列表框 中该属性为只读属性，界面设计阶段不能修改。 （2）ListIndex属性 设置或返回列表框被选择的列表项的序号，是整型。在列 表框中第一个列表项序号为0，第二个列表项序号为1，…， 最后一个列表项目序号为Listcount-1。 （3）Listcount属性

《Visual Basic程序设计简明教程》课件第4章

《Visual Basic程序设计简明教程》课件第4章

4
2023/12/13 《Visual Basic程序设计简明教程》
4.2 逻辑表达式
关系表达式可以用来构造一些简单的条件，但 是还不足以构造复杂的条件。
这些条件是由一些子条件复合而成的，表达了 一种逻辑关系，无法用关系表达式完成，需要 用逻辑表达式构造。
例如不仅任意两边之和大于第三边，而且其中 的两边相等，才能构成等腰三角形。
8
2023/12/13 《Visual Basic程序设计简明教程》
运算符：
高^ -(取负)
*/
\
运算符的优先级顺序： Mod +& > >= < <= = <> Not
And
Or
9
2023/12/低13 =《(V赋isu值al B)asic程序设计简明教程》
计算表达式的结果：
——3 Mod 5=3 And 1>3\2 Or Not 2<=1
关系运算的结果显然是逻辑值，即关 系成立为True，否则为False。
2
2023/12/13 《Visual Basic程序设计简明教程》
说明 ：
（1）关系运算符的操作数可以是数值、字符 串或者日期型数据。一般要求两边的操作数类型 一致。
（2）两个字符串按词典序进行比较，即都从 各自的第一个字符开始，相应位置的字符依次按 Unicode码比较大小，直到出现不同的字符或者 字符串结束为止。
14
2023/12/13 《Visual Basic程序设计简明教程》
4.3 If语句——If结构
If 表达式 Then 语句块
End If 说明：If结构用于处 理触发型情况，一旦触 发某个条件，则会引发 后续的动作。

Visual Basic程序设计案例教程第4章

Visual Basic程序设计案例教程第4章

4.3.1 窗体
（9）Enabled（有效）属性。 该属性值为True时，窗体响应用户事件；为False 时，窗体无效，不响应用户事件。 （10）Height（高度）、Width（宽度）、Left （左边坐标）、Top（顶端坐标）属性。 Height、Wide属性值决定窗体的大小，Left、 Top 属性值决定窗体离屏幕左边与上边的距离。 （11）Font（字体）属性。 单击该属性右侧的按钮，在弹出的“字体”对话 框中设置窗体上字体的字体、字号、字形等。
4.3.1 窗体
（12）Icon（图标）属性。
该属性的值决定窗体图标。单击Icon 属性，右边出现“对 话框”按钮。单击“对话框”按钮，打开“加载图标”对 话框，如图4-4所示。选择图标文件加载图标。
图4-4 “加载图标”对话框
4.3.1 窗体
（13）MaxButton（最大化按钮）与MinButon（最小化按 钮）属性。 MaxButton属性的值可以是True 和False，决定在窗体上是 否有最大化按钮；MinButon属性的值决定是否有最小化按 钮。 （14）Picture（图片）属性。 单击“属性”窗口中的Picture属性，右边出现“对话框” 按钮。单击“对话框”按钮，弹出“加载图片”对话框， 可以选择合适的图像文件，作为窗体背景中要显示的图片。 （15）Visible（可见）属性。 该属性值为True 时窗体可见，值为False时窗体隐藏不可见。
4.0的窗体具有Windows窗体的基本特 性，在工具箱中的图标为，如图4-2所示，窗体包 括图标、标题栏、控制按钮和工作区。
图4-2 窗体的结构
3.3.1 窗体
2．属性
（1）Name（名称）属性。 该属性用于设置窗体的名称，在程序设计时用这个名称引用该窗体，也可以区 别不同的窗体对象，运行时为只读。在创建应用程序时，第1个窗体的名称默 认为Form1，添加第2个窗体的名称默认为Form2，依此类推。但是，在实际编 程时，要做到见名知意，设置具有实际意义的名称。例如：一个应用程序的主 窗体可以设置其名称为“mainfrm”。 （2）Appearance（外观）属性。 该属性用来设置窗体的外观，有“0”、“1”两个值。值为“0”时，对象以平面 效果显示；值为“1”时，对象以3D（三维）效果显示。 （3）AutoRedraw （自动重画）属性。 该属性用来设置窗体的中的图形是否自动重画，有“Ture”、“False”两个值。 值为“Ture”，自动重画窗体内所有图形，即重画Print、Cls、Circle等方法的输 出；值为“False”时要调用一个事件过程才能完成重画工作。

Visual Basic程序设计教程第4章

Visual Basic程序设计教程第4章

Caption Label1 WordWra p
AutoSize Font
标签控件的内容 不自动换行
控件不能自动调整
False
False 宋体、三号
（a）设计时
图4-3 利用标签控件输出
（b）运行结果
4.1.2 数据输入
1 使用“文本框”控件进行输入
2 SetFocus 方法
3 与用户交互的函数和过程
如果单击“确定”按钮，则strIDcard的值为输入值“123456789”， 否则为空字符串。
图4-5 使用InputBox 函数
（2）MsgBox函数和MsgBox过程 MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回 一个整数以标明用户单击了哪个按钮。其语法格式为： [变量[%]]=MsgBox(<提示>[, <按钮>] [, <标题>] [, <helpfile>, <context>]) MsgBox语句的用法为： MsgBox <提示>[, <按钮>] [, <标题>] [, <helpfile>, <context>] 其中： <提示>、<标题>、<Helpfile>和< context>的意义同InputBox函数。 <按钮>可选项。整型表达式，指定显示按钮的数目及形式，使用 的图标类型，缺省按钮的种类以及消息框的强制回应等。如果省略， 则 <按钮> 的缺省值为 0。
2．MsgBox函数和MsgBox过程
作用：在对话框中显示信息，等待用户单击按钮，并返回一个整 数以标明用户单击了哪个按钮。 语法格式

VisualBasic程序设计案例4

VisualBasic程序设计案例4

Visual Basic程序设计案例4多媒体播放器应用程序1.任务⑴设计一个如下图所示多媒体播放器应用程序:⑵功能：能够播放AVI. VCD、WAVE等格式的多媒体文件。

程序具有快进.快退、暂停、弹碟和退岀等基本功能。

2.素材准备工作⑴一张背景图片，用于窗口播放器窗口背景；⑵一个Wave音乐文件，用于测试声音播放：⑶一个AVI视频文件，用于测试视频播放：⑷一个VCD视频文件（扩展统为.dat）,用于测试VCD视频播放;3.程序设计分析及其实现本程序在利用MMControl多媒体控件进行编程时应主要考虑如下几点:•用DeviceType属性指定多媒体设备的类型。

•用Filename属性指左要播放的文件。

•用Command属性的Open命令打开媒体设备。

•用Command属性的Play命令进行播放。

•用Command属性的英他命令控制媒体设备。

•如果要显示多媒体文件的播放进度，需要在MMControl_StatusUpdate 11程中编写代码，以便实现用Slider控件显示文件的播放进程。

根据题目要求，在窗体中需要用到5个控件：PictureBox控件（用于放宜视频图像）、命令按钮（打开、关闭）、CommandDialog控件（用于提示打开对话框）、MMControl控件（多媒体播放控件）和Slider控件（播放器进度条控件）。

⑴界而设计创建一个“标准EXE”工程。

选中“工程”菜单中的“部件”选项，在弹岀的“部件”对话框中选择44 Microsoft Multimedia Control ° Microsoft Coomand Dialog Control6.0（SP3）和“ Microsoft Windows Common Control6.0（SP4）并单击"确定”按钮。

将工具箱中PictureBox 控件、CommandDialog 控件、MMControl控件和Slider 控件添加到窗体中，添加两个命令按钮到窗体中。

Visual Basic程序设计VB第4章电子讲稿


分析：在过程中间我们不仅用到上一章的函数比如：“Exit Sub”是退出 过程，函数Len（字符串）可得到字符串的长度，函数IsNumeric（字符 串）可检验字符串是否是数值，更重要的时，程序代码中会用到条件句 来进行判断，即我们这一章所讲的重点之一，条件句。
4.1条件语句案例
【技术要点】 界面设计 修改控件属性。 3．编写代码及调试程序。 Private Sub Command1_Click() If Textxm = "" Then Textxm.SetFocus Exit Sub End If If Textxb = "" Then Textxb.SetFocus Exit Sub End If If Textdz = "" Then Textdz.SetFocus Exit Sub End If
4.1条件语句案例
Private Sub Textdh_LostFocus() If Textdh.Text <> "" Then If Len(Textdh.Text) <> 8 Or Not IsNumeric(Textdh.Text) Then MsgBox "电话输入位数不对或者输入的内容为非数字，请确定并重新 输入" Textdh.Text = "" Textdh.SetFocus End If End If End Sub Private Sub Textxb_LostFocus() If Textxb.Text <> "" Then If Textxb.Text <> "男" And Textxb.Text <> "女" Then MsgBox "性别只能是男或女，你输入有误，请确定并重新输入" Textxb.Text = "" Textxb.SetFocus End If End If End Sub

精品课件-Visual Basic程序设计案例教程-第4章

③ Is <关系运算符><表达式>：通过Is与关系运算符结 合，用来表示一个数值范围。注意，此时关系表达式只能是 简单条件，而不能是用逻辑运算符将两个(或多个)简单条件 表达式连接到一起。例如：
第4章 程序流程控制
Case Is>85 是正确的，而Case Is>85 And Is<100则 是错误的。
4．应用扩展 嵌套结构是在一些基本语句结构的基础上，将一个 控制结构放在另一个控制结构内而形成的结构。这两种 控制结构可以相同，也可以不同。例如： If <条件1> Then
… If <条件2> Then
… Else … End If …
第4章 程序流程控制
… Else
End If
… If <条件3>
上述三种形式还可以组合起来使用。例如： Case 20,30,40 To 50,Is>60
这种组合方式表示只要测试表达式的值与Case后面表 达式中任何一个值相匹配，则执行该Case语句对应的语句 块。
第4章 程序流程控制
3．程序实现 1) 界面设计 初始界面如图4.10所示。 2) 属性设置 属性设置如表4.3所示。 设置属性后的界面如图4.11所示。
在使用单行语句结构时，Then后面只能放置一条语 句，若有多条语句，则必须用多行语句格式。语句格式 中的“语句块”可以是一条语句，也可以是多条语句。
例如：单行语句 If x<y Then x=x+9
也可改成多行语句结构形式： If x<y Then x=x+9 End If
第4章 程序流程控制
在多行语句结构形式中，Then关键字后的同一行上 不能有任何语句。例如，把多行结构形式改写如下形式， 则会产生编译错误：

《第一单元 Visual Basic初步 第4课 使用联机帮助 测试并保存程序》教学设计

《测试并保存程序》教学设计方案（第一课时）一、教学目标1. 掌握程序测试的方法，能够发现并解决程序中的问题。

2. 学会应用保存程序的功能，能够将程序保存到计算机中。

3. 了解程序保存的重要性，养成良好的编程习惯。

二、教学重难点1. 教学重点：掌握程序测试的方法，学会应用保存程序的功能。

2. 教学难点：如何发现并解决程序中的问题，养成良好的编程习惯。

三、教学准备1. 准备教学用PPT，包括程序测试和保存程序的步骤图解。

2. 准备相关示例程序，供学生测试和模仿。

3. 准备计算机和相关软件，确保可以运行示例程序。

4. 准备讲解用的麦克风和投影设备，确保教学效果。

5. 安排好学生的学习位置，方便教师演示和指导。

四、教学过程：1. 导入新课（5分钟）教师向学生介绍本节课的内容和目标，包括学习如何测试和保存程序。

通过展示一些简单的程序示例，激发学生的兴趣和好奇心。

2. 任务分解（5分钟）教师将学生分成小组，为每个小组分配不同的任务。

任务包括编写程序测试方案、调试程序、保存程序等。

学生需要共同协作，共同完成任务。

3. 学生操作（20分钟）学生开始动手操作，尝试编写测试程序，进行程序测试和调试。

教师巡回指导，及时解决学生遇到的问题。

同时，教师可以通过一些实例演示，帮助学生更好地理解和掌握知识点。

4. 交流讨论（10分钟）学生完成测试程序后，小组内进行交流和讨论，分享各自的效果和经验。

教师也可以参与讨论，鼓励学生提出问题和建议。

5. 效果展示（5分钟）每个小组派代表展示本组的程序效果，并简要介绍程序的测试结果和优化建议。

教师和其他学生可以提问和评判，提出改进意见和建议。

6. 总结回顾（5分钟）教师对本节课的内容进行总结回顾，强调重点和难点。

同时，鼓励学生回顾自己的收获和体会，为后续的学习打下基础。

7. 安置作业（2分钟）教师安置一些与本节课内容相关的作业，包括编写简单的程序、测试和调试程序等。

学生可以在课后继续探索和实践，提高自己的信息技术能力。

VisualBasic程序设计教程第四龚沛增完整PPT教案

ox Box) 钟(Timer) ListBox)
(Shape) 像(Image) 入(OLE)
六、工具箱(ToolBox)窗口
图形框(Picture Box)
➢ 由21个 文本框(Text 被Box) 绘制成按钮形式的图标构 成命，令按利钮(C用omm这and B些utto工n) 具，用户可以在窗体 上设计各种控 单选按钮(OptionButton) 件 。其中20个控件称
的其他控件装入到工具箱。
第22页/共325页
23
七、其他窗口
1.立即（Immediate）窗口
为调试程序提供的，可在此直 接用Print方法输出表达式的值， 也可以在程序代码中用 Debug.print语句在立即窗口输 出表达式的值。
2.窗体布局（Form Layout）窗口
用于指定程第序23页运/共32行5页 时窗体的初 始位置，主要应用于多窗体程
VisualBasic程序设计教程第四龚沛增完 整
会计学
1
第1章 Visual Basic程序设计概述 1.1 Visual Basic 简介 1.2 VB集成开发环境 1.3 创建应用程序过程 1.4 VB帮助系统
第1页/共325页
1.1 Visual Basic 简介
1.1.1 Visual Basic的发展 1.1.2 Visual Basic的特点 1.1.3 如何学习Visual Basic
25
设计思路：
输入使用文本框TextBox;
提示使用标签Label;
按钮Command的Click事件执行处理命
令。
第25页/共325页
26
1.4 使用帮助系统
使用MSDN Library查阅器 通过VB的帮助菜单，选择内容、索引或搜索菜单项
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
• Change事件：当文本框的内容被修改时触 发。其基本语法如下：
– Sub Text_Change([Index As Integer]) – 其中，Text是文本框的名称。Index是一个整 数，若该文本框属于一个控件数组，则Index 表示该文本框在数组中的下标，否则不需要这 一参数。
文本框的常用事件
• 编写如下代码：
Private Sub Form_Click( ) Text1.SelStart=0 ‘将文本框Text1中的第1字符前设为 ‘标识区的起点 Text1.SelLength=8 '将整个标识区长度定为8 Text2.text=Text1.SelText'被标识的字符串存入Text2中 End Sub
• PasswordChar属性:
– 该属性设置是否在控件中显示用户键入的字符。
• ScrollBars属性:
– 该属性设置文本框是否有垂直或水平滚动条， 其返回值为0，1，2，3。
文本框属性
• SelLength、SelStart和SelText属性 :
– SelLength返回/设置选定的字符数。 – SelStart返回/设置选定文本的起始点。 – SelText返回/设置包含当前选定文本的字符串。
文本框的常用事件
• GotFocus事件
– 当文本框具有输入焦点（即处于活动状态）时 触发该事件。此时，键盘上输入的每个字符都 将在该文本框上显示出来。
• LostFocus事件
– 当按下Tab键使光标离开当前文本框或用鼠标 选择窗体上的其他对象时触发该事件。
文本框的方法
• 文本框最常用的方法为SetFocus，当把光 标移动到指定的文本框上，也就是使该文 本框具有输入焦点。
• 【例4.2】 在名称为Form1的窗体上放置一 个名称为Text1的文本框。程序运行后，用 户在文本框中输入的英文字母一律用大写 显示（要求焦点在最右端）。
– 问题解析：只有小写的字母会转成大写；原本 大写或非字母之字符保持不变，根据题意建立 如图4-2所示的界面。程序代码如下：
Private Sub Text1_Change() Text1.SelStart = Len(Text1.Text) Text1.Text = UCase(Text1.Text) End Sub
Visual Basic 程序设计
第四讲 2课时
教学目标及基本要求
• 掌握文本框、InputBox方法的 数据输出 • 掌握字形的设置 • 了解打印机输出
教学重点
• 文本框、InputBox函数的数据输入 • 文本框、MsgBox函数、Print方法的数据 输出
教学难点
• 文本框、InputBox函数的数据输入 • 文本框、MsgBox函数、Print方法的数据 输出
教学内容
• 数据输入 • 数据输出 • 字形与打印机输出
数据输入
• 使用文本框（TextBox）输入数据 • 使用InputBox函数输入数据
使用文本框（TextBox）输入 数据
• 一个程序如果没有输入操作，必然缺乏灵 活性。接收用户输入数据的最直接的方法 就是使用文本框，即TextBox控件。文本框 可以供用户输入数据，是Visuual Basic中 显示和输入文本的主要机制，也是 Windows用户界面中最常用的控件。
文本框属性
• 【例4.1】 建立两个文本框，它们的有关属性如 表4-1所示。
– 表4-1 默认控件名 控件属性设置 多行属性 （MultiLine） 滚动条属性（ScrollBars） 2—Vertical '只有垂直 滚动条 0—None '无滚动条
Text1
Text2
True
False
文本框
– 在文本框中显示的正文内容存放在Text属性中。 当程序运行时，用户通过键盘输入正文内容， 保存在Text属性中。文本框没有Caption属性。
• MaxLength属性 :
– 该属性设置文本框中输入的字符串长度是否有 限制。
文本框属性
• MultiLine属性 :
– MultiLine属性决定文本框是否支持多行显示文 本内容。
文本框
• 若要对任意选定的文本进行复制，只要将 上述事件过程中删除前两句定位语句，即 改为：
Private Sub Form_Click( ) Text2.text=Text1.SelText '被选定的字符串存入Text2中 End Sub
– 当选定要复制的文本后，单击窗体即可
文本框的常用事件
使用文本框（TextBox）输入 数据
• 文本框提供了所有基本字处理功能，在 Windows环境中几乎所有的输入动作都是 利用文本框来完成的。文本框是个相当灵 活的输入工具，可以输入单行文本，也可 以输入多行文本，还具有根据控件的大小 自动换行以及添加基本格式的功能。
文本框属性
• Text属性:
文本框的常用事件
• KeyPress事件
– 当在文本框中按任一键时触发。其基本语法如 下： – Sub Text_KeyPress(KeyAscii As Integer) – 其中，KeyAscii为按键对应的一个键码。例如， 输入“A”，则KeyAscii的值是65。可用函数 Chr$(KeyAscii)可得到字符“A”。
文本框的方法
• 【例4.3】 输入3种家电商品的单价、销售 数量，输出总销售额。
– 设计步骤如下。
• （1）建立应用程序界面。
– 在窗体中增加7个标签Label1～Label7，其中Label7用来 显示计算结果，其他6个标签用于提示，6个文本框和3个 命令按钮。
• （2）设置对象属性，请读者自行设计。 • （3）设计代码。
文本框的方法
Private Sub Command1_Click() '计算按钮的单击事件 Dim a1 As Single, b1 As Single, c1 As Single Dim a2 As Single, b2 As Single, c2 As Single Dim x As Single a1 = Val(Text1.Text) '电视机的单价 b1 = Val(Text2.Text) '洗衣机的单价 c1 = Val(Text4.Text) '电冰箱的单价 a2 = Val(Text4.Text) '电视机的数量 b2 = Val(Text5.Text) '洗衣机的数量 c2 = Val(Text6.Text) '电冰箱的数量 x = a1 * a2 + b1 * b2 + c1 * c2 '计算三种家电总销售额 Label7.Caption = x End Sub