资源描述:
《VB程序设计 第三章 VB语言基础.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、第三章VB语言基础主要内容•程序书写规则•数据类型•常量与变量及变量的定义方法•系统常量和变体类型变量识别函数•运算符(算术、关系、逻辑)和表达式•常用内部函数(数学、转换、字符串、日期、格式化)和Shell函数•字符串编码及编码转换函数•初次学习本章常犯的一些错误3.1编码基础1.VB代码不区分字母的大小写系统保留字自动转换每个单词的首字母大写;自定义以第一次用户自定义行为准。2•语句书写自由一•行可书写几句语句,之间用冒号分隔;一句语句可分若干行书写,用续行符“…”连接。(实际使用时一个空格符后紧跟一个下划线;一行<二25
2、5个字符。注意:不能将变量名或属性名分在两行上书写。通常可将缩行附加在运算符的前后或逗号分割符的后面。3.注释使用注释有利于程序的维护和调试。注释用山关键字Rem或单撇'开始;格式:RemVB—个可视化的应用程序'注释部分不能在接在缩行符之后。多行注释,每行都必须山注释符开始。可以使用VB提供的“编辑”工具栏來“设匿注释块”和“解除注释块”。(定制编辑工具栏方法:视图・>工具栏・>编辑)4.保留行号与标号。标号是以字符开始冒号结束的一串字符。一般用在转移语句中。3.2数据类型VisuaIBasic的标准数据类型数据类型关键字类
3、型符前缀占字节数范围字节型Byte无Bvt10、255无符号型整数逻辑型Boolean无bln2True和False整型Integer%int2-32768~32767长整型Long&Ing4■2,147,483,648~2,147,483,647单精度Singlef■sng4负数:-3.402823E38~-1.401298E-45正数:1.401298E-45"3.402823E38双精度Doubledbl8负数:-1.79769313486232D308、-4.9406564584124D-324正数:4.9406561
4、584124D-324~1.79769313486232D308货币型Currency@cur8-922,337,203,685,477.5808~922,337,203,685,477.5807日期型Date(time)无dtin8001/01/1006'"2/31/9999#字符型Stringsstr1字节/字符0~65535个字符对象型Object无obj4任何对象引用变体型Variant无vnt根据需要分配1.数值型数据类型:Integer、Long、Single>Double>CurrencyByte。在写具体数值时
5、要注意不要超过规定的类型数据所允许的范围,否则运行时发生溢出错误。运算结果如超出范围同样也发生溢出错误。千万注意这一点。(1)Integer和Long在VB中黎型数用土n[%]表示,n是0〜9的数字,%是整型数的类型符,可省略。例如:12%,12,123,456%o表示长整型数用土n&表示,n是0~9的数字,例如:12&-12345&.另外,VB中还有二进制、八进制、十六进制常数。二进制常数形式:数值前面加&B。例如:&B1001,&B10000八进制常数形式:数值前面加&0或&(注:若在程序中&后无。则系统自动加上o)。例如
6、:&0123,&03457十六进制常数形式:数值前面加&Ho例如:&H79FFH79FF6(2)Single和DoubIeVB中单精度浮点数精度7位,双精度度浮点数16位。单精度浮点数有多种表示形式:土n.n、±n!、±nE±m^±n.nE±m,其中m、n为0〜9数字。表示双精度的浮点数只要将表示单精度浮点数的线”,“E”分别换成“#”和“D”即可。或者在“E”的数字之后加上(3)CurrencyCurrency是定点实数或整数,最多保留小数点右边4位和小数点左边15位。用于货币计算。表示数字后用“@”符号,例如123.4@、
7、123@o2.日期数据类型日期型按8个字节的浮点数来存储。衣示日期范围是公元100年1月1日〜9999年12月31日,而时间范围为0:0:00〜23:59:59o日期型数据表示有两种方法:(1)任何字面上可被认作日期和时间的字符,只要用号码符(#)扩起来表示;例如:#January1,2000#;#10/12/2000#;#1998-5-1212:30:00PM#(2)以数字序列表示:小数点左边的数字代表日期,表示经过的天数,1表示1899-12-31,2表示1900-1-10而小数点右边的数字代表时间;0表示午夜,0.5为中
8、午12点;负数代农的是1899年12月31日之前的日期和时间。例如下而的程序可以在用八单击窗体后,显示出…个山数字转化來的日期:[例Jmyvbvb3ex31Ibc301.vbpOptionExplicitPrivateSubForm_Click()DimtestDate