vb最基础入门教程从零开始

第四讲 TextBox的使用（一）

文本框控件在工具箱中的名称为TextBox，在VB中，可以使用文本框控件输入、输出数据。

一、属性：

（1）Text属性：字符串类型。 返回或设置文本框中显示的内容。 例如：=”年年有余”

（2）MultiLine属性：布尔型。

当MultiLine属性为True时，文本框可以输入或显示多行文本。

（3）Passwordchar属性：字符串类型。

当MultiLine属性值为False时，该属性可以用于口令输入。如果把Passwordchar属性设置为一个字符，如星号（*），则在文本框中键入字符时，只显示星号，不显示键入的字符。 （4）ScrollBars属性：数值型。

该属性用于确定文本框是否带滚动条。有以下4种选择： 0-None 没有滚动条 1-Horizontal 只有水平滚动条 2-Vertical 只有垂直滚动条 3-Both 同时具有水平和垂直滚动条

只有当MultiLine属性值为True时，文本框才显示滚动条。 二、事件：

文本框除了支持鼠标的Click、DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件。本节课，我们先学习Change事件。

（1）Change事件：当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。

（2）示例：建立两个文本框，名称分别为：t1、t2。运行时，用户在文本框t1中输入内容的同时，文本框t2显示相同的内容。 程序代码：

Private Sub t1_Change() = End Sub

三、综合练习（界面如下图所示）：

1、属性设置如下：

2、程序代码如下：

Private Sub Command1_Click() = End Sub

------------------------------------------------------------------ Private Sub Command2_Click() = \ = \ = \ End Sub

------------------------------------------------------------------ Private Sub Command3_Click() End End Sub

Private Sub Command4_Click() = & End Sub

------------------------------------------------------------------ Private Sub t1_Change() = End Sub

第五讲 变量

一、变量的概念

1、变量：变量是应用程序在运行的过程中用来临时保存数据的地方，它的值随赋值而改变。 为了使用变量，需要为变量指定一个名称和规定该变量所保存数据的类型， 这项工作称为声明变量。

2、为了使编写的程序更符合规范和更加有效，推荐实行先声明变量然后才使用。为了强制实施该项要求，需要在每个程序模块的开始添加如下语句： option explicit

或者，使用以下方法： (1) 执行“工具”—“选项”菜单命令， (2) 然后在“选项”对话框架的“编辑器”选项卡中使“要求变量生命”项目有效，则每当在工程中添加一个新的窗体或模块时，系统便自动在代码窗口中添加上述语句。

(3) 如果加入了option explicit语句，则在运行时VB对没有声明的变量显示错误信息。如图：

二、变量命名规则 1.以字母或汉字开头，后可跟字母、数字或下划线组成； 2.长度小于等于255个字符； 3.不能使用VB中的关键字； 中不区分变量名的大小写. 例如，mystring、count123、A1、姓名、性别等都是合法的变量名；而2x、a+b、as、if等是不合法的变量名。 二.变量声明 在使用变量之前，一般必须先声明变量名和类型，以便系统为其分配存储单元。

1.用Dim语句显式声明变量 （1）一般格式： Dim 变量名 [AS 类型] 例

如： dim a1 as integer ‘声明整数型变量a1 dim a2 as strin ‘声明字符串变量a2 dim s as Single ‘声明单精度实数变量s dim ss as Double ‘声明双精度实数变量s 使用声明语句声明变量之后，VB自动对各类型变量进行初始化，数值变量被初始化为0；字符串变量被初始化为一个零长度的符串（””）。

三、应用举例

1、说明下列语句的作用 y=3*x^3+5 a=a+1 '

说明：先计算右边的值，然后再把计算结果赋给左边的变量 2、例：计算圆的面积和周长

1、设计界面和运行界面，如图所示。 2、代码：

Option Explicit ------------------------------------------------ Private Sub

Command1_Click() Dim pi As Single, r As Single, l As Single, s As Single r = Val pi = l = 2 * pi * r s = pi * r ^ 2 = Str(l) = Str(s) End Sub

****注意**** val(字符串)：把字符串转换为数值； str(数值)： 把数值转换为字符串 输入的数据是字符型,转换成数值型才能进行计算；标签的Caption属性是字符型，所以输时又要把计算结果转换成字符型。