第四节VB程序代码与控制结构设计基础课件.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 为此可在通用声明处加Option Explicit语句可强制显示声明变量，也可以通过菜单“工程”→“选项”对话框，选中选项卡“编辑器”中的“要求变量声明”复选框。 * * * * * * * * * * * * * * * * * * * * * * * 下表列出常用的日期和时间函数。 函数名 含义 示例 结果 Date() 返回系统日期 Date() 2004-10-20 Time() 返回系统日期 Time() 5:30:00 Now 返回系统日期和时间 Now 2004-10-20 5:30:00 Hour(Now) 或 Hour(Time) 返回系统时间的小时数 Hour(Now) 11 Minute(Now) 或Minute(Now) 返回系统时间的分钟数 Minute(Now) 20 Month(Now) Month(Time) Month(C) 返回系统的月份 返回一年多少个月 返回月份代号（1-12） Month(Now) Month(Time) Month(06-7-18) 7 12 7 Year(Now) Year(C) 返回系统的年份 返回年代号（1752-2078） Year(06-7-18) 2006 3.日期函数 函数名 含义 示例 结果 WeekDay (Now) WeekDay (Time) WeekDay(C) 返回系统的星期 返回一个星期的天数 返回星期代号（1-7），星期日为1 WeekDay (Now) WeekDay (Time) WeekDay(06-7-18) 3 7 3 WeekDayName(N) 根据N返回星期名称，1为星期日 WeekDayName(1) 星期日 Day(Now) Day(C) 返回系统的日期 返回日期代号（1-31） Day(Now) Day(06-7-18) 18 18 MonthName(N) 返回月份名 MonthName(1) 一月 续表 转换函数用来实现不同类型数据之间的转换。下表中列出了常用的转换函数的功能和示例。 函数名 功能 示例 结果 Str(N) 数值转换成字符串 Str(50.2) 50.2 Val(N) 将字符串N中的数字转换成数值 Val(23ab) 23 Chr(N) ASCII码值转换成字符 Chr(65) A Asc(C) 字符转换成啊ASCII码值 Asc(a) 97 Cint(N) 数值型数据小数部分四舍五入取整 Cint(5.7) 6 Hex$(N) 十进制转换为十六进制，返回的是字符串型值 Hex$(30) 1E Oct$(N) 十进制转换为八进制，返回的是字符串型值 Oct$(10) 12 Lcase(C) 大写字母转换为小写字母 Lcase(ABC) abc Ucase(C) 小写字母转换为大写字母 Ucase(abc) ABC 4. 类型转换函数 函数名 功 能 示 例 结 果 CBool(x) 将任何有效的数字字符串或数值 转换成逻辑型非零数字字符串或 数值即为真 CBool(2) CBool(0) True False CByte(N) 将0~255之间的数值转换成字节型 CByte(6) 6 CDate(D) 将有效的日期字符串转换成日期 CDate(#2006-07-18#) 2006-07-18 CCur(N) 将数值数据转换成货币型 CCur(25.6) 25.6 CStr(N) 数值型数据转换成字符串型 CStr(12) 12 CVar(N) 转换成变体型 CVar(23)+A 23A CSng(N) 数值数据转换成单精度型 CSng(23.5125468) 23.51255 CDbl(N) 数值数据转换成双精度型 CDbl(23.5125468) 23.5125468 续表 八、基本语句 1．If … Then语句 其语句有两种使用格式，语法格式如下： If 表达式 Then 语句 或者 If 表达式 Then 语句块 End if 说明： (1)当表达式的值为真（True或非零）时，执行Then后面的语句块或语句，否则不做任何操作。 (2) 表达式是一个条件表达式、逻辑表达式，也可以是算术表达式；语句块可以是一句或多句，语句只能是一条语句，若多语句，则语句间用冒号分隔，必须在一行上书写。 ? (一) 选择语句 例如： If Data=90 Then Print 优秀 ‘如果成绩≥90，打印输出“优秀” If ab then ‘如果a的值大于b的值，则进行交换