最新第三章VB程序设计基础-课件教学讲义ppt课件.ppt

《最新第三章VB程序设计基础-课件教学讲义ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第三章VB程序设计基础-课件3VB程序设计基础第三章VisualBasic基本语句窗体数据输入与输出目录1.表达式与变量精度不同DimNumAsIntegerNum=7.89强制转换成变量的精度，Num=8（四舍五人)2.表达式为数字字符串，变量是数值类型Dima%a="123"自动将数字字符串转换为数值类型a=1233.表达式是逻辑型，变量是数值型Dima%a=True逻辑型数据转换为相应的数值类型，a=-1True转换为-1False转换为04.任何非字符串赋值给字符类型Dima$a=Truea=123则a="True"a="

2、123"注意：（1）“=”为赋值号a=b只能将右边表达式赋给左边变量（2）赋值号左边只能是变量。不能是常量、常数符号或表达式sin(x)=x+y5=sqr(s)+x+yx+y=33.1.3数据输出1.Print方法格式：[对象.]Print[表达式列表][;

3、,]功能：在指定的对象中输出表达式的值。说明：（1）对象可为窗体、图片框、打印机、如省略对象名，则在当前窗体输出。（2）表达式逗号(，)分隔——标准格式(分区输出）。表达式分号（；）分隔——紧凑格式数值数据前面有一个符号位后面有一个空格输出字符串时，各个字符串之间没有间隔（

4、3）表达式缺省，则输出空行PrivateSubForm_Click()DimaAsInteger,bAsInteger,tAsIntegera=100:b=500Print"交换前";a;bt=a:a=b:b=tPrint"交换后";a;bEndSubPrivateSubForm_Load()AutoRedraw=TruePrint"交换两个数"Print"单击窗体开始"EndSub2.与Print方法有关的函数(1)Tab函数功能：在指定的位置显示输出信息格式：PrintTab(n)其中：n为一整数，是下一个输出位置的列号。如当

5、前的显示位置已经超过n，则下移一行。如n<1，则把显示位置移到第一列。PrivateSubCommand1_Click()PrintTab(10);100;Tab(30);200;Tab(20);300PrintTab(-10);400PrintTab(10);100PrintTab(10);-100PrintTab(10);"AAA"EndSub【例】输出一个如下图所示的用星号组成的倒三角形。****************PrivateSubForm_Click()Form1.PrintTab(11);"*******"For

6、m1.PrintTab(12);"*****"Form1.PrintTab(13);"***"Form1.PrintTab(14);"*"EndSub例：Print"姓名";Tab(10);"年龄"Print"张三";Tab(10);18Print"姓名";Tab(10);"年龄"Print"张三";Tab(9);18(2)Spc函数功能：在Print的输出中跳过n个空格。格式：PrintSpc(n)说明：n为整数，取值范围：0～32,767。Spc函数和Tab函数的功能类似，可互相代替Tab函数：从对象的左端开始计数Spc函数：

7、表示两个输出项之间的空格数。例：Print"姓名";Tab(10);"年龄"Print"姓名";Spc(5);"年龄"(3)Space$函数功能：返回由n个空格组成的字符串。格式：Space$(n)其中：n为整数，取值范围：0～32,767。Space$函数用于在输出项之间插入空格字符串。例：Print"姓名";Spc(5);"性别"Print"姓名";Space$(5);"性别"(4)格式输出函数按指定的格式输出数值或日期数据。格式：Format$(数值表达式，格式字符串)说明：（1）“格式字符串”指定的格式，以文本方式输出“数

8、值表达式”的值。（2）如省略“格式字符串”，则Format$函数功能与Str$函数功能基本相同，区别在于把正数转换成字符串时：Str$函数在字符串前面留有一个空格Format$函数在字符串前面不留空格“格式字符串”由格式说明字符组成，决定数据项的显示格式，并指定显示区段的长度。常用格式字符串介绍：（1）数值格式化#——整数位数<或>符号位数，按实际数字显示小数位数>符号位数，按四舍五入显示0——整数部分位数<符号位数，数字前加0整数位数>符号位数，按实际数字显示小数位数>符号位数，按四舍五入显示小数位数<符号位数，后补0例：Pri

9、vateSubForm_Click()PrintFormat(1234.567,"#####.####")PrintFormat(1234.567,"###.##")EndSub不在数前或后补0例：PrivateSubForm_Click()Pri