转载疯子VB教程 12

第12课,输出语句

前面我们讲了那个输入语句,有进就有出哈...一进一出,那个啥....(嘻嘻,不要想歪了啊)

回到正题,开始讲课

之前我们知道了输入语句,只进不出怎么能行呢?所以今儿个好好讲讲输出语句.
输出语句也是应用程序中不可缺少的部分.如果没有输出,那么你就根本不知道程序实现了什么功能.打个比方说,你玩一游戏,可是本来幻想的是华丽的界面,去享受了.可是游戏运行之后黑屏,什么都看不到,这就是游戏程序中没有输出图形,之后你为之扫兴,就发誓从此不玩那个垃圾了....如果没有输出功能,那么这个程序只能说它还没有完成.
在我们的VB里,提供了可以立即在窗口中输出的方法:print 方法.
你可以这样使用它:
object.print [outputlist]
其中
"object"------>用于位于列表中的对象,如,debug,command 等 的调用
"outputlist"-->要显示出的表达式或其列表,如果省略这句,则显示出一行空白

其中outputlist参数我们可以这样使用
{Spn(n) | Tab(n) expression charpos
在这个里面的任何参数都是可选项
Spn(n)------->用于在输入中插入空白字符,其中n表示空白字符个数
Tab(n)------->用来将插入点定为在绝对的列号上.这里的n为列号.如果忽略此句,则将插入点定为在下一个打印区的起始位置
Expression------->这句来说明你要显示的数字表达式或字符串表达式.
Charpos----------->用来指定下个字符的插入点.你可以使用分号";"直接将插入点定为在上一个显示出来的字符之后.使用Tab(n)将其定位在绝对列号上.如果忽略,则在下一行显示下一个字符

已经解释的够清楚的吧....其实都是很简单的.我们来看下面这个例子...我们使用print方法的几个例子
代码
debug.print Fales
debug.print #1/1/2000#
debug.print time
debug.print 12312
debug.print expression   '这里expression可以为各种变量或者是表达式,前面那个time的就是这样调用的

当然,如果有多个表达式要同时输出显示出来,每个表达式可以通过空格或分号来分隔.下面的几个输出语句都是合法的
代码
debug.print 1; 2
debug.print "欢迎"; "来到"; "Try2实验室"
Debug.Print #10/15/2006#; Time


这些都是可以使用的

对于位数很多的数字,VB也是很聪明的,它还会用科学计数法将其显示输出.你试试
这里有一点我希望大家务必要注意一下
因为VB中的print方法是按照字符比例进行打印的,所以字符数量与字符所占用的宽度固定的列的数目无关.比如所,"M"个宽字母占据的宽度超过一个固定的列宽,而"i"这个窄字母占据的宽度则比较小.考虑到要使用比平均字符更宽的空间,表列一定要留有足够的余地.另外,也可以使用固定间距的字体,来确定每一字符均只占一列(在这里我就知道一个Courier字体.大家要是知道还有别的字体一定要告诉我哦).

其实在很多时候,将结果显示在那个[立即]框中是非常恶心的.至少我恶心...显示在那个对话框中..这种方式应当说是在早期的编译器中的延续..DOS下的显示方式的延续...而在windows环境下.还要这个干吗?vb,vb..v是啥,v是Visual.可视的.b是啥?b不是用来卖的,不是用来装的.那种早期的方式早就该淘汰了.vb中是可以将结果通过各种控件来显示的.程序中比较常用的还是text...那个文本框.输出的时候,通过设定text文本框的属性来达到输出的目的.
下面我就给大家讲一下怎样用文本框来显示结果
在编写的时候.我们可以声明一个变量.之后.让text.text=这个变量
我们可以这样做,在窗体上添加一个文本框控件,之后

代码
Private Sub Form_Load()
dim a1 as Date

a1 = Time

Text1.Text = a1

End Sub


在这里我没有定义变量a1的类型,这是一个隐式声明,让VB去猜类型去吧,当这个顺序结构讲完之后,我就要出问题来考考大家了...
====================================


下面来所说输出的格式.我们在输出的时候,往往都会考虑输出的格式,比如,希望显示出来的字符居中,输出的数字都想保留两位小数.但是,无论你用那个print方法输出还是通过控件来显示,反正你给它什么它就显示什么,它们本身都无法控制输出的格式
在VB中,提供了几个用于控制格式的函数,其中最主要的是控制数字格式的函数
FormatNumber() 闪亮登场...哈哈哈
它的格式如下
FormatNumber (Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])
这个函数返回一个数字格式的表达式.其意思是
Expression------->要被格式的表达式
NumDigitsAfterDecimal-------->这是一个数字值,表示小数点右边的显示位数.缺省值为-1,表示使用计算机区域设置值.
IncludeLeadingDigit----------->三态常数,表示小数点前面是否显示零,记得很早以前,老师叫它们叫变态常数.哈哈
UseParensForNegativeNumber------->也是三态常数,用来表示要不要把负数值放在圆括号内
GroupDigits------------------->还是三态常数,表示设置分隔符对数组的分组,组分隔符在计算机的区域设置值中指定.


上面这些参数中,Expression是必须的,其他的是可选的,除了Expression和NumDigitsAfterDecimal,另外那三个三态常数的参数,分别都有3个设置值,(这不是废话吗?)其值分别为
TristateTrue----->它的值是 -1至于含义...当然是True
TristateFalse----->它的值是0和上面一样当然是False
TristateUseDefault---------->它的值为 -2用计算机区域设置值中的设置值

不知道这样给大家讲大家是否能看的明白..

这里有一点需要注意:当忽略一个或多个选项参数时,被忽略的参数值由计算机的区域设置值提供.所有设置值信息都来自[区域设置]对话框的[数字]选项卡.

例如,对于一个双精度型数据: a1=-3.141592653如果希望小数点后显示的有效位数为3,则可以采用语句
a1=formatnumber(a1,3,vbUseDefault ,vbUseDefault ,vbFalse )
其输出结果为-3.142
如果想保留小数点后面仅2位有效数字的值.那么我们可以
a1=formatnumber(a1,2,vbTrue,vbTrue,vbTrue)


FormatNumber()函数的返回值是一个字符串,通常情况下要把它赋给一个字符串型变量.因为该函数返回的各个字符都是数字字符,所以可以直接将其赋给一个数值型变量

以百分号的形式输出也是数字输出的一种重要形式,尤其是在做统计处理的时候.这种输出格式通过函数FormatPercent来控制,他的格式为:

FormatPercent (Expression[,NumDigitsAfterDecimal[,IncludeLeadingDigit[,UseParensForNegativeNumbers [,GroupDigits]]]])
和那个Number函数的参数一样,只是这个是来做统计处理的.
该函数返回一个百分比格式,(乘以100)的表达式,后面有%符号.因为带有非数字的字符,所以返回值要赋给一个字符串型变量.函数中的参数以及其含义和FormatNumber()的函数一致

我们看下面的这个例子
代码
Private Sub Form_Load()
Dim a1 As Double
Dim p1 As String
a1 = 0.0123456789
p1 = FormatPercent(a1, 4, vbFalse, vbFalse, vbFalse)
Debug.Print p1
End Sub

大家编译一下就可以看到输出结果了.


除了对数字型数据的格式化处理外,还有对字符串型数据和日期型数据的格式化整理.日期型数据的处理一般情况很少用到,这里就不所那么多了,如果有兴趣可以小窗我QQ一块儿讨论.
字符串型数据的格式化处理我们将放在后面重点介绍




--------------------

相关推荐

  • win7与xp的局域网共享教程,图解(转载) 昨天在论坛发了一个xp之间共享局域网的教程,教众说跟不上时代了,今天补一个win7和xp共享的教程。首先我今天用到了虚拟机进行操作,真机用到的是win7操作系统,虚拟机里是xp系统,下图虚拟机里xp系统真机里是win7操作系统要实现xp与w
  • Android程序开发初级教程(一)(转载) 令人激动的Google手机操作系统平台-Android在2007年11月13日正式发布了,这是一个开放源代码的操作系统,内核为Linux.作为开发者,我们所关心的是这个平台的架构以及所支持的开发语言。下面是这个平台的架构模型:这个平台有以下
  • 【转】 aboutcg最新CG视频教程聚集下载 【转】aboutcg最新CG视频教程聚集下载  aboutcg最新CG视频教程集合  下载地址:www.verycd.阿里影视/topics/2790639/  1.如何制作地狱之门里剑的模型  也可以使用下面的衔接下载。  本系列教学主要
  • 【转】 aboutcg最新CG视频教程聚集下载 【转】aboutcg最新CG视频教程集合下载  aboutcg最新CG视频教程聚集  下载地址:www.verycd.阿里影视/topics/2790639/  1.如何制作地狱之门里剑的模型  也可以使用下面的衔接下载。  本系列教学主要
  • 【转】 aboutcg最新CG视频教程凑集下载 【转】aboutcg最新CG视频教程凑集下载  aboutcg最新CG视频教程聚集  下载地址:www.verycd.阿里影视/topics/2790639/  1.如何制造地狱之门里剑的模型  也可以使用下面的连接下载。  本系列教学主要
  • [转载]史上最全jQuery资料 教程 书籍下载 原文地址:史上最全jQuery资料教程书籍下载作者:凯迪接下来说一下JqueryJQuery应该是最流行的JS库就是已经写好了的函数库他的口号是写更多少的代码,做更多的事,确实如此。学Jquery并不需要JS多么的精通,只要会就JS就能学,
  • 最新整理100个计算机热门视频教程免费下载(转) 发扬网络共享精神,让免费资源传遍整个互联网.以下是本人精心整理的100个计算机视频教程.收集不易,请各位网友多多支持.欢迎大家转载,发扬共享精神.(声明:网站防盗链,只发布链接地址.)转自:http://bbs.zol.com.cn/ind
  • 【转载】Adobe Audition V1.5 教程之一 【AdobeAuditionV1.5教程】之一一、简介:  Adobe推出AdobeAudition软件,这是一个完整的、应用于运行Windows系统的PC机上的多音轨唱片工作室。该产品此前叫做CoolEditPro2.1,在2003年5月
  • [转载]金鹰电脑教程合集下载-(ps、flash、premiere、 原文地址:金鹰电脑教程合集下载-(ps、flash、premiere、会声会影、aftereffect、illustrator作者:丽莎小小整理日期文件名称文件大小2007-8-20[PhotoShop]《金鹰AdobePhotoshopC
  • 第四十五章  我为疯子伸冤:所有的疯子都是圣洁的 第四十五章我为疯子伸冤:所有的疯子都是圣洁的去年五一回老家看望父母,特地上街去买菜,来到一卖青菜的中年妇女面前,三块钱一把,我看看剩下的不多,于是就全买下来了,共四把,十二元,可是她只收十元,我觉得十分奇怪,这是第一次,一个卖小菜的主动小收
  • MSDN WinXP SP3 最新Ghost纯净版 (电脑疯子作品) 软件名称MSDNWinXPSP3最新Ghost纯净版(电脑疯子作品)运行环境Win9x/NT/2000/XP/2003整理时间2009-6-202:44:42软件星级软件语言简体中文软件类型国内授权方式免费版软件大小696MB相关连接暂无联
  • GhostXP SP3 电脑疯子纯净版 (全新纯净之选) GhostXPSP3电脑疯子纯净版(全新纯净之选)迅雷专用链(右键下载):thunder://QUFodHRwOi8vMjE4LjAuMy4xNTA6ODA4MC9zdy9HaG9zdFhQX1NQM7CuusPV30RJWbS/vruw5

你的评论

就没有什么想说的吗?

最新博客

关于我们 移动版

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X