VB第5章 数据的输入输出ppt课件.ppt

《VB第5章 数据的输入输出ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、陈国江青大师院教育技术系VisualBasic程序设计7/27/2021第五章数据的输入输出5.1数据输出——Print方法5.2数据输入——InputBox函数5.3MsgBox函数和MsgBox语句5.4字形5.5打印机输出7/27/20215.1.1Print方法Print方法可以在窗体上显示文本字符串和表达式的值，并可在其他图像对象或打印机上输出信息。一般格式[对象名称.]Print[表达式表][,│;]Print方法的功能可以用来进行输出操作。7/27/2021说明（1）“对象名称”可以是窗体，图片框或打印机，也可以是立即窗口。如果省略“对象名称”，则在当

2、前窗体上输出。（2）“表达式表”是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，打印出表达式的值；而字符串则原样输出。如果省略“表达式表”，则输出一个空行。7/27/2021（3）当输出多个表达式或字符串时，各表达式用分隔符（逗号，分号或空格）隔开。用逗号分隔，则按标准输出格式显示数据项。以14个字符位置为单位把一个输出行分为若干个区段，逗号后面的表达式在下一个区段输出。用分号或空格作分隔符，则按紧凑输出格式输出字符。7/27/2021（4）Print方法具有计算和输出双重功能，对于表达式，它先计算后输出。（5）在一般情况下，每执行一次print方法要自动换行

3、，也就是说，后面执行print时将在新的一行上显示信息。7/27/20215.1.2与Print方法有关的函数1.Tap函数格式：Tap(n)Tap函数把光标移到由参数n指定的位置，从这个位置开始输出信息。要输出的内容放在Tap函数的后面，并用分号隔开。例如PrintTap(25);800将在第25个位置输出数值800.7/27/2021例5.1PrivateSubForm_Click()Print:PrintFontName="魏碑"FontSize=16Print"姓名";Tab(8);"年龄";Tab(16);"职务";PrintTab(24);"单位";Tab(32

4、);"籍贯"PrintPrint"张得功";Tab(8);25;Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print"李得胜";Tab(8);32;Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海"EndSub7/27/20212.Spc函数格式：Spc（n）在print的输出中，用Spc函数可以跳过n个空格。3.空格函数格式：Space$(n)Space$函数返回n个空格7/27/20215.1.3格式输出一般格式:Format$（数值表达式，格式字符串）函数功能：按“格式字符串”指定的格式输出“数值表达式”

5、的值。说明:用格式输出函数Format$可以使数值或日期按指定的格式输出。7/27/2021格式说明字符字符作用#数字；不在前面或后面补00数字；在前面或后面补0.小数点，千位分隔符%百分比符号$美元符号-、+负、正号E+.E-指数符号7/27/20215.1.4其他方法和属性1.Cls方法格式：[对象.]ClsCls清除由print方法显示的文本或在图片框中显示的图形，并把光标移到对象的左上角（0，0）。这里的对象可以是窗体或图片框，如果省略“对象”则清除当前窗体内的显示内容。7/27/20212.Move方法格式：[对象.]Move左边距离[,上边距离[,宽度[,高度]

6、]]Move方法用来移动窗体和控件，并可改变其大小。7/27/2021例5.2PrivateSubForm_Click()Move800,800,3990,2600Text1.Move200,200,1500,1000Picture1.Move1800,200,1500,1000Picture1.Print"Picture1"EndSub7/27/20213.TextHeight和TextWidth方法格式：[对象.]TextHeight(字符串）[对象.]TextWidth(字符串）这两个方法用来辅助设置坐标。7/27/2021例5.3PrivateSubForm_Cli

7、ck()CurrentY=TextHeight("Microsoft")*6CurrentX=0Print"MicrosoftVisualBasic6.0"PrintTest$="Microsoft"PrintTest$PrintTextHeight(Test$),TextWidth(Test$)FontSize=18PrintPrintTest$PrintTextHeight(Test$),TextWidth(Test$)EndSub7/27/2021例5.4PrivateSubForm_Click()FontS