Visual Basic程序设计教程 第4章

《Visual Basic程序设计教程 第4章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、4.1顺序结构4.2选择结构程序设计4.3循环结构第4章基本的控制结构退出4.4综合实例4.1顺序结构4.1.1数据输出4.1.2数据输入返回退出4.1.1数据输出1Print方法2与Print方法有关的函数3使用位置属性4清除方法CLS5使用“标签”控件的输出1Print方法Print方法的语法格式为：object.Print{Spc(n)Tab(n)}expressioncharpos其中：object：窗体、图片框、打印机等对象。Expression：要打印的数值表达式或字符串表达式。Charpos：逗号或分号，指定下个字符的插入点。2.与

2、Print方法有关的函数与Print相配合的函数：（1）Tab函数与Print#语句或Print方法一起使用，对输出进行定位。格式：Tab[(n)]当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输入项之间用分号隔开。例题PrivateSubForm_Click()Print"12345678901234567890"PrintTab(5);"5";Tab(10-2);"8","'注意这里10-2>当前位置5，故同行显示"PrintTab(5);"5";Tab(10-6);"4";Tab(20-15);"5";"'注意

3、这里10-6<当前位置5，故换行显示；20-15>当前位置4，故同行显示"EndSub程序执行结果见图4-1。程序中已经对程序显示特点做出解释。图4-1Print方法与Tab()函数结合（2）Spc函数格式：Spc(n)在显示或打印列表中的下一个表达式之前插入n个空白数，n为0~32767之间的整数。Spc函数与输出项之间用分号隔开。如果n小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。如果n大于输出行的宽度，则Spc利用下列公式计算下一个打印位置：当前位置+(nMod行宽)Spc函数与Tab函数的作用类似，可以互相代替。但应注意

4、，Tab函数从对象的左端开始记数，而Spc函数只表示两个输出项之间的间隔。3.使用位置属性位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体、图片框或打印页上。这两个属性分别表示当前输出位置的横坐标与纵坐标。格式：[对象名称].CurrentX[=x][对象名称].CurrentY[=y]例如：下面程序将图片框相对于窗体居中显示，图片框中的文字居中显示。PrivateSubForm_Click()Dimstr1AsStringstr1="图片框相对窗体、文字相对图片框居中显示"Picture1.FontName="宋体"'图片

5、框中文字的字体Picture1.FontSize=16'图片框中文字的字号Picture1.Left=(ScaleWidth-Picture1.Width)/2'图片框水平位置Picture1.Top=(ScaleHeight-Picture1.Height)/2'图片框垂直位置Picture1.CurrentX=Picture1.ScaleLeft+Picture1.Width/2-Picture1.TextWidth(str1)/2'输出水平位置Picture1.CurrentY=Picture1.ScaleTop+Picture1.Heig

6、ht/2-Picture1.TextHeight(str1)/2'输出垂直位置Picture1.Printstr1'在图片框中输出字符串str1EndSub各对象的其他参数保持默认值。程序设计时和运行结果见图4-2。无论怎样调整窗体，只要单击窗体，都会按题目要求调整图片框和文本的位置。TextWidth()为求文本宽度的函数。（a）设计时（b）运行时图4-2位置属性的应用4.清除方法CLSCls将清除图形和打印语句在运行时所产生的文本和图形，清除后的区域以背景色填充。但是设计时在Form中使用Picture属性设置的背景位图和放置的控件不受Cls

7、影响。语法：[〈对象名称〉.]Cls例如，为了在运行时双击窗体时清除图片框中的文本，编写的程序为：PrivateSubForm_DblClick()Picture1.Cls'清除图片框中的文本EndSub如果将代码由Picture1.Cls改为.Cls，将无法清除图片框中的文本。5.使用“标签”控件的输出标签（Label）是VB中最常用的输出文本信息的工具，目前几乎完全取代了Print方法。例如：建立一个Label控件和Command控件，按表4-1设置设计时属性。加入如下代码，运行程序。PrivateSubCommand1_Click()Lab

8、el1.WordWrap=TrueLabel1.AutoSize=TrueLabel1.BorderStyle=1Label1.Back