第3章顺序结构程序设计.docx

1、第3章 顺序结构程序设计第3章 顺序结构程序设计3.1 数据输出 3.1.1 Console控制台类 Console控制台类表示控制台应用程序的标准输入流、输出流和错误流。Console类对从控制台读取字符并向控制台写入字符的应用程序提供基本支持。它提供用于从控制台读取单个字符或整行的方法，还提供若干写入方法，可将值类型的实例、字符数组以及对象集自动转换为格式化或未格式化的字符串，然后将该字符串（可选择是否尾随一个行终止字符串）写入控制台。 Console控制台类常用的方法有Write（不换行输出）方法和WriteLine（换行输出）方法。1. Write方法Console.Write(表达式

2、)【例3-1】计算当圆半径r=10时，圆面积是多少。代码如下：Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _Handles MyBase.Click Const PI = 3.14 Dim r, s As Decimal r = 10 s = PI * r * r Console.Write(s)End Sub2. WriteLine方法WriteLine方法将指定的数据（后跟当前行结束符）写入标准输出流输出到输出窗口。Console.WriteLine(表达式)例如：Console.

3、WriteLine(3)Console.WriteLine(7)Console.WriteLine(8)3.1.2 使用Label控件实现数据输出Label控件的常用属性 Label控件的常用方法 3.2 数据输入TextBox控件的常用属性TextBox控件的常用方法 TextBox控件常用事件 3.3 控制数据的输入和输出 Button控件允许用户在需要时，通过单击来执行操作。 Button控件的常用属性与Label控件的属性类似，其常用方法与Label、TextBox控件类似。【例3-2】编制程序。由用户输入圆半径，程序能够计算出圆面积。设计步骤如下：（1）建立应用程序用户界面和添加控件

4、。在窗体上添加2个命令按钮Button1Button2，3个标签对象Label1Label3，1个文本框对象TextBox1。（2）设置各对象的属性 。（4）编写事件代码。编写“计算”命令按钮Button1的Click（单击）事件代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click Const PI = 3.14 设置圆周率常量PI Dim r, s As Decimal r = CDec(TextBox1.Text) 将输入

5、数据转换为数值数据赋给变量r s = PI * r * r 计算圆面积 Label3.Text = s 将计算结果输出到标签中 Label3.Visible = True 将标签显示End Sub编写“重新输入”命令按钮Button2的Click事件：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button2.Click Label3.Visible = False 将标签隐藏 TextBox1.Clear() 清空文本框中数据 TextBox1.F

6、ocus() 将光标移到文本框上End Sub（4）运行程序。 将数据输入到文本框中，单击“计算”按钮，再单击“重新输入”按钮，观察结果。 说明：当把工具箱中的控件添加到窗体上，就变成对象了。但在不引起误解的情况下，也可以将窗体上的对象称为控件，例如添加3个标签控件。3.4 常用基本语句3.4.1 赋值语句将指定的值赋给某个变量或对象的某个属性。其语法格式为：目标操作符=源操作符说明：（1）源操作符包括变量、常量、表达式以及带有属性的对象。（2）目标操作符包括变量以及带有属性的对象。（3）该语句的功能是将源操作符的值赋给目标操作符，是先计算再赋值。例如： Dim i, j As Integer

7、 i = 5 j = i * 2（4）给对象的属性赋值，实际上是通过给对象的属性赋值，来改变对象的属性设置。例如： Label1.Text = 请输入一个数 Button1.Text = 计算3.4.2 使用ToolTip控件显示提示 VB 2005提供了ToolTip（信息提示）控件，来实现信息提示功能。 ToolTip控件不能添加到窗体中，只能出现在窗体下面的面板中。同时，在该窗体的每个对象的属性中，都会出现一个名为“ToolTip1上的ToolTip”属性。程序员可以在该属性中输入提示信息。【例3-3】输入圆柱体的底面半径和高，求圆柱体的体积和表面积。编写“计算”命令按钮Button1的

8、Click事件代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click Dim r, h, s, v, pi As Decimal pi = 3.14 r = TextBox1.Text h = TextBox1.Text s = Math.Round(pi * r * 2) * h + 2 * (pi * r 2), 2) v = Math.Round(pi * r 2) * h, 2) TextBox3.Text = s Te

9、xtBox4.Text = vEnd Sub3.4.3 注释语句 为了提高程序的可读性，通常在程序的适当位置加上一些注释。注释语句用来对程序代码进行说明，不参与程序的执行。其语法格式为： Rem 注释内容或 注释内容说明：（1）注释内容是说明的内容，不参与程序的编译。（2）Rem关键字通常用来进行整行注释，而“”通常尾随在代码之后进行注释。（3）在Rem关键字与注释内容之间要加一个空格，也可以用撇号“”来替代Rem关键字。若在语句行尾注释，须用空格与语句隔开。3.5 修饰输入/输出3.5.1 设置字体格式1. 在属性窗口中设置Font属性2. 通过代码设置Font属性在编写代码过程中设置字体格

10、式，需要生成一个新的Font类。其语法格式为：对象名.Font = New Font (字体名,字体大小,字体样式,字体单位 )3.5.2 颜色 建立界面时，可以在属性窗口中，通过设置ForeColor属性设置字体颜色，通过设置BackColor属性设置背景颜色。ForeColor属性和BackColor属性都是一个下拉列表。另外，还可以通过程序代码，在编程过程中设置颜色。 VB 2005使用固定的颜色系统，每种颜色都由一个Long型数据表示。VB 2005提供了两种方式来指定颜色值。1. 将内部颜色常数赋给颜色属性 VB 2005提供了许多内部颜色常数，通过给颜色属性赋值，可以实现颜色的设置

11、。其语法格式为：对象名.ForeColor | BackColor =颜色常数说明：颜色常数表示指定颜色的名称，例如Color.Black、Color.Red等。2. 使用FromOle方法VB 2005提供了System.Drawing命名空间的ColorTranslator类的FromOle方法，通过设置该方法的操作，可以实现颜色的设置。其语法格式为： 对象名.ForeColor|对象名.BackColor= System.Drawing.ColorTranslator.FromOle (参数)说明：（1）参数可以是QBColor函数。该函数可以表示16种颜色，其参数取值为015。其语法格

12、式如下：QBColor(015的整数)（2）参数也可以是RGB函数。该函数使用3种颜色（红、绿、蓝）的饱和度表示颜色。每种颜色的取值为0255。其语法格式如下：RGB(0225的整数,0225的整数,0225的整数)3.5.3 背景图片1. 通过属性窗口设置背景图片 窗体和命令按钮通过BackgroundImage属性设置背景图片。 标签通过Image属性设置背景图片。2. 通过代码设置背景图片 VB 2005提供了System.Drawing命名空间的Image类的FromFile方法，通过设置该方法，可以在编写代码时设置背景图片。其语法格式为： 对象名. BackgroundImage |

13、 Image = System.Drawing.Image.FromFile (图片文件路径) 如果窗体有背景图片，而标签只是文本显示，则需要将标签的BackColor属性的Web选项卡设置为Transparent，使标签透明显示。【例3-5】如图所示，为窗体设置背景图片，当单击不同的按钮时，可以改变文本的字体格式和颜色。（1）建立应用程序用户界面和添加控件。在窗体上添加6个命令按钮Button1Button6，1个标签Label1，1个信息提示对象。（2）设置各对象的属性。 （3）编写事件代码。编写窗体Form1的Load事件代码：Private Sub Form1_Load(ByVal s

14、ender As System.Object, ByVal e As System.EventArgs) _Handles MyBase.Load Me.BackgroundImage = System.Drawing.Image.FromFile(C:Blue hills.jpg)End Sub编写“黑体”命令按钮Button1的Click事件代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button3.Click Label1.Font =

15、New Font(黑体, 15) 设置标签的字体End Sub编写“楷体”命令按钮Button2的Click事件代码：Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click Label1.Font = New Font(楷体, 15) 设置标签的字体End Sub编写“隶书”命令按钮Button3的Click事件代码：Private Sub Button3_Click(ByVal sender As System.Object, ByVal e A

16、s System.EventArgs) _Handles Button2.Click Label1.Font = New Font(隶书, 15) 设置标签的字体End Sub编写“红色”命令按钮Button4的Click事件代码：Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button4.Click Label1.ForeColor = Color.Red 设置标签字体的颜色End Sub编写“绿色”命令按钮Button5的Click事件代码：Pr

17、ivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button5.Click Label1.ForeColor = System.Drawing.ColorTranslator.FromOle(QBColor(3)End Sub编写“蓝色”命令按钮Button6的Click事件代码：Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Han

18、dles Button6.Click Label1.ForeColor = System.Drawing.ColorTranslator.FromOle(RGB(0, 255, 0)End Sub3.5.4 对象分组 VB 2005提供了GroupBox（组框）控件，可以将窗体上杂乱的控件对象分组。GroupBox控件的常用属性 是AutoSize 。 说明：（1）组框控件一般只使用属性。（2）组框是一个典型的容器类控件。容器类控件指可以容放其他控件的控件，例如组框、窗体等。而标签、文本框等属于非容器类控件，非容器类控件是指不能容放其他控件的控件。3.6 顺序结构程序设计实例【例3-6】从键盘

19、输入一元二次方程的二次项系数、一次项系数和常数项，输出判别式b2-4ac的值。（1）建立应用程序用户界面和添加控件。在窗体上添加若干文本框控件对象。（2）设置对象属性。（3）编写事件代码。编写“计算”命令按钮Button1的Click事件代码：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click Dim b, a, c, v As Double b = CDbl(TextBox1.Text) a = CDbl(TextBox2.Te

20、xt) c = CDbl(TextBox3.Text) v = b 2 - 4 * a * c TextBox4.Text = CStr(v)End Sub【例3-7】设某职工应发工资x元，试求最佳付款方案。（1）建立应用程序用户界面和添加控件。在窗体上添加1个文本框控件对象。（2）设置对象属性。（3）编写事件代码。编写“应付”命令按钮Button1的Click事件代码：Private Sub B_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles Button1.Click Dim salary

21、 As Integer Dim a100, a50, a20, a10, a5, a1 As Integer salary = TextBox1.Text salary为应发工资数 a100 = salary 100 求百元票张数 TextBox2.Text = a100 显示百元票张数 salary = salary - 100 * a100 求剩余款项 a50 = salary 50 求伍拾元票张数 TextBox3.Text = a50 salary = salary - 50 * a50 a20 = salary 20 求贰拾元票张数 TextBox4.Text = a20 salary = salary - 20 * a20 a10 = salary 10 求拾元票张数 TextBox5.Text = a10 salary = salary - 10 * a10 a5 = salary 5 求伍元票张数 TextBox6.Text = a5 a1 = salary - 5 * a5 求壹元票张数 TextBox7.Text = a1 End Sub