vb程序设计教程集004.pptxVIP

4.1 顺序结构4.1.1数据输出4.1.2数据输入返回退出4.1 .1 数据输出1 Print方法2与Print方法有关的函数3使用位置属性4清除方法CLS5 使用“标签”控件的输出1 Print方法Print方法的语法格式为：object.Print {Spc(n) | Tab(n)} expression charpos其中：object：窗体、图片框、打印机等对象。Expression：要打印的数值表达式或字符串表达式。Charpos：逗号或分号，指定下个字符的插入点。2. 与Print方法有关的函数与Print相配合的函数： （1）Tab函数与 Print # 语句或 Print 方法一起使用，对输出进行定位。格式：Tab[(n)]当在一个 Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各输入项之间用分号隔开。例题Private Sub Form_Click() Print 12345678901234567890 Print Tab(5); 5; Tab(10 - 2); 8, 注意这里10-2当前位置5，故同行显示 Print Tab(5); 5; Tab(10 - 6); 4; Tab(20 - 15); 5; 注意这里10-6当前位置5，故换行显示；20-15当前位置4，故同行显示End Sub程序执行结果见图4-1。程序中已经对程序显示特点做出解释。图4-1 Print方法与Tab()函数结合（2）Spc函数在显示或打印列表中的下一个表达式之前插入n个空白数，n为0~32767之间的整数。Spc函数与输出项之间用分号隔开。 格式：Spc(n)如果 n 小于输出行的宽度，则下一个打印位置将紧接在数个已打印的空白之后。如果 n 大于输出行的宽度，则 Spc 利用下列公式计算下一个打印位置：当前位置+ (n Mod 行宽)Spc函数与Tab函数的作用类似，可以互相代替。但应注意，Tab函数从对象的左端开始记数，而Spc函数只表示两个输出项之间的间隔。3. 使用位置属性位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体、图片框或打印页上。这两个属性分别表示当前输出位置的横坐标与纵坐标。 格式： [对象名称].CurrentX [=x][对象名称].CurrentY [=y]例如：下面程序将图片框相对于窗体居中显示，图片框中的文字居中显示。Private Sub Form_Click()Dim str1 As String str1 = 图片框相对窗体、文字相对图片框居中显示 Picture1.FontName = 宋体 图片框中文字的字体 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.Height / 2 - Picture1.TextHeight(str1) / 2 输出垂直位置 Picture1.Print str1 在图片框中输出字符串str1End Sub各对象的其他参数保持默认值。程序设计时和运行结果见图4-2。无论怎样调整窗体，只要单击窗体，都会按题目要求调整图片框和文本的位置。TextWidth()为求文本宽度的函数。 （a）设计时 （b）运行时图4-2 位置属性的应用4. 清除方法CLSCls 将清除图形和打印语句在运行时所产生的文本和图形，清除后的区域以背景色填充。但是设计时在 Form 中使用 Picture 属性设置的背景位图和放置的控件不受 Cls 影响。 语法： [〈对象名称〉.]Cls例如，为了在运行时双击窗体时清除图片框中的文本