资源描述：
《可视化程序设计第3章 顺序结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第3章顺序结构程序设计3.1数据输出3.1.1直接输出到窗体1.使用Print方法:其语法格式为[〈对象名称〉.]Print[〈表达式列表〉][{,
2、;}]【例3-1】使用Print方法在窗体中直接输出字符串或数值表达式的值，如图3-1所示。设计步骤如下。(1)建立应用程序用户界面。选择“新建”工程，进入到窗体设计器，并在窗体中增加一个命令按钮Command1，如图3-2所示。(2)设置对象属性，见表3-1。图3-1使用Print方法图3-2建立程序界面表3-1属性设置对象属性属性值说明Command1Caption欢迎按钮的标题(3)设计代码编写命令
3、按钮Command1的Click事件代码：PrivateSubCommand1_Click()PrintPrint"2*3+4=";2*3+4'使用“;”分割符PrintPrint"欢迎学习"Print,"Visual"'使用“,”分割符Print,,"Baisc"'使用两个“,”分割符PrintPrint"欢迎学习",'在行末使用“,”分割符Print"Visual";"Baisc“EndSub2.与Print方法有关的函数Tab函数—对输出进行定位其格式为:Tab(〈n〉)例如:PrintTab(10);"姓名";Tab(30);"年龄"(2)Sp
4、c函数—提供若干空格其格式为:Spc(〈n〉)例如：Print"ABC";Spc(5);"DEF"'输出：ABCDFE3.使用位置属性精确定位文本,可以使用位置属性CurrentX和CurrentY控制文本大小和外观,可以使用FontName、FontSize、FontItalic、FontBold、FontStrikeThru、FontTransparent和FontUnderline属性【例3-3】下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间。(P45)设计步骤如下：(1)建立应用程序用户界面与对象属性的设置参见例3-1。(2)编写命令按
5、钮的Click事件代码：PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerFontName="隶书"'输出文本的字体FontSize=60'输出字体的大小ForeColor=QBColor(15)‘输出文本的前景色，即字体的颜色BackColor=QBColor(8)'输出文本的背景色，即窗体的颜色a="你好"'输出文本的内容textW=TextWidth(a)/2'文本的宽度TextWidth(a)textH=TextHeight(a)–Command1.Heigh
6、t/2CurrentX=ScaleWidth/2–textW'设置输出的水平位置CurrentY=ScaleHeight/2–textH'设置输出的垂直位置Printa'输出文本EndSub4.清除方法CLS【例3-4】在上例中使用Cls方法清除窗体中由Print方法所生成的文本，如图3-5所图3-5使用Cls方法只需在上例中增加命令按钮Command2（清除），并且编写其Click事件代码：PrivateSubCommand2_Click()ClsEndSub3.1.2输出文本到图片框图片框控件(PictureBox)可以输出图形,图象和文本,还可以
7、象窗体一样作为容器包含其它控件。图片框控件也具有窗体的上述属性和方法。【例3-5】使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下：(1)建立应用程序用户界面。选择“新建”工程，进入窗体设计器，在窗体中增加一个图片框Picture1和一个命令按钮Command1。(2)设置对象属性对象属性属性值说明Picture1BackColor白色图片框的背景色Command1Caption欢迎按钮的标题(3)设计代码。编写命令按钮Command1的Click事件代码：PrivateSubCommand1_Click()Picture1.Pri
8、ntPicture1.PrintTab(2);"2*3+4=";2*3+4Picture1.PrintPicture1.PrintTab(3);"欢迎学习";Tab(17);"VisualBaisc"Picture1.PrintPicture1.PrintTab(4);"欢迎学习";Spc(3);"Visual";Spc(2);"Baisc"EndSub【例3-6】在图片框中使用位置属性。设计步骤如下。(1)建立应用程序用户界面与对象属性(2)编写命令按钮的Click事件代码：PrivateSubCommand1_Click()DimaAsString
9、,textWAsInteger,textHAsIntegerPicture1.FontName
