《Visual Basic程序设计》课件项目三VIP

项目三赋值与输入输出任务3.1数据输出与赋值任务3.2利用文本框输入数据任务3.3使用对话框实现数据输入和输出

任务3.1数据输出与赋值

任务导入

一个没有输出操作的程序是没有实用价值的。赋值语句是任何程序设计中最基本的语句，也是使用最多的语句。

本任务学习文本信息的输出、赋值语句的使用方法以及VB中常用的基本语句(卸载语句Unload、注释语句Rem等)。学习目标

(1)会使用Print方法将数据输出到窗体上，并能实现简单的对齐。

(2)能熟练使用标签控件实现数据输出。

(3)会使用常用对象的位置属性、字体属性及其他常用

属性。

(4)能熟练使用赋值语句为变量赋值。

(5)会熟练使用卸载语句Unload、注释语句Rem等基本

语句。任务实施

1．使用Print方法将数据直接输出到窗体

在VB中，可以使用Print方法实现数据输出。Print方法可以在窗体上输出文本字符串或表达式的值，并可在其他图形对象或打印机上输出信息。其语法格式为

[〈对象名〉.]Print[〈表达式表〉][{,|;}]

【说明】

(1)如果要使用Print方法将数据输出到窗体，则应先使用Show(显示)方法，否则输出的数据不可见。

(2)格式中的〈对象名〉可以是Form(窗体)、PictureBox(图片框)或Printer(打印机)。如果省略，则在当前窗体上直接输出。例如：

Print“欢迎” ‘省略对象名，直接将字符串“欢迎”输出到当前窗体

Picture1.Print“欢迎” ’将字符串“欢迎”在图片框Picture1上显示出来

Printer.Print"欢迎" '对象名为Printer(打印机)，将字符串“欢迎”输出到打印机

(3)〈表达式表〉是一个或多个表达式，可以是数值表达式，也可以是字符串。对于数值表达式，将输出表达式的值；对于字符串，将照原样输出。如果省略〈表达式表〉，则输出一个空行。例如：

Show

a=5:b=8

Printa ‘输出变量a的值

Print ’输出空行

Print"VB" '字符串必须放在双引号内输出结果为

5

VB

输出数据时，数值数据的前面有一个符号位，后面有一个空格，而字符串前后都没有空格。

(4)当输出多个表达式时，各表达式之间用分隔符逗号“,”或分号“;”隔开。

如果使用逗号分隔符，则各输出项按标准输出(分区输出)格式显示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面的表达式在下一个区段输出。

如果使用分号分隔符，则按紧凑格式输出，即数值型数据后多一个空格，字符串后没有空格。

a=1:b=2:c=3

Show

Printa,b,c,“XYZ”

Printa,b,c;“XYZ”;“ABC”

输出结果为

123XYZ

123XYZABC

(5)如果省略语句行末尾的分隔符，则Print方法将自动换行。如果在语句行的末尾使用逗号分隔符，则下一个Print输出的内容将在当前Print所输出信息的下一个分区显示。

如果在语句行的末尾使用分号分隔符，则下一个Print输出的内容将紧跟在当前Print所输出的信息后面。

(6) Print方法具有计算和输出的双重功能，对于表达式，总是先计算后输出。例如：

x=2:y=3

Print(x+y)*2

该例中的Print方法先计算表达式(x+y)*2，然后输出其值10。

【实例3-1】用Print方法输出数据到窗体上，程序的执行结果如图3.1所示。图3.1程序运行结果

【实现步骤】

(1)建立应用程序用户界面。新建一个工程，进入窗体设计器。

(2)设置对象属性。由于不需要在窗体上放置控件，因此这里不需设置对象属性。

(3)编写事件代码。由于要求在运行程序时直接显示输出结果，因此使用窗体Form的Load事件。右键单击窗体，打开快捷菜单，如图3.2所示，从快捷菜单中单击“查看代码”项，打开代码窗口。从对象下拉列表框中选中“Form”项，从过程下拉列表框中选中“Load”项。在代码区中输入Form_Load()的代码。图3.2编写事件代码窗体Form的Load事件代码如下：

PrivateSubForm_Load()

Show

Print“aa”&“bb”,-5*6,Not2<=3

Print“aa”&“bb”;-5*6;Not2<=3

Print ‘如果Print后未写任何项，则输出一个空行

PrintNow '显示当前日期和时间Print

FontSize=18 '设置字体尺寸

Print"30+60=",

Print30+60

Print

Print"30+60=";30+60

EndSub

(4)运行和调试程序。单击工具栏中的“启动”按钮执行程序，运行结果如图3.1所示。单击“文件”菜单→“工程另存为”命令保存工程。

程序调试完成后，可单击“文件”菜单→“移除工程”命令，结束本次程序的设计。

【实例3-2】使用Print方法，在窗体中直接输出字符串或数值表达式的值。

【实现步骤】

(1)建立应用程序用户界面。新建一个工程，进入窗体设计器，在窗体中增加一个命令按钮Command1，如图3.3所示。

(2)设置对象属性。设置Command1的Caption属性为“欢迎”。图3.3增加一个命令按钮

(3)编写事件代码。“欢迎”命令按钮Command1的Click事件代码如下：

PrivateSubCommand1_Click()

Print

Print“2*3+4=”;2*3+4‘使用“;”分割符

Print ’输出一个空行

Print"祝你学好"

Print,“Visual” ‘使用“,”分割符

Print,,“Baisc”’使用两个“,”分割符

Print

Print“祝您学好”, ‘在行末使用“,”分割符

Print“Visual”;“Baisc”

EndSub

(4)运行和调试程序。单击工具栏中的“启动”按钮执行程序，首先显示如图3.4(a)所示的窗口，单击“欢迎”按钮，将显示如图3.4(b)所示的窗口。图3.4运行程序

2．掌握与Print方法有关的函数的用法

为了使数据按指定的格式输出，VB提供了Tab、Spc等函数，这些函数可以与Print方法配合使用。

1) Tab函数

在Print方法中，可以使用Tab函数对输出进行定位，其格式为

Tab(n);

【说明】

(1) n为数值表达式，其值为一整数。Tab函数把显示或打印位置移到由参数n指定的列数，从此列开始输出数据。要输出的内容放在Tab函数后面，并用分号隔开。例如：

PrintTab(20);"姓名";Tab(40);"班级";Tab(60);"年龄"

(2)通常最左边的列号为1。如果当前的显示位置已经超过n，则自动下移一行；当n大于行的宽度时，显示位置为

nMod〈行宽〉

(3)当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输出项之间用分号隔开。【课堂演练】

【实例3-3】使用Tab函数进行对齐输出，如图3.5所示。图3.5使用Tab函数进行对齐输出

【实现方法】

编写窗体Form的Click事件代码：

PrivateSubForm_Click()

Show

FontSize=12 ‘设置输出文本字体的大小

Print

PrintTab(10);“姓名”;Tab(25);“性别”;Tab(40);“年龄”

Print

PrintTab(10);“刘榴”;Tab(25);“女”;Tab(40);16

PrintTab(10);“韩小强”;Tab(25);“男”;Tab(40);18

EndSub

2) Spc函数

在Print方法中，也可以使用Spc函数来对输出进行定位。与Tab函数不同，Spc函数提供了若干空格，其格式为

Spc(n);

【说明】

(1) n为数值表达式，其值为一整数，表示在显示或打印下一个表达式之前插入的空格数。

(2) Spc函数与输出项之间用分号隔开。例如：

Print"姓名";Spc(5);"性别";Spc(5);"年龄"

(3)当Print方法与不同大小的字体一起使用时，使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。

(4) Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab函数从对象的左端开始计数，而Spc函数只表示两个输出项之间的间隔。

3．理解位置属性和字体属性

要精确地把文本输出到窗体、图片框或打印页上，可以使用位置属性CurrentX和CurrentY。这两个属性分别表示当前输出位置的横坐标与纵坐标。

如果要控制所显示或打印文本的大小和外观，可以用VB中的字体属性，各字体属性及其名称见表3-1。

【课堂演练】

【实例3-4】如图3.6所示，按某字体大小，把字符串“五光十色”输出到窗体上，坐标位置为(800,600)。图3.6CurrentX和CurrentY实例

【实现步骤】

(1)建立用户界面。新建一个工程，进入窗体设计器，增加一个命令按钮Command1，如图3.7(a)所示。

(2)设置对象属性。将命令按钮Command1的Caption(标题)属性改为“显示”，设置属性后的界面如图3.7(b)所示。图3.7建立用户界面并设置对象属性

(3)编写事件代码。“显示”命令按钮Command1的Click事件代码如下：

PrivateSubCommand1_Click()

DimaAsString

FontName=“隶书” ‘设置输出文本的字体

FontSize=18 ’设置输出文本的字号

a="五光十色"

CurrentX=800 ‘设置输出的水平位置

CurrentY=600’设置输出的垂直位置

Show

Printa‘输出文本

EndSub

(4)运行程序，结果如图3.6所示。

4．掌握清除方法Cls的用法

使用Cls方法可以清除Form(窗体)或PictureBox(图片框)中由Print方法或图形方法在运行时所生成的文本或图形，清除后的区域以背景色填充。Cls方法的语法格式为

[〈对象名〉.]Cls

【说明】

(1)〈对象名〉可以是Form或PictureBox。如果省略〈对象名〉，则清除窗体上由Print方法或图形方法在运行时所生成的文本或图形。

(2)设计时使用Picture属性设置的背景位图和放置的控件不受Cls方法影响。

【课堂演练】

【实例3-5】使用Cls方法清除【实例3-4】窗体中由Print方法所生成的文本，如图3.8所示。图3.8Cls方法示例

【实现方法】

只需在【实例3-4】的代码中增加一个命令按钮Command2，将Caption属性改为“清除”，并编写其Click事件代码即可：

PrivateSubCommand2_Click()

Cls

EndSub

5.使用标签控件进行输出操作

标签(Label)主要是用来显示(输出)文本信息的，不能作为输入信息的界面。也就是说，标签控件的内容只能用Caption属性来设置或修改，不能直接编辑。它是VB中最常用的输出文本信息的工具，完全可以取代Print方法。标签控件的常用属性有以下几种：

(1) Caption属性。该属性用于在标签中显示文本。默认情况下，Caption是Label控件中惟一的可见部分。

(2) BorderStyle(边框样式)属性。该属性用来设置标签的边框。该属性可以取两个值，即0或1。在默认情况下，该属性值为0，标签无边框。如果把BorderStyle属性设置成1，那么Label就有了一个边框。

(3)其他外观属性。可以通过设置标签Label的BackColor(背景色)、ForeColor(前景色)和Font(字体)等属性来改变Label的外观。

【课堂演练】

【实例3-6】如图3.9所示，使标签控件具有边框，然后再修改标签属性为无边框。

【实现步骤】

(1)建立用户界面。新建一个工程，进入窗体设计器，增加一个命令按钮Command1、两个标签Label1和Label2，如图3.9(左)所示。

(2)设置对象属性。分别设置对象的属性，见表3-2。设置后的界面如图3.9(中)所示。图3.9有边框和无边框的标签控件

(3)编写事件代码。“单击”命令按钮Command1的Click事件代码如下：

PrivateSubCommand1_Click()

Label1.Caption=“健康、快乐和幸福”‘改变Label1的标题内容

Label2.Caption=“永远与您相伴”’改变Label2的标题内容

Label2.Alignment=2‘Label2的内容居中显示

Label2.BorderStyle=0’将Label2的边框样式改为无边框

EndSub

(4)运行程序，效果如图3.9(右)所示。

6.掌握赋值语句Let的用法

在前面的例子中，我们已经在代码中使用了赋值语句。它的作用是将指定的值赋给某个变量或对象的某个属性。

赋值语句的语法格式为

[Let]〈名称〉=〈表达式〉

【说明】

(1) Let表示赋值，通常省略。

(2)〈名称〉是变量或属性的名称。

(3)〈表达式〉可以是算术型表达式、字符串型表达式、关系型表达式或逻辑型表达式，其类型应与变量名的类型一致，即同时为数值型或同时为字符型，否则会出现“类型不匹配”的错误。当同时为数值型但有不同的精度时，强制转换成“=”左边的精度。

(4)赋值语句是先计算〈表达式〉，再赋值。

【课堂演练】

【实例3-7】设计程序，实现交换两变量的值，如图3.10所示。图3.10交换变量值前后

【实现步骤】

(1)问题分析。将两个不同的变量假设为两个瓶子A和B，其中分别装有不同颜色的液体，现在需交换瓶子中的液体。可以这样来做：另取一个瓶子C，先将瓶A中的液体倒入瓶C中，再将瓶B中的液体倒入瓶A中，最后将瓶C中的液体倒入瓶B中。

(2)建立用户界面。新建一个工程，进入窗体设计器，增加一个命令按钮Command1、四个标签Label1～Label4，如图3.11(a)所示。

(3)设置对象属性，见表3-3。设置属性后的界面如图3.11(b)所示。图3.11建立界面与设置属性

(4)编写事件代码。“交换两变量的值”命令按钮Command1的Click事件代码如下：

PrivateSubCommand1_Click()

c=Label2.Caption

Label2.Caption=Label4.Caption

Label4.Caption=c

EndSub

(5)运行程序，结果如图3.10所示。

7.掌握卸载对象语句Unload的用法

当要结束应用程序，或从内存中卸载窗体，或从内存中

卸载某些控件时，可以使用Unload语句。Unload语句的语法格式为

Unload〈对象名〉

【说明】

(1)〈对象名〉是要卸载的窗体对象或控件的名称，可以用Me来表示当前所在的窗体对象。

(2)在卸载窗体前，会发生QueryUnload(窗体队列关闭)事件，然后是Unload(卸载)事件。在其中任一事件过程代码中设置Cancel参数为True可防止窗体被卸载。

【课堂演练】

【实例3-8】在【实例3-7】中增加“关闭”命令按钮，关闭窗体。程序界面如图3.12所示。图3.12关闭窗体

【实现方法】

在【实例3-7】中增加一个命令按钮Command2，并将其Caption属性改为“关闭”，编写Command2的Click事件代码如下：

PrivateSubCommand2_Click()

UnloadMe‘Me表示按钮所在的窗体对象

EndSub

运行程序，结果如图3.12所示。

8.掌握注释语句Rem的用法

为了提高程序的可读性，通常应在程序的适当位置加上一些注释。注释语句用来在程序中包含注释，语法格式为

Rem〈注释内容〉

或

'〈注释内容〉

【说明】

(1)〈注释内容〉指要包括的任何注释文本。在Rem关键字与注释内容之间要加一个空格。可以用一个英文单引号“‘”来代替Rem关键字。

(2)如果在其他语句行后使用Rem关键字，则必须用冒号“:”与前面语句隔开。若使用英文单引号，则在其他语句行后不必加冒号。例如：

c=Label2.Caption’c为临时变量

Label2.Caption=Label4.Caption :Rem将Label4的Caption属性值赋给Label2任务3.2利用文本框输入数据

任务导入

如果程序没有输入操作，必然缺乏程序的灵活性。在VB中，允许用户输入文本信息的最直接的方法是使用文本框。

本任务学习利用文本框输入数据的方法，焦点、键序的设置方法以及框架控件的使用等。学习目标

(1)能熟练利用文本框输入数据。

(2)会设置焦点，改变键序。

(3)能熟练使用框架控件。任务实施

1．熟知文本框控件的常用属性

文本框的常用属性有以下几个：

(1) Text属性。Text属性表示文本框中包含的文本内容。

(2) Locked属性。Locked属性决定控件是否可编辑。Locked属性的值为True时，文本框的内容不可编辑；为False时，可编辑。默认为False。

(3) MultiLine(多行)属性。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32KB。默认为False。

(4) ScrollBars(滚动条)属性。ScrollBars属性决定文本框中是否显示滚动条及滚动条的显示形式。默认为不显示。

(5) PassWordChar属性。PassWordChar属性指定显示在文本框中的替代符，如一串“*”号等，主要用于口令的输入。如果MultiLine属性被设为True，则PassWordChar属性不起作用。

(6) MaxLength属性。MaxLength属性指定显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。

2．利用文本框控件显示文本

文本框中显示的文本受Text属性控制。Text属性可以用以下三种方式设置：

(1)设计时在属性窗口中进行。

(2)编程时通过代码设置。

(3)在运行时由用户输入。

通过读Text属性能在运行时检索文本框的当前内容。

【课堂演练】

【实例3-9】输入球体的半径，计算并输出球体的体积和表面积，如图3.13所示。图3.13计算球的体积和表面积

【实现步骤】

(1)问题分析。设球的半径为r，球体积和球表面积分别为v和f，依题意可得计算公式：

(2)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加两个命令按钮Command1和Command2、三个

标签Label1～Label3和三个文本框Text1～Text3，如图3.14(a)所示。图3.14建立界面与设置属性

(3)设置对象属性，如表3-4所示。设置属性后的界面如图3.14(b)所示。

(4)编写事件代码,命令按钮Command1的Click事件代码为

PrivateSubCommand1_Click()

DimrAsSingle,vAsSingle,fAsSingle

Constpi=3.14159‘定义符号常量

r=Val(Text1.Text)’将文本框中的文本转换为数值型数据

v=4/3*pi*r^3'计算球的体积

f=4*pi*r^2‘计算球的表面积

Text2.Text=v’输出球的体积

Text3.Text=f‘输出球的表面积

EndSub

命令按钮Command2的Click事件代码为

PrivateSubCommand2_Click()

UnloadMe

EndSub

3．掌握多行文本框的使用

在默认情况下，文本框只能显示单行文本，且不显示滚动条。如果文本长度超出可用空间，则只能显示部分文本。

如果需要文本框显示多行文本，可以修改文本框的MultiLine和ScrollBars属性，但是这两种属性只能在属性窗口中修改。

1) MultiLine属性

当MultiLine属性为True时，文本框中可以输入或显示多行文本，同时具有文字处理器的自动换行功能，即输入的文本超出文本框宽度时，会自动换行。按Ctrl+Enter键可插入一空行。

2) ScrollBars属性

当MultiLine属性为True时，ScrollBars属性才有效。ScrollBars属性值如下。

●0-None：无滚动条。

●1-Horizontal：加水平滚动条。

●2-Vertical：加垂直滚动条。

●3-Both：同时加水平和垂直滚动条。

ScrollBars属性的默认值为0-None。

如果没有水平方向的滚动条，文本框中的文本会自动按字换行。当加入了水平滚动条以后，文本框内的自动换行功能会自动消失，只有按Enter键才能换行。

【课堂演练】

【实例3-10】修改文本框的MultiLine和ScrollBars属性。

【实现方法】

建立4个文本框，它们的有关属性见表3-5。修改属性值后的结果如图3.15所示。

4．理解焦点的概念

在了解VB控件之前，首先要了解与控件紧密相关的焦点概念。焦点是控件接收用户鼠标或键盘输入的能力，当对象具有焦点时，可接收用户的输入。在Windows环境中，任一时刻都可以同时运行多个程序，但只有具有焦点的应用程序才有活动标题栏(蓝色)，也只有具有焦点的程序才能接收用户输入(键盘或鼠标的动作)。

5．利用SetFocus方法设置焦点

当控件的Visible和Enabled属性值为True时，控件才能得到焦点。Visible属性决定了对象在屏幕上是否可见；Enabled属性允许对象响应由用户产生的事件，如键盘和鼠标事件。

但是，并非所有控件都具有得到焦点的能力，如Frame、Lable、Menu、Line、Image、Timer等控件均不能得到焦点。而且只有不包含任何可得到焦点的控件的窗体，才能接收

焦点。当对象得到或失去焦点时，会产生GotFocus或LostFocus事件。GotFocus事件发生在对象得到焦点时；LostFocus事件发生在失去焦点时。

使用以下方法可以将焦点赋予对象：

运行时选择对象。

运行时用快捷键选择对象。

在代码中使用SetFocus方法，其格式为

〈对象〉.SetFocus

6．掌握程序运行时改变焦点的方法

程序运行时，用户可以通过下列方法之一改变焦点：

用鼠标单击对象。

按Tab键或Shift+Tab键在当前窗体的各对象之间巡回移动焦点。

按热键选择对象。

7．控制Tab键序

所谓Tab键序，是指当用户按下Tab键时，焦点在控件间移动的顺序。

每个窗体都有自己的Tab键序。默认状态下，Tab键序与建立这些控件的顺序相同。例如，在窗体上先后建立3个命令按钮C1、C2和C3，程序启动时C1首先获得焦点。当用户按下Tab键时，焦点依次向C2、C3转移，如此这般往复循环。

(1) TabIndex属性。TabIndex属性决定控件接收焦点的顺序。当在窗体上画出第一个控件时,VB分配给控件的TabIndex属性默认值为0，第二个为1，第三个为2……依次类推。

用户在程序运行中按Tab键时，焦点将根据TabIndex属性值所指定的焦点移动顺序移到下一控件。

如果希望更改Tab键序，如希望焦点直接从C1转移到C3，可以通过设置TabIndex属性来改变一个控件的Tab键序。

(2) TabStop属性。TabStop属性决定焦点是否能够停在该控件上。通常，运行时按Tab键能选择键序中的每一控件。将控件的TabStop属性设为False，便可将此控件从键序中删除，但仍然保持它在实际Tab键序中的位置，只不过在按Tab键时这个控件将被跳过。

8.掌握框架控件的用法

框架(Frame)控件是一种容器控件。在框架控件内的控件可以随框架一起移动，并且受框架控件某些属性(Visible、Enabled等)的控制。

在设计界面时，经常使用框架控件对其他控件进行分组，以使界面更清晰。在一般情况下，不需要响应框架控件的事件。在框架控件中，需要修改的属性一般为Name、Caption或Font。

使用框架控件将其他控件分组的方法有两个：

先画出框架控件并激活它，再加入其中的控件，这样可使框架控件与其上的控件一起移动。

如果要用框架控件将现有的控件分组，可先选定所有控件，将它们剪切到剪贴板上，然后选定框架控件并将剪贴板上的控件粘贴到Frame控件上。

【课堂演练】

【实例3-11】如图3.16所示，在文本框中输入时数、分数、秒数，并转化成秒数，然后输出。图3.16计算秒数

【实现步骤】

(1)问题分析。设通过文本框控件输入的时数为h，分数为m，秒数为s，则利用公式：

x=h×3600+m×60+s

可以计算合计秒数x。

(2)建立用户界面。新建一个工程，进入窗体设计器，在窗体中增加一个框架控件Frame1、一个命令按钮Command1和一个标签Label1。在Frame1上添加三个文本框控件Text1～Text3，如图3.17所示。图3.17用户界面

(3)设置对象属性，见表3-6。设置属性后的窗体如图3.16所示。

(4)编写事件代码。“计算”命令按钮Command1的Click事件代码如下：

PrivateSubCommand1_Click()

DimhAsInteger,mAsInteger,sAsInteger

‘定义时、分、秒的数据类型为整型

DimxAsLong

h=Val(Text1.Text) '通过Text1输入时数

m=Val(Text2.Text) ‘通过Text2输入分数

s=Val(Text3.Text) ’通过Text3输入秒数

x=h*3600+m*60+s ‘计算秒数

Label1.Caption=“共计秒数”&Str(x)&“秒”

’输出到Label1

EndSub

(5)运行程序，结果如图3.16所示。任务3.3使用对话框实现数据输入和输出

任务导入

除了前面学习的数据输入和输出方法外，在图形用户界

面中，对话框(DialogBox)也是程序与用户交互的另一种主要途径。

对话框分为两种：一是输入框(InputBox)，可以输入信息；二是消息框(MsgBox)，可以显示信息，也就是输出信息。

本任务学习使用对话框实现数据输入和输出的方法。学习目标

(1)能熟练使用输入框(InputBox)输入数据。

(2)能熟练使用消息框(MsgBox)输出数据。任务实施

1.掌握输入框(InputBox)函数的使用方法

输入框函数用来显示一个能接受用户输入数据的对话框，并返回用户在对话框中输入的信息。

输入框的语法格式为

〈变量〉=InputBox(〈信息内容〉[,〈对话框标题〉][,〈默认内容〉])

【说明】

(1)〈信息内容〉为在对话框中出现的文本。在〈信息内容〉中使用硬回车符CHR(13)可以使文本换行。对话框的高度和宽度随着〈信息内容〉的增加而增加，最多可有1024个字符。

(2)〈对话框标题〉用来指定对话框的标题。

(3)〈默认内容〉可以指定输入框的文本框中显示的默认文本。若用户单击“确定”按钮，则文本框中的文本将返回到〈变量〉中；若用户单击“取消”按钮，则返回的将是一个0长度的字符串。

(4)当省略了某些可选项时，其间的逗号分隔符不可省略。

【课堂演练】

【实例3-12】“鸡兔同笼”问题。鸡有2只脚，兔有4只脚，如果已知鸡和兔的总头数为h，总脚数为f，问笼中鸡和兔各有多少只？

【实现步骤】

(1)问题分析。设笼中有鸡x只，兔y只，由条件可得方

程组：解方程组得

(2)建立用户界面并设置对象属性。新建一个工程，进入窗体设计器，首先增加三个标签Label1～label3和一个命令按钮Command1。其属性设置参见图3.18。图3.18“鸡兔同笼”问题

(3)编写事件代码。“输入h和