VB中的数据类型1.ppt

谁去打开水 Private Sub Command1_Click() Randomize temp! = Rnd() Form2.Print Int(temp! * 10*0.8); “号去吧 End Sub * 转换函数 函 数 说 明 实例 结果 Int 返回不大于给定数的最大整数 Int(3.6) 3 Fix 返回数的整数部分 Fix(-3.6) -3 Hex$ 把一个十进制数转换成十六进制数 Hex$(32) 20 Oct$ 把一个十进制数转换成八进制数 Oct$(14) 16 Asc 返回字符串中第一个字符的ASCII码 Chr$ 把相应值转换为ASCII字符 Chr$（10） 换行符 Str$ 把相应值转换为一个字符串 Str$(123) “123” Val(c) 把相应字符转换为一个数值 Val(“10”) 10 * 【例3.2】 在窗体上添加一个文本框和一个命令按钮。当运行程序时，向文本框中输入一个字符，单击命令按钮，在窗体上显示该字符的ASCII码。 Private Sub Command1_Click() Print ″ASCII 是： ″; Asc(Text1.Text) End Sub * 类型转换函数 ? ? ? ? ? ? ? ? ? ? ? ? 每个函数都可以强制将一个表达式转换成某种特定数据类型。 ?  * 函数 返回类型 参数范围 CLng Long -2147483648~2147483647，小数部分四舍五入 Csng Single 负数:-3.402823E38~-1.401298E-45；正数：1.401298E-45~3.402823E38 Ccur Currency -922337203685477.5808~922337203685477.5807 Cdate Date 任何有效的日期表达式 Cdbl Double 负数:-1.79769313486232EE308~-4.94065645841247E-324 正数:4.94065645841247E-324~1.79769313486232E308 Cint Integer -32768~32767，小数部分四舍五入 Cvar Variant 若为数值，范围与Double相同；若不为数值，则范围与String相同 * 日期/时间函数 函 数 功能 Now 返回系统日期和时间(yy-mm-dd hh:mm:ss) DateSerial(年,月,日) 返回一个日期形式 Day(Now) 返回月中第几天(1~31) WeekDay(Now) 返回是星期几(1~7) Month(Now) 返回月份(1~12) Month(Now) 返回月份(1~12) Year(Now) 返回年份(yyyy) Hour(Now) 返回小时(0~23) Minute(Now) 返回分钟(0~59) Second(Now) 返回秒(0~59) TimeSerial(时,分,秒) 返回一个时间形式 * 【例3.3】 了解Date、Time、Now和VarType等函数的使用。窗体上只有一个命令按钮，其Caption属性为“使用日期函数”。 Private Sub Command1_Click() Print ″Now :″; Now, VarType(Now) Print ″Date:″; Date, VarType(Date) Print ″Time:″; Time, VarType(Time) Print ″Day :″; Day(Now), VarType(Day(Now)) End Sub * 说明： （1）日期和时间函数的自变量Now是个内部变量， 不需要用户定义。 （2）在“立即”窗口中演示，日期函数 命令行解释程序（Command Line Intepreter，CLI）： 通过命令行直接显示函数的执行结果。这种方式称为直 接方式，在“立即”窗口中执行。 * 字符处理与字符串函数 字符处理机制 早期：一个西文字符占一个字节，一个中文字符占两个字 节。这种处理机制称为ANSI方式。 现在：每个字符均用两个字节编码。这种处理机制称为 UniCode方式（统一编码方式）。 例：Print Len（“BASIC程序设计”） Print Lenb（“BASIC程序设计”） * 例： Private Sub Command1_Click()