VB NET第3章
合集下载
VB第3章
• 可访问性：与sub过程一样，可以是public、protected、 friend、protected friend、private，默认值是public。 • 参数列表的规则与sub过程相同。 • As 数据类型：指定返回值的类型。即函数返回给调用程序的 数据的类型，可以是数据类型，也可以是用户定义类型 （枚举、结构、类等）。
⑵后测型 DO—LOOP 循环 循环体至少执行一次。 格式1：DO 程序片段 LOOP While 条件式 功能：条件成立时(结果为真)，执行循环，否则跳离循环 体。 例： 格式2：DO 程序片段 LOOP Until 条件式 功能：条件不成立时(结果为假)，执行循环，否则跳离循 环体。 例： 注：在Do….Loop语句的循环体内可使用Exit Do语句跳 离循环。
• •
– 可选参数。 在调用过程时，必须递正确的参数个数或参数类 型，唯一例外是定义了可选参数。在过程定义时，可 以指明一个或多个参数是可选的，这样在过程调用时 就可以不包含这些可选参数。格式：
Optional 参数名称 ［=默认值］ 默认值是当过程被调用但没有传递参数的值 时参数具有的值，如果声明可选参数而没有给定 默认值，过程调用时也没有传值，则其值不确定。 声明的可选参数应放在参数列表的后面。如： sub mysub(name as string,optional country as string=”USA”,optional age as integer) …… End Sub
3. For ……Next 语句 用于循环次数固定。格式： For 计数变量=起始值 TO 终止值 ［Step 步进值］ 程序片段 Next ［计数变量］ 缺省Step，步进值为1。 循环次数固定，由 (终止值-起始值)/步进值+1 确 定。 注：在For….Next语句的循环体内可使用Exit For语句跳离循环。 例：
第三章 项目界面设计
程序设计 程序设计——项目界面设计 程序设计 项目界面设计
第13页 13页
三.工具栏的常用事件及方法
工具栏控件最常用的事件是Click事件； 工具栏控件最常用的事件是Click事件； Click事件 Click事件过程中通常使用Buttons.IndexOf方法 事件过程中通常使用Buttons.IndexOf方法判断 在Click事件过程中通常使用Buttons.IndexOf方法判断 用户单击了工具栏中哪个按钮，该方法返回被单击按钮 用户单击了工具栏中哪个按钮，该方法返回被单击按钮 的索引值。 索引值。 举例： 举例： Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick If ToolBar1.Buttons.IndexOf(e.Button) = 0 Then MsgBox("你单击了第一个按钮 你单击了第一个按钮") MsgBox("你单击了第一个按钮") End If End Sub
程序设计 程序设计——项目界面设计 程序设计 项目界面设计 第7页
MDI窗体的常用属性 二. MDI窗体的常用属性
MDI窗体的属性分父窗体属性和子窗体属性两种。 MDI窗体的属性分父窗体属性和子窗体属性两种。 窗体的属性分父窗体属性和子窗体属性两种 常用的MDI MDI父窗体属性 常用的MDI父窗体属性 1.ActiveMdiChild属性 用来表示当前活动的MDI子窗口。 属性: MDI子窗口 1.ActiveMdiChild属性:用来表示当前活动的MDI子窗口。 2.IsMdiContainer属性 用来获取或设置窗体是否为MDI 属性: MDI子 2.IsMdiContainer属性:用来获取或设置窗体是否为MDI子 窗体的容器， MDI父窗体 父窗体。 窗体的容器，即MDI父窗体。 3.MdiChildren属性:以窗体数组形式返回所有MDI子窗体， 3.MdiChildren属性:以窗体数组形式返回所有MDI子窗体， 属性 MDI子窗体 每个数组元素对应一个MDI子窗体。 MDI子窗体 每个数组元素对应一个MDI子窗体。 常用的MDI MDI子窗体的属性 常用的MDI子窗体的属性 1.IsMdiChild属性 用来获取该窗体是否为MDI的子窗体。 属性： MDI的子窗体 1.IsMdiChild属性：用来获取该窗体是否为MDI的子窗体。 2.MdiParent属性 用来指定该子窗体的MDI父窗体。 属性： MDI父窗体 2.MdiParent属性：用来指定该子窗体的MDI父窗体。
Visual BasicNET 程序设计第三章
3.2.1 顺序结构
顺序结构是程序设计中最简单、最常用的基本结构。在该结构中，各语 句的执行按照语句的书写次序逐条顺序执行，是任何程序的基本结构。案例 3-1是一个最简单的顺序结构程序。
1. 赋值语句 语句格式：变量名=表达式 对象.属性=表达式 语句功能：将‚=‛右边表达式的值赋给左边的变量（或对象的属性）。 说明： ⑴‚=‛是赋值号，不是等号。 ⑵表达式中可以包含变量、常量、属性值。 ⑶赋值号两边的数据类型通常应保持一致。 赋值语句举例： i%=5 ’i%为整型变量，将整数５赋给i% i%=i%+1 ’在i%=5的基础上加１其结果为6，再将整 数6 赋给i% ch$=‛abcd‛ ’ch$为字符串变量，将‛abcd‛赋给ch$ Text1.text=‛‛ ’清除文本框的内容 Me.Text=‛启动‛ ’指定窗体的标题为‛ 启动‛
第3章 程序设计基础
本章导读 本章主要介绍的基本程序结构、过程与函数编 写、变量作用范围以及VBNET程。
3.1 编程基础
3.1.1 程序的基本结构 案例3-1 显示用户在文本框中输入的数据。 [知识点分析] 是面向对象、事件驱动的程序设计语言。基本的编程思路是对 象触发事件时（程序代码执行的时机）应如何响应（编写代码）。 编写代码的基本思路：发生某事件时，如何取得或设置对象的属性；如 何调用对象的方法。 本案例使用三种类型的控件： ⑴标签控件Label，主要作用是显示静态文字，即对其他在窗体上的 控件 进行文字性说明，或显示程序运行的结果。 ⑵按钮控件Button：单击按钮时，执行该事件过程的代码；主要掌 握其单 击事件（Click）。 ⑶文本框控件TextBox：用于接受用户的输入文本。 三种类型的控件都有一个共同的属性Text，表示显示在控件的文字。
第3章-Visual BasicNET程序设计教程(第二版)-朱志良-清华大学出版社
MessageBox.Show("FormClosed!") End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _ System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.Cancel = True Else
MessageBox.Show("FormClosing！") End If End Sub
窗体的启动
鼠标与键盘事件
• 鼠标事件
– 在Windows环境下，使用鼠标可以很轻易地点 取各种选项、按钮，移动对象的图标和插入点， 编辑文档或者执行各种应用程序，所有的这些 动作都可由鼠标事件来处理。
类型 按钮
Name属性 Text属性
btnShow
Show
btnHide
Hide
btnClose Close
btnSetBounds SetBounds
Public Class Form1
Dim As New Form2
'添加代码，声明一个Form2类型的对象frm2
Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles btnShow.Click
frm2.Show()
'添加代码，调用frm2的Show方法
End Sub
Private Sub btnHide_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
e.Cancel = True Else
MessageBox.Show("FormClosing！") End If End Sub
窗体的启动
鼠标与键盘事件
• 鼠标事件
– 在Windows环境下，使用鼠标可以很轻易地点 取各种选项、按钮，移动对象的图标和插入点， 编辑文档或者执行各种应用程序，所有的这些 动作都可由鼠标事件来处理。
类型 按钮
Name属性 Text属性
btnShow
Show
btnHide
Hide
btnClose Close
btnSetBounds SetBounds
Public Class Form1
Dim As New Form2
'添加代码，声明一个Form2类型的对象frm2
Private Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles btnShow.Click
frm2.Show()
'添加代码，调用frm2的Show方法
End Sub
Private Sub btnHide_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
vb net经典教程
本章目录
例 如 ： 工 具 箱 内 的 TextBox 是 类 ( 它 确 定 了 TextBox的属性、方法和事件) 窗体上显示的是两个Text对象
Text类 Text对象
本章目录
2.1.2 对象的属性、事件和方法
属性、事件和方法构成对象的三要素 1. 属性 存放对象的数据(决定对象外观及功能) 例如，控件名称、文本、大小等属性。 对象属性的设置方法： 设计阶段 利用属性窗口直接设置属性值 程序运行时 通过语句对象名.属性名=属性值 例如：Button1.Text = "确定" 注意：若属性只能在设计阶段设置，在程序运行 阶段不可改变，称为只读属性。
目
录
第一章 基础 第二章 简单的程序设计 第三章 语言基础 第四章 基本的控制结构 第五章 数 组 第六章 过 程 第七章 用户界面设计 第八章 面向对象程序设计基础 第九章 文 件 第十章 图形应用程序开发 第十一章 数据库应用程序开发
第一章 基础
窗体窗口 属性窗口
输出窗口
本章目录
1.2.2主窗口
1.三种工作模式 设计模式 界面的设计和代码的编制 运行模式 运行应用程序 中断模式 暂时中断程序运行，调试程序 2. 菜单栏 包括11个下拉菜单 3. 工具栏
本章目录
1.2.3 窗体设计/代码设计窗口
1.窗体设计器窗口 建立应用程序的界面(一个应用程序可以 有多个窗体，通过“项目|添加Windows窗体” 命令增加新窗体)。 2.代码设计窗口 专门用来进行代码设计，包括各种事件过程、过 程和类等源程序代码的编写和修改。 打开代码设计窗口的方法：双击窗体、控件或单 击代码窗口上方的选项卡组对应项。
1.1 概述 1.2 集成开发环境 1.3 使用帮助系统
例 如 ： 工 具 箱 内 的 TextBox 是 类 ( 它 确 定 了 TextBox的属性、方法和事件) 窗体上显示的是两个Text对象
Text类 Text对象
本章目录
2.1.2 对象的属性、事件和方法
属性、事件和方法构成对象的三要素 1. 属性 存放对象的数据(决定对象外观及功能) 例如，控件名称、文本、大小等属性。 对象属性的设置方法： 设计阶段 利用属性窗口直接设置属性值 程序运行时 通过语句对象名.属性名=属性值 例如：Button1.Text = "确定" 注意：若属性只能在设计阶段设置，在程序运行 阶段不可改变，称为只读属性。
目
录
第一章 基础 第二章 简单的程序设计 第三章 语言基础 第四章 基本的控制结构 第五章 数 组 第六章 过 程 第七章 用户界面设计 第八章 面向对象程序设计基础 第九章 文 件 第十章 图形应用程序开发 第十一章 数据库应用程序开发
第一章 基础
窗体窗口 属性窗口
输出窗口
本章目录
1.2.2主窗口
1.三种工作模式 设计模式 界面的设计和代码的编制 运行模式 运行应用程序 中断模式 暂时中断程序运行，调试程序 2. 菜单栏 包括11个下拉菜单 3. 工具栏
本章目录
1.2.3 窗体设计/代码设计窗口
1.窗体设计器窗口 建立应用程序的界面(一个应用程序可以 有多个窗体，通过“项目|添加Windows窗体” 命令增加新窗体)。 2.代码设计窗口 专门用来进行代码设计，包括各种事件过程、过 程和类等源程序代码的编写和修改。 打开代码设计窗口的方法：双击窗体、控件或单 击代码窗口上方的选项卡组对应项。
1.1 概述 1.2 集成开发环境 1.3 使用帮助系统
VB_NET(chapter03)
பைடு நூலகம்
属性设置列表（格式2）
表3.2 对象属性设置（格式2） ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 对 象 属性 设置值 ──────────────────────────────── 窗体 Name Form1 Text " Visual 应用程序设计示例" 左按钮 Name Button1 Text " "显示" " 中按钮 Name Button2 Text "清屏" 右按钮 Name Button3 Text "结束" 文本框 Name TextBox1 Text 空白 字体 宋体 字形 粗斜体 大小 16 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
⑥Visual 自动为 Form1生成的程序代码。 ⑦Form1类定义结束。 ⑧以大纲方式显示源代码。 ⑨拆分栏。
（2）编写过程代码
过程代码是针对某个对象事件编写的。为了指明某个 对象的操作，必须在方法或属性前加上对象名，中间 用句点（.）隔开。
例如： TextBox1.Text = "欢迎使用Visual " 这里的TextBox1是控件（对象）名，Text是文本框的属性。执行上面的语句 后，将在TextBox1文本框中显示“欢迎使用Visual ”。 如果不指出对象名，则方法或属性是针对当前窗体的。注意，与控件的属性 设置不同，当通过代码设置窗体的标题（Text属性）时，不能用窗体名称（如 Form1）作为对象名。 例如： Form1.Text = "程序设计" 是错误的，必须写作 Me.Text = “程序设计“ 或
属性设置列表（格式1）
控件放在窗体中，窗体及其控件构成了用户界 面。程序运行后，如果对界面不满意，可以结 束运行，然后进行调整。
属性设置列表（格式2）
表3.2 对象属性设置（格式2） ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 对 象 属性 设置值 ──────────────────────────────── 窗体 Name Form1 Text " Visual 应用程序设计示例" 左按钮 Name Button1 Text " "显示" " 中按钮 Name Button2 Text "清屏" 右按钮 Name Button3 Text "结束" 文本框 Name TextBox1 Text 空白 字体 宋体 字形 粗斜体 大小 16 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
⑥Visual 自动为 Form1生成的程序代码。 ⑦Form1类定义结束。 ⑧以大纲方式显示源代码。 ⑨拆分栏。
（2）编写过程代码
过程代码是针对某个对象事件编写的。为了指明某个 对象的操作，必须在方法或属性前加上对象名，中间 用句点（.）隔开。
例如： TextBox1.Text = "欢迎使用Visual " 这里的TextBox1是控件（对象）名，Text是文本框的属性。执行上面的语句 后，将在TextBox1文本框中显示“欢迎使用Visual ”。 如果不指出对象名，则方法或属性是针对当前窗体的。注意，与控件的属性 设置不同，当通过代码设置窗体的标题（Text属性）时，不能用窗体名称（如 Form1）作为对象名。 例如： Form1.Text = "程序设计" 是错误的，必须写作 Me.Text = “程序设计“ 或
属性设置列表（格式1）
控件放在窗体中，窗体及其控件构成了用户界 面。程序运行后，如果对界面不满意，可以结 束运行，然后进行调整。
第3章 VBNET窗体及控件
1．Focus方法 2．Clear方法 3．Copy、Cut和Paste方法 4．Select 5．SelectAll方法
【例3-7】使用文本框的相关方法，制作一个简单 的文本编辑器。其运行界面如图所示
源程序
3.5 数据的输入与输出
3.5.1 InputBox函数
【格式】 变量=InputBox（promt[,title][,default][,x.pos][,ypos]
3.2 命令按钮
• 3.2.1 命令按钮的常用属性 • 3.2.2 命令按钮的常用事件 • 3.2.3 命令按钮的常用方法
3.2.1 命令按钮的常用属性
• 基本属性
– Name、text、颜色、位置和大小等属性，与窗体类似。
• 其他属性
1．TextAlign属性：设置命令按钮上文字的对其方式，见 51页表3-9。 2．FlatStyle属性：设置命令按钮的外观，见52页表3-10。 3．Image、BackGroundImage和ImageAlign属性：设置命令 按钮上现实的图形文件、背景图形和图形在其上的对其 方式。 4．Enabled属性：设置命令按钮是否可用。 5．快捷访问键：设置按钮的快捷键。
注意：文本框用做 输入、输出时，语 句书写的区别
源程序
3.4.2 多行文本框
• 1．MultiLine属性和WordWrap属性
– 将MultiLine属性值设置为True，可以使文本框在运行时接收或显示 多行文本。
– 文本框的WordWrap属性指示文本框是否自动换行，其值是逻辑值。当 WordWrap属性值为True（默认值）时，文本框支持自动换行；反之，文本 框不支持自动换行。
3.1.4 窗体的常用方法
1．加载并显示窗体的Show方法 2．隐藏窗体的Hide方法 3．关闭窗体的Close方法
【例3-7】使用文本框的相关方法，制作一个简单 的文本编辑器。其运行界面如图所示
源程序
3.5 数据的输入与输出
3.5.1 InputBox函数
【格式】 变量=InputBox（promt[,title][,default][,x.pos][,ypos]
3.2 命令按钮
• 3.2.1 命令按钮的常用属性 • 3.2.2 命令按钮的常用事件 • 3.2.3 命令按钮的常用方法
3.2.1 命令按钮的常用属性
• 基本属性
– Name、text、颜色、位置和大小等属性，与窗体类似。
• 其他属性
1．TextAlign属性：设置命令按钮上文字的对其方式，见 51页表3-9。 2．FlatStyle属性：设置命令按钮的外观，见52页表3-10。 3．Image、BackGroundImage和ImageAlign属性：设置命令 按钮上现实的图形文件、背景图形和图形在其上的对其 方式。 4．Enabled属性：设置命令按钮是否可用。 5．快捷访问键：设置按钮的快捷键。
注意：文本框用做 输入、输出时，语 句书写的区别
源程序
3.4.2 多行文本框
• 1．MultiLine属性和WordWrap属性
– 将MultiLine属性值设置为True，可以使文本框在运行时接收或显示 多行文本。
– 文本框的WordWrap属性指示文本框是否自动换行，其值是逻辑值。当 WordWrap属性值为True（默认值）时，文本框支持自动换行；反之，文本 框不支持自动换行。
3.1.4 窗体的常用方法
1．加载并显示窗体的Show方法 2．隐藏窗体的Hide方法 3．关闭窗体的Close方法
第3章 程序基本控制结构
输入代码如下：
Dim sYourScore As string Dim iScore As integer
System.console.WriteLine(“请输入你的考试分数 （0－－100)之间：”) sYourScore=System.Console.ReadLine iScore = convert.toInteger(sYourScore)
基本语句
模拟文件读取出错
程序运行结果：
基本语句
Case 语句的用法
Case语句的用法
至此为止，Select Case语句的三种用法都 已经用到了，下面总结一下： （1）Case…To…的形式 表示被选择的表达式处于某个范围以内 （2）Case Is…的形式 表示被选择的表达式满足某个条件，当然， Is后面不一定是等于，只要是比较运算符 （＝，<,>,<>等）就可以。 （3）Case …的形式 这事实上相当于Case Is =的形式。
基本语句
Case 语句的用法
Case语句的用法
如果所有的条件都不能满足，Select Case 将会进入到Case Else语句。虽然Case Else语句可以不写，但是选择完了所有的 条件以后，最好加上Case Else..，这是用 来处理异常情况的。比如在这个程序中， 如果用户输入期望以外的值，就执行Case Else输出信息，告诉用户输入无效，这样 就大大地提高了程序对抗错误输入的能力， 也就是所谓的“健壮”。
四. 猜数游戏
代码实现
用Select…Case语句判断输入的数字是否 正确 记录猜测次数 演示
四. 猜数游戏
思考
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
第三章
（2）Items.Clear 该方法用来清除列表框的全部内容，对应清空Items集合中所有元素， Items集合为空。 （3）Items.Remove 用该方法可以删除列表框中指定的项目，即删除鼠标所选择的项 目，并从Items集合中删除对应元素。 本例子编写3个按钮的单击事件过程。“添加”按钮单击事件过程完成以下任 务： （1）从ListBox1控件的SelectedItem属性获得所选商品的信息。 （2）使用字符串类型的Substring方法，从所选商品信息中获得该商品的单价。 （3）判断选择该商品后消费额是否超资？ 不超资： ① 使用Items.Add方法将商品架上所选择的商品信息添加到购物车； ② 把所选商品价格累加到模块级变量，累加结果显示在“实收”文本框中； ③ 计算找零并显示在“找零”文本框中。 超资：不进行累加，也不把所选择的商品信息添加到购物，车并给出提示。
本框中输入商品单价，然后点击“打印单据”按钮，程序 将 计算找零并显示结果。有关如何 打印将请参考“用户界面”一 章，在本例中计算结果在 “余额”文本框中显示。 图3-1
第三章
玩具 火车模型 火车轨道 价格 120元/辆 20元/节
“打印单据”按钮的单击事件过程代码如下显 示: Private Sub Button1_Click(ByVal sender _ As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Dim DecIncome As Decimal DecIncome = TextBox1.Text Dim DecCheckout As Decimal Dim DecPrice As Decimal DecPrice = TextBox2.Text DecCheckout = DecIncome - DecPrice TextBox3.Text = DecCheckout End Sub
3.2.1 IF语句
IF语句是用来判定给定的条件是否满足，如果符合某个条件(即当条件为 True 时)，就执行某些代码，反之，则执行其它代码。
1）单分支IF条件语句
• 语句格式： If <表达式> Then 语句块 End If
第三章
这种If语句的执行过程见图3-4所示。 • 功能： If后面的逻辑（或关系）表达式作为条件，程序根据条件的值分别执行相应的 操作。当条件成立，也就是它的值为TRUE时，则执行Then后面的语句块，否则 跳过Then后面的子句直接执行If语句后面的语句。 • 说明： （1）If后面的表达式通常为关系表达式或者逻辑表达式，也可以是算术表达式、 字符表达式等等。当表达式的值为真时，称为条件成立；值为假时，称为条件不 成立。算术表达式返回非零值被当作True，返回零值被当作False。 （2）在单分支的块If语句中，末尾必须加上End If作为整个条件语句的结束标识，
第三章
“删除”按钮单击事件过程主要完成： （1）获得所选商品信息。 （2）重新计算消费总额、找零并刷新显示。 “打印单据”按钮事件过程将在下一节叙述。
• 程序代码如下：
Private sum As Decimal '定义选购商品的总金额为模块级变量 Private Sub ButAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles ButAdd.Click'“添加”按钮单击事件过程 Dim temp1, temp2 As String '定义两个临时变量为字符串类型 temp1 = ListBox1.SelectedItem '把商品架上(ListBox1)上所选项内容赋值给temp1 Dim price As Decimal '定义商品单价变量 temp2 = temp1.Substring(5) '所选商品信息的第5个字符起的子字符串为商品价格 price = Conversion.Val(temp2) '商品价格字符串转换为数值 If sum + price <= Conversion.Val(TxtIncome.Text) Then '判断是否超资 sum = sum + price '不超资则进行累加 ListBox2.Items.Add(temp1) '把把商品架上(ListBox1)上所选的项添加到购物车(ListBox2)
第三章
该程序不但能允许用户自由选择商品，还能自动对商品的价格进行累加，并 同时计算找零。由于程序中使用了选择语句，该程序能根据所计算消费总额与用 户支付金额的差来判断是否给用户警告。这就是选择结构的程序设计在本例子的 应用。 在Visual 中，能够实现选择结构的语句主要包括两种：IF语句和 Select Case语句。其特点是：根据给定的条件，如果符合某个条件（即当条件为 True）或不符合某个条件（即当条件为False），程序会从各个实际可能的不同分 支中执行某一分支的相应操作（程序块）。并且无论条件多少，都只能够执行其 中的一个操作。
的SelectItem属性值为“军舰模型 35”。
• 方法：
列表框可以使用Items.Add、Items.Clear和Items.Remove等三种方 法，用来在运行期间修改列表框的内容。 （1）Items.Add 该方法用来在列表框中插入一行文本，并中插入Items集合中，成为该 集合的一个新项目。
该程序在执行时，是从第一条语句一直执行到 最后一条语句End Sub。这种程序结构称为顺序结 构，其特点是所有语句都将按顺序执行。
3.2 选择结构程序设计
买品牌笔记本电脑 钱 包 买一台台式机 这就是选择问题。同样，在程序设计中也会经常遇到这类问题，它需要
根据不同的情况采用不同的处理方法。
第三章
例子3-2：玩具商场收银程序。
遥控汽车
飞机模型 军舰模型 汽车模型 汽车跑道
表3-1
130元/辆
80元/架 35元/艘 25元/辆 15元/节
程序中DecIncome变量用于存储用户交纳的金额，由 TextBox1控件输入。 DecPrice变量用于存储商品的价格，由 TextBox2控件输入。余额显示在TextBox3控件。
第三章
第3章 程序
控制结构
本章学习目标
本章介绍结构化程序设计的3种结构： 顺序结构、选择结构和循环结构，以及 Visual 中实现这3种结构的相 关语句。本章的例子3-1为原型，通过不 断扩充原型程序的功能，读者能够学会如 何使用这3种结构编写一些功能复杂的程 序。
第三章
程序控制结构
第三章
这种If语句的执行过程见 图3-5 所示。 • 功能： 程序根据条件的值分别执行相应的操作。当条件成立，也就是它的值为TRUE 时，则执行Then后面的语句块1，否则，也就是它的值为FLASE时，则执行Else 后面的语句块2。 说明： （1）在双分支的块If语句中，末尾同样必须加上End If作为整个条件语句的结束 标识。
改进后的程序界面如图3-2所示。用户首先输入实收金额，然后在“商品目
录” 列表框中单击一个商品目录，则该商品目录就出现在采购清单上，同时计算用户
消费总额，该值显示在“应收”文本框中，找零是“实收”与“应收”的差值。
图3-2
第三章
本 例 子 的 界 面 设 计 除 了 使 用 Label 控 件 和 TextBox 控 件 外 ， 还 用 到 ListBox（列表框控件），分别用于显示“商品目录”和“采购清单”。列表 框控件是用于显示项目列表的控件，比如本例中列表框用于显示每件（类）商 品的信息，从其中可以选择一项或多项。
TxtSum.实收"文本框中
TxtCharge.Text = Conversion.Val(TxtIncome.Text) - sum '计算找零并显示在"找 零"文本框中 Else MessageBox.Show("您的资金不够！", "提示") '超资则不进行累加并给出提示 End If End Sub Private Sub ButDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles ButDel.Click'“删除”按钮单击事件过程 Dim temp1, temp2 As String '定义两个临时变量为字符串类型 temp1 = ListBox2.SelectedItem '把购物车(ListBox2)上所选项内容赋值给temp1 Dim price As Decimal '定义商品单价变量 temp2 = temp1.Substring(5) '所选商品信息的第5个字符起的子字符串为商品价格 price = Conversion.Val(temp2) '商品价格字符串转换为数值 sum = sum - price '从总价中扣除该商品价格 TxtSum.Text = sum '累加结果显示在"实收"文本框中 TxtCharge.Text = Conversion.Val(TxtIncome.Text) – sum '计算找零并显示在"找零"文本框中 ListBox2.Items.Remove(ListBox2.SelectedItem) '从购物车中删除所选项目 End Sub
• • • • 3.1 3.2 3.3 3.4 顺序结构程序设计 选择结构程序设计 循环结构程序设计 其他控制语句
第三章
3.1 顺序结构程序设计
例 3-1:
以一个玩具商场的结算程序为例子，该程序计算用户
他购买一个玩具后还有多少余钱。 玩具的价格如