VB NET第3章

第三章
（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:
以一个玩具商场的结算程序为例子，该程序计算用户
他购买一个玩具后还有多少余钱。 玩具的价格如