VB程序设计基础

1、第第2章章 VB.NET程序设计基础程序设计基础2.1 窗体和基本控件窗体和基本控件 2.2 求解求解“鸡兔同笼鸡兔同笼”问题问题 2.3 计算分段函数计算分段函数 2.4 计算乘方与阶乘计算乘方与阶乘2.1 窗体和基本控件窗体和基本控件2.1.1 属性属性2.1.2 事件事件2.1.3 方法方法2.1.4 窗体窗体2.1.5 Label（标签）控件（标签）控件2.1.6 TextBox（文本框）控件（文本框）控件2.1.7 Button（按钮）控件（按钮）控件2.1 窗体和基本控件窗体和基本控件l对象对象现实世界中，对象就是某个具体的事物或现象现实世界中，对象就是某个具体的事物或现象例如：一

2、辆汽车、一堂课、例如：一辆汽车、一堂课、汽车汽车 名称：名称：*汽车汽车 特性：发动机编号、车长、颜色、特性：发动机编号、车长、颜色、 行为：前进、后退、转弯、行为：前进、后退、转弯、总结总结2.1 窗体和基本控件窗体和基本控件程序设计领域中的对象是使用程序技巧来模仿程序设计领域中的对象是使用程序技巧来模仿现实世界中的对象现实世界中的对象名称：名称名称：名称特性：以属性来描述特性：以属性来描述行为：以方法来描述，并用程序代码加以模拟行为：以方法来描述，并用程序代码加以模拟对象对象属性属性事件事件方法方法LabelTextBoxButton窗体窗体控件控件2.1.1 属性属性l属性用来描述对象的

3、特性，如性质、状态属性用来描述对象的特性，如性质、状态和外观等和外观等l不同的对象有不同的属性不同的对象有不同的属性l类型类型只读属性只读属性运行时只读属性运行时只读属性可读写属性可读写属性2.1.1 属性属性l包含包含属性名属性名属性值属性值有一个默认值有一个默认值在设计阶段利用在设计阶段利用“属性窗口属性窗口”直接设置对象的属直接设置对象的属性性在程序代码中通过赋值设置对象属性在程序代码中通过赋值设置对象属性 对象名对象名.属性名属性名 = 属性值属性值2.1.1 属性属性l表表2-12.1.2 事件事件l事件事件对象的事件是系统预先定义好的、能被对象所对象的事件是系统预先定义好的、能被对

4、象所识别的动作识别的动作例如：单击控件（例如：单击控件（Click）、键盘按下（）、键盘按下（KeyPress）不同种类的对象能识别的事件不一定相同不同种类的对象能识别的事件不一定相同事件的发生是在程序运行过程（而不是在设计事件的发生是在程序运行过程（而不是在设计状态）中，由用户的动作或系统触发状态）中，由用户的动作或系统触发当事件发生时，当事件发生时，VB将检测两条信息，即发生的将检测两条信息，即发生的是哪种事件和哪个对象接收了事件是哪种事件和哪个对象接收了事件2.1.2 事件事件l事件过程事件过程对象响应某个事件发生时所执行的操作是通过对象响应某个事件发生时所执行的操作是通过一段独立的程序

5、代码来实现的，这段程序代码一段独立的程序代码来实现的，这段程序代码叫做事件过程叫做事件过程 一个对象可以响应一个或多个事件，因此可以一个对象可以响应一个或多个事件，因此可以使用一个和多个事件过程对用户或系统的事件使用一个和多个事件过程对用户或系统的事件做出响应做出响应2.1.2 事件事件事件过程的代码形式事件过程的代码形式Sub 对象名对象名_事件事件 (参数列表参数列表) 事件过程代码事件过程代码End Sub例如单击例如单击“Button1”按钮，使该按钮的字体为按钮，使该按钮的字体为“宋体宋体”、大小改为大小改为20磅、字形加粗磅、字形加粗Public Class Form1 Priva

6、te Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Font = New Font(宋体宋体, 20, FontStyle.Bold) End SubEnd Class2.1.2 事件事件2.1.3 方法方法l方法是对象的行为或动作，是对象本身内方法是对象的行为或动作，是对象本身内含的程序段含的程序段l每个方法完成某个功能，但其实现步骤和每个方法完成某个功能，但其实现步骤和细节用户既看不到，也不能修改，程序员细节用户既看不到，

7、也不能修改，程序员能做的工作就是按照约定直接调用它们能做的工作就是按照约定直接调用它们l例如：显示窗体（例如：显示窗体（Show）方法、获得焦点方法、获得焦点（Focus）方法方法2.1.3 方法方法l方法只能在代码中使用方法只能在代码中使用l对象方法的调用格式对象方法的调用格式对象对象.方法方法 参数名表参数名表 Form1.Hide( ) 隐藏隐藏 Form1窗体窗体 TextBox1.Focus( ) 将焦点移至将焦点移至TextBox1文本框文本框2.1.4 窗体窗体l窗体是一种对象，是所有控件的容器，是窗体是一种对象，是所有控件的容器，是VB应用程序的基本构造模块，是运行应用应用程序

8、的基本构造模块，是运行应用程序时与用户交互操作的实际窗口。程序时与用户交互操作的实际窗口。2.1.4 窗体窗体2.1.4 窗体窗体l例，编程实现如下功能：例，编程实现如下功能：窗体标题设置为：窗体标题设置为：“Hello Visual Basic”Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = Hello Visual BasicEnd Sub2.1.4 窗体窗体单击窗体，设置背景图片单击窗体，设置背景图片Privat

9、e Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me.BackgroundImage = Image.FromFile(D:1Desert.jpg)End Sub2.1.4 窗体窗体双击窗体，最小化按钮功能失效双击窗体，最小化按钮功能失效Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick Me.Minimize

10、Box = FalseEnd Sub2.1.5 Label（标签）控件（标签）控件lLabel控件主要用来显示输出文本信息，也控件主要用来显示输出文本信息，也可以为窗体上其他控件作题注可以为窗体上其他控件作题注2.1.5 Label（标签）控件（标签）控件2.1.5 Label（标签）控件（标签）控件l例例2.1 在窗体上创建一个按钮和一个标签，程序在窗体上创建一个按钮和一个标签，程序运行时，单击运行时，单击“按钮按钮”，在标签框中显示，在标签框中显示“当你当你学习了这门课程后，能够编写出各种应用程序学习了这门课程后，能够编写出各种应用程序”，字号为字号为20磅，字体为磅，字体为“黑体黑体”。

11、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Font = New Font(黑体黑体, 20) Label1.Text = 当你学习了这门课程后，能当你学习了这门课程后，能 够编写出各种应用程序够编写出各种应用程序End Sub 2.1.6 TextBox（文本框）控件（文本框）控件lTextBox是一个文本编辑区域，可以在该区是一个文本编辑区域，可以在该区域输入、编辑、修改和显示正文内容，即域输入、编辑、修改

12、和显示正文内容，即可以创建一个文本编辑器。可以创建一个文本编辑器。2.1.6 TextBox（文本框）控件（文本框）控件2.1.6 TextBox（文本框）控件（文本框）控件l例例2.2 在文本框中输入密码，密码以在文本框中输入密码，密码以*显示。显示。操作步骤操作步骤创建项目创建项目在窗体上添加一个标签，标签属性在窗体上添加一个标签，标签属性Text =“输入输入密码密码”，用于显示密码标示；添加一个文本框，用于显示密码标示；添加一个文本框，文本框属性文本框属性PasswordChar =“*”，用于输入密码；，用于输入密码；启动调试启动调试l本程序只需设置属性，无需编写代码。本程序只需设置

13、属性，无需编写代码。2.1.7 Button（按钮）控件（按钮）控件lButton控件的功能类似于家用电器的功能控件的功能类似于家用电器的功能按钮，按下它就代表要执行某种功能按钮，按下它就代表要执行某种功能l在在Visual Basic应用程序中一般都设有命令应用程序中一般都设有命令按钮，以便用户与应用程序进行交互按钮，以便用户与应用程序进行交互l常用来启动、中断或结束一个程序的执行常用来启动、中断或结束一个程序的执行2.1.7 Button（按钮）控件（按钮）控件2.1.7 Button（按钮）控件（按钮）控件l例例2.3 设计一个程序，由用户从键盘上输入设计一个程序，由用户从键盘上输入两个

14、数，然后再选择对它们分别进行和、两个数，然后再选择对它们分别进行和、减、乘、除法运算，并将结果显示出来。减、乘、除法运算，并将结果显示出来。在本例的窗体中添加了在本例的窗体中添加了2个个TextBox，用于，用于输入输入2个操作数；添加了个操作数；添加了3个个Label，用于显，用于显示：示：“运算符运算符”、“=”和和“结果结果”；添加；添加了了6个个Button，用于执行加、减、乘、除运，用于执行加、减、乘、除运算、清除操作数和运算结果、结束程序。算、清除操作数和运算结果、结束程序。铺垫铺垫具具体体问问题题建建立立模模型型设设计计算算法法编制编制计算机计算机程序程序铺垫铺垫 矩阵相乘矩阵相

15、乘 M1M2M3Mn 解方程组解方程组 求定积分的值求定积分的值铺垫铺垫6845678是是谁的电话？谁的电话？党政机关党政机关 党委总机党委总机 4811122 宣传部宣传部 4811234 组织部组织部 4812345大专院校大专院校 内蒙古大学内蒙古大学 校务办公室校务办公室 4991234 计算机学院计算机学院 4992930 110 .匪警匪警 119火警火警120急救急救1234567.6845678.Tom2.2 求解求解“鸡兔同笼鸡兔同笼”问题问题l问题描述问题描述“今有雉兔同笼，上有三十五头，下有九十四足，今有雉兔同笼，上有三十五头，下有九十四足，问雉兔各几何？问雉兔各几何？”

16、有若干只鸡兔同在一个笼子里，从上面数，有有若干只鸡兔同在一个笼子里，从上面数，有35个头，从下面数，有个头，从下面数，有94只脚。问笼中各有几只脚。问笼中各有几只鸡和兔？只鸡和兔？2.2 求解求解“鸡兔同笼鸡兔同笼”问题问题 2.2 求解求解“鸡兔同笼鸡兔同笼”问题问题算法五：方程法（二元一次方程）算法五：方程法（二元一次方程）解：设鸡有解：设鸡有x只，兔有只，兔有y只，则只，则x + y = 35 2x + 4y = 94 y = 35 - xTextBox1.Text = 35TextBox2.Text = 94TextBox3.Text=(4*Val(TextBox1.Text)-Val

17、(TextBox2.Text)/2TextBox4.Text = Val(TextBox1.Text) - Val(TextBox3.Text)2.3 计算分段函数计算分段函数2.3 计算分段函数计算分段函数l问题分析问题分析计算计算x = Val(TextBox1.Text)y = TextBox2.Text = y难点难点解决：使用解决：使用条件分支判断语句条件分支判断语句2.3 计算分段函数计算分段函数x = Val(TextBox1.Text)If x 0 Then 如果如果 条件条件 成立则成立则 y = x + 1Else 不成立则不成立则 y = 2 * x - 1End If 结束结束TextBox2.Text = y2.4 计算乘方与阶乘计算乘方与阶乘l例：求例：求5的的5次方，再求次方，再求5的阶乘。的阶乘。55=5*5*5*5*5=3125 注