文档介绍:Visual Basic 程序设计教程
***出版社同名教材配套电子教案
2003 年 6月
第3章顺序结构程序设计
数据输出
使用Print方法:
其语法格式为
[〈对象名称〉.] Print [〈表达式列表〉] [{, | ;}]
【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值,如图3-1所示。
设计步骤如下。
(1) 建立应用程序用户界面。
选择“新建”工程,进入到窗体设计器,mand1,如图3-2所示。
(2) 设置对象属性,见表3-1。
1
图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 "欢迎学****quot;
Print , "Visual" ' 使用“,”分割符
Print , , "Baisc" ' 使用两个“,”分割符
Print
Print " 欢迎学****quot;, ' 在行末使用“,”分割符
Print "Visual"; " Baisc“
End Sub
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 mand1_Click()
Print
Print Tab(5); "2 * 3 + 4 ="; 2 * 3 + 4
Print
Print Tab(6); "欢迎学****quot;; Tab(17); "Visual Baisc"
Print
Print Tab(7); "欢迎学****quot;; Spc(3); "Visual"; Spc(2); "Baisc"
End Sub
【例3-3】下面程序按指定尺寸、颜色和外观,把文本输出到窗体的中间。
设计步骤如下:
(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
输出文本到图片框
【例3-5】使用Print方法在图片框中输出字符串或数值表达式的值。
设计步骤如下:
(1) 建立应用程序用户界面。选择“新建”工程,进入窗体设计器,mand1。
(2) 设置对象属性
对象
属性
属性值
说明
Picture1
BackColor
(白色)
图片框的背景色
Command1
Caption
欢迎
按钮的标题