第3章 顺序结构程序设计.ppt

图3-1 使用Print方法图3-2 建立程序界面
表3-1 属性设置
对象
属性
属性值
说明
Command1
Caption
欢迎
按钮的标题
(3) 设计代码
mand1的Click事件代码:
Private mand1_Click()
Print
Print "2 * 3 + 4 ="; 2 * 3 + 4 ' 使用“;”分割符
Print
Print "欢迎学习"
Print , "Visual" ' 使用“,”分割符
Print , , "Baisc" ' 使用两个“,”分割符
Print
Print " 欢迎学习", ' 在行末使用“,”分割符
Print "Visual"; " Baisc“
End Sub

Tab函数—对输出进行定位
其格式为:Tab(〈n〉)
例如:Print Tab(10);"姓名";Tab(30);"年龄"
(2) Spc函数—提供若干空格
其格式为:Spc(〈n〉)
例如:Print "ABC";Spc(5);"DEF" ' 输出:ABC DFE

精确定位文本,可以使用位置属性CurrentX和CurrentY
控制文本大小和外观,可以使用FontName、FontSize、FontItalic、FontBold、FontStrikeThru、FontTransparent和FontUnderline属性
【例3-3】下面程序按指定尺寸、颜色和外观,把文本输出到窗体的中间。(P45)
设计步骤如下:
(1) 建立应用程序用户界面与对象属性的设置参见例3-1。
(2) 编写命令按钮的Click事件代码:
Private mand1_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) – / 2
CurrentX = ScaleWidth / 2 – textW ' 设置输出的水平位置
CurrentY = ScaleHeight / 2 – textH ' 设置输出的垂直位置
Print a ' 输出文本
End Sub
4. 清除方法CLS
【例3-4】在上例中使用Cls方法清除窗体中由Print方法所生成的文本,如图3-5所
图3-5 使用Cls方法
mand2(清除),并且编写其Click事件代码:
Private mand2_Click()
Cls
End Sub
输出文本到图片框
图片框控件(PictureBox)可以输出图形,图象和文本,还可以象窗体一样作为容器包含其它控件。图片框控件也具有窗体的上述属性和方法。
【例3-5】使用Print方法在图片框中输出字符串或数值表达式的值。
设计步骤如下:
(1) 建立应用程序用户界面。选择“新建”工程,进入窗体设计器,mand1。
(2) 设置对象属性
对象
属性
属性值
说明
Picture1
BackColor
白色
图片框的背景色
Command1
Caption
欢迎
按钮的标题
(3) 设计代码。
mand1的Click事件代码:
Private mand1_Click()

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

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

Tab(4);"欢迎学习";Spc(3);"Visual";Spc(2);"Baisc"
End Sub
【例3-6】在图片框中使用位置属性。
设计步骤如下。
(1) 建立应用程序用户界面与对象属性
(2) 编写命令按钮的Click事件代码:
Private mand1_Click()
Dim a As String, textW As Integer, textH As Integer
Pict