图3.5 使用Tab函数进行对齐输出
项目三 赋值与输入输出
【实现方法】 编写窗体Form的Click事件代码: Private Sub Form_Click() Show FontSize = 12 ‘ 设置输出文本字体的大小 Print
项目三 赋值与输入输出
Print Tab(10); “姓名”; Tab(25); “性别”; Tab(40); “年龄” Print Print Tab(10); “刘 榴”; Tab(25); “女”; Tab(40); 16 Print Tab(10); “韩小强”; Tab(25); “男”; Tab(40); 18 End Sub
属性 FontName FontBold FontItalic
表 3-1 字体属性及名称
名称
属性
字体名
FontSize
字体样式粗体
FontStrikethru
字体样式斜体
FontUnderline
名称 字号大小 加删除线 加下划线
项目三 赋值与输入输出
【课堂演练】 【实例3-4】 如图3.6所示,按某字体大小,把字符串“五 光十色”输出到窗体上,坐标位置为(800,600)。
项目三 赋值与输入输出
(a)
(b)
图3.7 建立用户界面并设置对象属性
项目三 赋值与输入输出
(3) 编写事件代码。“显示”命令按钮Command1的Click 事件代码如下:
Private Sub Command1_Click()
Dim a As String
FontName = “隶书” ‘ 设置输出文本的字体
项目三 赋值与输入输出
(4) 当输出多个表达式时,各表达式之间用分隔符逗号“,” 或分号“;”隔开。