【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：VB NET+第3章 - 综合课件绩等信息，祝愿广大网友取得需要的信息，参考学习。

    

333.1 3.1 顺序结构顺序结构3.2 3.2 数据的输入与输出数据的输入与输出3.3 3.3 选择结构选择结构3.4 3.4 循环结构循环结构3.5 3.5 其它语句其它语句前前言言VB 2005VB 2005采用面向对象的编程但在编写过程的程序代码采用面向对象的编程但在编写过程的程序代码时仍然需要对代码的执行流程进行控制。

    与结构化程序时仍然需要对代码的执行流程进行控制。

    与结构化程序设计一样设计一样VB 2005VB 2005提供了三种结构对代码的流程进行控制提供了三种结构对代码的流程进行控制这三种基本控制结构是这三种基本控制结构是顺序结构顺序结构、、选择结构选择结构和和循环结构循环结构。

    。

    掌握了这些语句就可以编写功能复杂的程序了各种复掌握了这些语句就可以编写功能复杂的程序了各种复杂的程序就是由若干个基本结构组成的。

    杂的程序就是由若干个基本结构组成的。

    本章主要介绍实现三种基本控制结构的流程控制语句本章主要介绍实现三种基本控制结构的流程控制语句以及常用的控件。

    以及常用的控件。

    3.1 3.1 顺序结构顺序结构顺序结构就是整个程序按语句的书写顺序依次执行即先顺序结构就是整个程序按语句的书写顺序依次执行即先执行前面的语句再执行后面的语句按自上而下顺序依次执行前面的语句再执行后面的语句按自上而下顺序依次运行。

    运行。

    本节主要介绍常用的几种顺序语句。

    本节主要介绍常用的几种顺序语句。

    语句A语句B3.1.1 3.1.1 赋值语句赋值语句赋值语句是顺序结构的最基本组成部分。

    用赋值语句可以赋值语句是顺序结构的最基本组成部分。

    用赋值语句可以把指定的值赋给某个变量或某个带有属性的对象。

    其语法格把指定的值赋给某个变量或某个带有属性的对象。

    其语法格式如下式如下〈〈目标操作符目标操作符〉〉〈〈源操作符源操作符〉〉例如将常量、变量、表达式的值赋给例如将常量、变量、表达式的值赋给〈〈目标操作符目标操作符〉〉。

    。

    Dim i j As IntegerDim i j As Integeri 10i 10j i 10j i 10Dim s As StringDim s As Strings quots quot计算机计算机quot amp quotquot amp quot学院学院quotquotVB 2005VB 2005是一种典型的面向对象编程语言所以赋值语句是一种典型的面向对象编程语言所以赋值语句通常是给某一个对象的属性赋值。

    通常是给某一个对象的属性赋值。

    例如例如Label1.Text quotLabel1.Text quot早上好早上好quotquot3.1.2 3.1.2 注释语句注释语句为了提高程序的可读性通常应在程序的适当位置加上为了提高程序的可读性通常应在程序的适当位置加上一些注释。

    注释语句用来对程序代码的说明但不参与程一些注释。

    注释语句用来对程序代码的说明但不参与程序的执行。

    其语法格式如下序的执行。

    其语法格式如下Rem Rem 〈〈注释内容注释内容〉〉或或〈〈注释内容注释内容〉〉例如例如REM REM 声明变量声明变量Dim x y As IntegerDim x y As Integerx 125 x 125 把常量赋值给变量把常量赋值给变量xxy x 2 y x 2 REM REM 把把xx的平方值赋给变量的平方值赋给变量yy3.2 3.2 数据的输入与输出数据的输入与输出VB 2005VB 2005提供了许多种方法来实现数据的输入与输出例如提供了许多种方法来实现数据的输入与输出例如第第22章用到的章用到的ConsoleConsole控制台类在输出窗口中进行应用程序的控制台类在输出窗口中进行应用程序的标准输入与输出。

    但使用标准输入与输出。

    但使用控件控件在窗体上实现数据的输入与输在窗体上实现数据的输入与输出是出是VB 2005VB 2005最常用的也是最简单的方法。

    最常用的也是最简单的方法。

    本节主要介绍常用控件和组件的基本使用。

    本节主要介绍常用控件和组件的基本使用。

    3.2.1 3.2.1 标签标签LabelLabel控件控件VB 2005VB 2005提供了标签提供了标签LabelLabel控件常用来控件常用来输出输出数据。

    数据。

    程序员通过给标签的属性赋值可以输出结果并可以改程序员通过给标签的属性赋值可以输出结果并可以改变标签的外观以美化数据的输出。

    变标签的外观以美化数据的输出。

    标签标签LabelLabel控件常用的属性和方法见下表。

    控件常用的属性和方法见下表。

    属性名属性名说明说明取值及行为取值及行为NameName对象名对象名系统默认值为系统默认值为LabelXLabelXAutoSizeAutoSize是否根据字号自动调整大小是否根据字号自动调整大小FalseFalse不能自动调整不能自动调整TrueTrue可以自动调整系统默认值可以自动调整系统默认值BackColorBackColor背景色背景色ControlControl系统默认值系统默认值EnabledEnabled是否可用是否可用FalseFalse不能用不能用TrueTrue可以用系统默认值可以用系统默认值FontFont字体字体宋体宋体 9pt 9pt字体名称大小字体名称大小ForeColorForeColor文本颜色文本颜色ControlTextControlTextImageImage显示图像显示图像指示图像的路径例如指示图像的路径例如C:C:Bliss.BMPBliss.BMPLocationLocation相对于容器左上角的坐标相对于容器左上角的坐标XYXY例如例如30403040TextText显示文本显示文本标签就是通过该属性输出数据系统标签就是通过该属性输出数据系统默认值为默认值为LabelXLabelXSizeSize控件大小控件大小WidthWidth高高HeightHeight宽宽TextAlignTextAlign文本显示位置文本显示位置例如例如TopLeftTopLeft顶部居左、顶部居左、MiddleCenterMiddleCenter居中居中VisibleVisible是否隐藏是否隐藏FalseFalse隐藏隐藏TrueTrue不隐藏系统默认值不隐藏系统默认值方法名方法名说明说明HideHide隐藏标签隐藏标签ShowShow显示标签显示标签3.2.2 3.2.2 文本框文本框TextBoxTextBox控件控件为了和用户能够进行交互将数据通过键盘输入为了和用户能够进行交互将数据通过键盘输入VB 2005VB 2005提供了文本框提供了文本框TextBoxTextBox控件常用来控件常用来输入输入//输出输出数据。

    数据。

    属性名属性名说明说明取值及行为取值及行为EnabledEnabled是否可用是否可用FalseFalse不可用不可用TrueTrue可用系统默认值可用系统默认值MaxLengthMaxLength允许最多输入的字符个数允许最多输入的字符个数整数系统默认值为整数系统默认值为3276732767MultilineMultiline是否支持多行显示是否支持多行显示FalseFalse不支持系统默认值不支持系统默认值TrueTrue支持支持PasswordCharPasswordChar文本信息显示字符文本信息显示字符通常用于表示密码用“通常用于表示密码用“”系”系统默认值为空统默认值为空ReadOnlyReadOnly是否只读是否只读FalseFalse只读只读TrueTrue可写系统默认值可写系统默认值ScrollBarsScrollBars如果支持多行显示指定滚动如果支持多行显示指定滚动条条BothBoth水平、垂直都有滚动条水平、垂直都有滚动条HorizontalHorizontal水平有滚动条水平有滚动条NoneNone没有滚动条没有滚动条VerticalVertical垂直有滚动条垂直有滚动条wordWrapwordWrap指示控件是否自动换行指示控件是否自动换行True:True:自动换行自动换行False:False:不能自动换行不能自动换行方法名方法名说明说明ClearClear清空文本信息清空文本信息CopyCopy复制文本到剪贴板复制文本到剪贴板CutCut剪切文本到剪贴板剪切文本到剪贴板FocusFocus获得焦点获得焦点PastePaste从剪贴板粘贴文本从剪贴板粘贴文本SelectSelect选择指定文本选择指定文本SelectAllSelectAll选择所有文本选择所有文本事件名事件名说明说明DoubleClickDoubleClick当鼠标双击触发事件代码当鼠标双击触发事件代码GotFocusGotFocus得到焦点触发事件代码得到焦点触发事件代码KeyDownKeyDown按下某键触发事件代码按下某键触发事件代码TextChangedTextChanged文本值改变触发事件代码文本值改变触发事件代码文本框文本框TextBoxTextBox控件常用的属方法和事件如下表。

    控件常用的属方法和事件如下表。

    3.2.3 3.2.3 命令按钮命令按钮ButtonButton控件控件为了能够在程序运行时控制数据的输入与输出为了能够在程序运行时控制数据的输入与输出VB 2005VB 2005提供了命令按钮提供了命令按钮ButtonButton控件。

    命令按钮控件允许用户控件。

    命令按钮控件允许用户在需要时通过单击来执行操作。

    在需要时通过单击来执行操作。

    命令按钮控件既可以显示文本又可以显示图像。

    当该命令按钮控件既可以显示文本又可以显示图像。

    当该按钮被单击时它看起来像是被按下然后被释放。

    按钮被单击时它看起来像是被按下然后被释放。

    事件名事件名说明说明ClickClick当鼠标单击触发事件代码当鼠标单击触发事件代码DoubleClickDoubleClick当鼠标双击触发事件代码当鼠标双击触发事件代码KeyPressKeyPress键盘按键触发事件代码键盘按键触发事件代码【【例例33--11】】改编改编【【例例22--44】】计算圆面积圆的半径要求从键盘输入到文计算圆面积圆的半径要求从键盘输入到文本框中计算结果显示在标签中计算由命令按钮控制。

    本框中计算结果显示在标签中计算由命令按钮控制。

    【【例例33--11】】 命令按钮命令按钮““计算计算””的的ClickClick事件事件Private Sub Button1_ClickByVal sender As System.Object ByVal e As Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button1.ClickHandles Button1.ClickConst PI 3.14 Const PI 3.14 设置圆周率常量设置圆周率常量Dim r s As DecimalDim r s As Decimalr CDecTextBox1.Text r CDecTextBox1.Text 将从文本框输入的数据转换为数值数据赋值给变量将从文本框输入的数据转换为数值数据赋值给变量rrs PI r r s PI r r 计算圆面积计算圆面积Label3.Text s Label3.Text s 将计算机结果输出到标签中将计算机结果输出到标签中Label3.Visible True Label3.Visible True 将标签显示将标签显示End SubEnd Sub 命令按钮命令按钮““重新输入重新输入””的的ClickClick事件事件Private Sub Button2_ClickByVal sender As System.Object ByVal e As Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button2.ClickHandles Button2.ClickLabel3.Visible False Label3.Visible False 将标签隐藏将标签隐藏TextBox1.Clear TextBox1.Clear 清空文本框中数据清空文本框中数据TextBox1.Focus TextBox1.Focus 将光标移到文本框上将光标移到文本框上End SubEnd Sub3.2.4 3.2.4 信息提示信息提示ToolTipToolTip控件控件为了增强程序的可读性为了增强程序的可读性WindowsWindows程序习惯上当用户的鼠标程序习惯上当用户的鼠标移到某对象上系统会自动提示帮助信息。

    移到某对象上系统会自动提示帮助信息。

    VB 2005VB 2005提供了信提供了信息提示息提示ToolTipToolTip控件来实现信息提示功能。

    控件来实现信息提示功能。

    信息提示控件不象标签、文本框控件它不能添加到窗体信息提示控件不象标签、文本框控件它不能添加到窗体中只能出现在窗体下面的面板中。

    同时在该窗体中的每个中只能出现在窗体下面的面板中。

    同时在该窗体中的每个对象的属性中都会出现一个名为对象的属性中都会出现一个名为““ToolTip1ToolTip1上的上的ToolTipToolTip””属性属性。

    程序员可以在该属性中输入提示信息。

    程序运行当。

    程序员可以在该属性中输入提示信息。

    程序运行当鼠标在某对象上停留就会提示该信息。

    鼠标在某对象上停留就会提示该信息。

    3.2.5 3.2.5 修饰输入修饰输入//输出输出为了美化输入为了美化输入//输出可以通过设置标签、文本框等控件输出可以通过设置标签、文本框等控件的字体样式、颜色或设置背景图片来修饰应用程序界面。

    的字体样式、颜色或设置背景图片来修饰应用程序界面。

    这些设置可以在设计程序时进行即在编辑状态下通过这些设置可以在设计程序时进行即在编辑状态下通过设置属性窗口中的相应设置属性窗口中的相应属性属性来实现。

    也可以通过程序来实现。

    也可以通过程序代码代码在程序运行时通过给相应属性赋值来实现。

    在程序运行时通过给相应属性赋值来实现。

    1. 1. 字体格式字体格式控件的文本字体格式程序员可以在设计程序时。

    在属性控件的文本字体格式程序员可以在设计程序时。

    在属性子窗口中通过设置子窗口中通过设置FontFont属性属性设置控件的字体格式。

    设置控件的字体格式。

    FontFont属性是一个对话框程序员可以通过设置对话框的选属性是一个对话框程序员可以通过设置对话框的选项设置项设置FontFont属性。

    也可以通过程序代码在程序运行时再设属性。

    也可以通过程序代码在程序运行时再设置字体。

    当程序运行时设置字体格式需要生成一个新的置字体。

    当程序运行时设置字体格式需要生成一个新的FontFont类。

    其语法格式如下类。

    其语法格式如下对象名对象名.Font .Font New FontNew Font〈〈字体名字体名〉〉〈〈字体大小字体大小〉〉〈〈字字体样式体样式〉〉〈〈字体单位字体单位〉〉 2. 2. 颜色颜色控件的字体颜色、背景颜色等程序员也可以在设计程序时控件的字体颜色、背景颜色等程序员也可以在设计程序时在属性子窗口中通过设置在属性子窗口中通过设置ForeColorForeColor属性设置字体颜色通属性设置字体颜色通过设置过设置BackColorBackColor属性设置背景颜色。

    属性设置背景颜色。

    ForeColorForeColor属性和属性和BackColorBackColor属性都是一个页框下拉列表。

    属性都是一个页框下拉列表。

    也可以通过也可以通过程序代码程序代码在程序运行时再设置颜色。

    在程序运行时再设置颜色。

    VB 2005VB 2005使用固定的颜色系统每种颜色都由一个使用固定的颜色系统每种颜色都由一个LongLong类型类型整数表示。

    整数表示。

    VB 2005VB 2005提供了提供了22种种方式来指定颜色值一种方式方式来指定颜色值一种方式是将是将VBVB内部颜色常数内部颜色常数赋给颜色属性另一种方式是调用赋给颜色属性另一种方式是调用System.DrawingSystem.Drawing命名空间的命名空间的ColorTranslatorColorTranslator类的类的FromOleFromOle方方法将法将QBColorQBColor函数、函数、RGBRGB函数或函数或LongLong类型数值翻译成类型数值翻译成GDI GDI ColorColor结构并从该结构翻译颜色。

    结构并从该结构翻译颜色。

    1 VB1 VB内部颜色常数内部颜色常数VB 2005VB 2005提供了许多内部颜色常数通过给颜色属性赋值来提供了许多内部颜色常数通过给颜色属性赋值来实现颜色的设置。

    其语法格式如下实现颜色的设置。

    其语法格式如下对象名对象名.ForeColor BackColor .ForeColor BackColor 〈〈颜色常数颜色常数〉〉2 FromOle2 FromOle方法方法VB 2005VB 2005提供了提供了System.DrawingSystem.Drawing命名空间的命名空间的ColorTranslatorColorTranslator类的类的FromOleFromOle方法通过设置该方法的操作方法通过设置该方法的操作来实现颜色的设置。

    其语法格式如下来实现颜色的设置。

    其语法格式如下对象名对象名.ForeColor .ForeColor 对象名对象名.BackColor .BackColor System.Drawing.ColorTranslator.FromOle System.Drawing.ColorTranslator.FromOle 〈〈参数参数〉〉3. 3. 背景图片背景图片窗体和命令按钮通过设置窗体和命令按钮通过设置BackgroundImageBackgroundImage属性设置背景图属性设置背景图片标签通过设置片标签通过设置ImageImage属性设置背景图片。

    属性设置背景图片。

    窗体和标签的背景图片在属性子窗口中通过设置。

    这两窗体和标签的背景图片在属性子窗口中通过设置。

    这两个属性都是一个对话框个属性都是一个对话框————““选择资源选择资源””对话框。

    程序员可对话框。

    程序员可以导入图片文件来设置背景图片。

    以导入图片文件来设置背景图片。

    也可以通过程序代码在程序运行时再设置背景图片。

    也可以通过程序代码在程序运行时再设置背景图片。

    VB VB 20052005提供了提供了System.DrawingSystem.Drawing命名空间的命名空间的ImageImage类的类的FromFileFromFile方方法通过设置该方法的操作来实现颜色的设置。

    其语法格式法通过设置该方法的操作来实现颜色的设置。

    其语法格式如下如下对象名对象名. BackgroundImage Image . BackgroundImage Image System.Drawing.Image.FromFile System.Drawing.Image.FromFile 〈〈图片文件路径图片文件路径〉〉【【例例33--22】】修饰应用程序的输出显示。

    窗体设置背景图片。

    在程序运行时修饰应用程序的输出显示。

    窗体设置背景图片。

    在程序运行时可以改变标签中的文本的字体格式和颜色。

    可以改变标签中的文本的字体格式和颜色。

    【【例例33--22】】Private Sub Form1_LoadByVal sender As System.Object ByVal e As Private Sub Form1_LoadByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles MyBase.LoadHandles MyBase.Load 设置窗体背景图片设置窗体背景图片Me.BackgroundImage System.Drawing.Image.FromFilequotC:Me.BackgroundImage System.Drawing.Image.FromFilequotC:Blue hills.jpgquotBlue hills.jpgquotEnd SubEnd Sub 命令按钮命令按钮““黑体黑体””的的ClickClick事件事件Private Sub Button1_ClickByVal sender As System.Object ByVal e As Private Sub Button1_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button3.ClickHandles Button3.ClickLabel1.Font New FontquotLabel1.Font New Fontquot黑体黑体quot 15 quot 15 设置标签的字体设置标签的字体End SubEnd Sub 命令按钮命令按钮““楷体楷体””的的ClickClick事件事件Private Sub Button2_ClickByVal sender As System.Object ByVal e As Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button1.ClickHandles Button1.ClickLabel1.Font New FontquotLabel1.Font New Fontquot楷体楷体quot 15 quot 15 设置标签的字体设置标签的字体End SubEnd Sub 命令按钮命令按钮““隶书隶书””的的ClickClick事件事件Private Sub Button3_ClickByVal sender As System.Object ByVal e As Private Sub Button3_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button2.ClickHandles Button2.ClickLabel1.Font New FontquotLabel1.Font New Fontquot隶书隶书quot 15 quot 15 设置标签的字体设置标签的字体End SubEnd Sub 命令按钮命令按钮““红色红色””的的ClickClick事件事件Private Sub Button4_ClickByVal sender As System.Object ByVal e As Private Sub Button4_ClickByVal sender As System.Object ByVal e As System.EventArgs _System.EventArgs _Handles Button4.ClickHandles Button4.ClickLabel1.ForeColor Color.Red Label1.ForeColor Color.Red 设置标签字体的颜色设置标签字体的颜色End SubEnd Sub 命令按钮命令按钮““绿色绿色””的的ClickClick事件事件Private Sub Button5_ClickByVal sender As System.Object ByVal e As Private Sub Button5_ClickByVal sender As System.