文档库

最新最全的文档下载
当前位置:文档库 > 第3章顺序结构程序设计

第3章顺序结构程序设计

Visual Basic 程序设计教程

机械工业出版社同名教材

配套电子教案

2003 年6月

第3章顺序结构程序设计

第3章顺序结构程序设计

图3-1使用Print方法图3-2建立程序界面

表3-1 属性设置

对象属性属性值说明

Command1Caption欢迎按钮的标

(3)设计代码

编写命令按钮Command1的Click事件代码:

Private Sub Command1_Click()

Print

Print"2*3+4=";2*3+4'使用“;‖分割符Print

Print"欢迎学习"

Print,"Visual"'使用“,‖分割符

Print,,"Baisc"'使用两个“,‖分割符

Print

Print"欢迎学习",'在行末使用“,‖分割符

Print"Visual";"Baisc―

End Sub

2.与Print方法有关的函数

(1)Tab函数

其格式为:Tab(〈n〉)

例如:Print Tab(10);"姓名";Tab(30);"年龄"

(2)Spc函数。

其格式为:Spc(〈n〉)

例如:Print"ABC";Spc(5);"DEF"

'输出:ABC DFE

【例3-2】在上例中使用Tab函数与Spc函数。

只需改写命令按钮的Click事件代码:

Private Sub Command1_Click()

Print

Print Tab(5);"2*3+4=";2*3+4

Print

Print Tab(6);"欢迎学习";Tab(17);"Visual Baisc"

Print

Print Tab(7);"欢迎学习";Spc(3);"Visual";Spc(2);"Baisc" End Sub

3.使用位置属性

【例3-3】下面程序按指定尺寸、颜色和外观,把文本输出到窗体的中间。

设计步骤如下:

(1)建立应用程序用户界面与对象属性的设置参见例3-1。

(2)编写命令按钮的Click事件代码:

Private Sub Command1_Click()

Dim a As String,textW As Integer,textH As Integer

FontName="隶书"

'输出文本的字体

FontSize=60

'输出字体的大小

ForeColor=QBColor(15)

'输出文本的前景色,即字体的颜色

BackColor=QBColor(8)

'输出文本的背景色,即窗体的颜色

a="你好"

'输出文本的内容

textW=TextWidth(a)/2'文本的宽度TextWidth(a)

textH=TextHeight(a)–Command1.Height/2

CurrentX=ScaleWidth/2–textW'设置输出的水平位置

CurrentY=ScaleHeight/2–textH'设置输出的垂直位置

Print a

'输出文本

End Sub

4. 清除方法CLS

【例3-4】在上例中使用Cls方法清除窗体中由Print方法所生成的文本,如图3-5所

图3-5 使用Cls方法

只需在上例中增加命令按钮Command2(清除),并且编写其Click 事件代码:

Private Sub Command2_Click()

Cls

End Sub

第3章顺序结构程序设计

(3)设计代码。

编写命令按钮Command1的Click事件代码:

Private Sub Command1_Click()

Picture1.Print

Picture1.Print Tab(2);"2*3+4=";2*3+4

Picture1.Print

Picture1.Print Tab(3);"欢迎学习";Tab(17);"Visual Baisc"

Picture1.Print

Picture1.Print Tab(4);"欢迎学习";Spc(3);"Visual"; Spc(2);"Baisc"

End Sub

【例3-6】在图片框中使用位置函数。

设计步骤如下。

(1) 建立应用程序用户界面与对象属性

(2)编写命令按钮的Click事件代码:

Private Sub Command1_Click()

Dim a As String,textW As Integer,textH As Integer Picture1.FontName="隶书"

Picture1.FontSize=40

Picture1.ForeColor=QBColor(15)

Picture1.BackColor=QBColor(8)

a="你好"

textW=Picture1.TextWidth(a)/2'文本的宽度TextWidth(a)

textH=Picture1.TextHeight(a)/2

Picture1.CurrentX=Picture1.Width/2–textW'窗体的宽度属性ScaleWidth

Picture1.CurrentY=Picture1.Height/2–textH'设置垂直位置为从顶部往下50twips

Picture1.Print a

End Sub

3. 使用“标签”控件的输出

【例3-7】有框和无框的标签

设计步骤如下。

(1)建立应用程序用户界面。选择“新建”工程,进入窗体设计器,增加一个命令按钮Command1、两个标签Label1和Label2。如图3-9左。

(2)设置对象属性,见表3-3。如图3-9右。

(3)编写程序代码。

编写命令按钮Command1的单击(Click)事件代码:

Private Sub Command1_Click()

Label1.Caption="运行时改变标签的标题"

End Sub

对象属性属性值说明Command1Caption改变(&G)按钮的标题

Label1Caption设计时设置的标签内

容标签的内容

Alignment 2 –Center标签的内容居中显示

Label2Caption设计时设置的标签内

标签的内容BorderStyle1–Fixed Single有边框的标签BackColor&H800000标签的背景改为白色表3-3 属性设置

图3-9 建立界面与设置属性

【例3-8】在上例中修改标签的属性,使之自动改变尺寸以适应其内容

只需在上例中修改Label2的属性设置,并且修改Command1的Click事件代码:

Private Sub Command1_Click()

Label1.Caption="运行时改变标签的标题"

Label2.Caption="对于一个较长的或在运行时可能变化的标题,标签控件提供了两"&_

"种属性:AutoSize和WordWrap来改变控件尺寸以适应较长或较短的标题。"

End Sub

第3章顺序结构程序设计

2.卸载对象与结束程序

Unload语句

Unload语句的语法格式为:Unload对象名

【例3-10】在例3-9中使用命令关闭程序窗体。

设计步骤如下:

只需在上例中增加一个命令按钮Command2

(关闭),并且编写Command2的Click事件代

码:

Private Sub Command2_Click()

Unload Me

End Sub

3. 注释与暂停

1.注释语句

语法格式为:

Rem〈注释内容〉或'〈注释内容

例如:s = pi * r ^ 2 '计算圆的面积

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

2.暂停语句

其语法格式为:Stop