丽水学院vb3422115817914.pptVIP

两个比较有用的日期函数 1、DateAdd()增减日期函数： 如：DateAdd(“ww”,2,#2/14/2000#) 表示在指定日期上加2周，结果为：#2/28/2000# 2、DateDiff()间隔日期函数： 如：DateDiff(“d”,Now,#2009/6/30#) 符号 yyyy q m y d W ww h n s 意义 年 季 月 一年的天数 日 一周的日数 星期 时 分 秒 表3-9 日期形式 第31页/共37页 5. Shell()函数 Shell()函数的作用是在VB中调用一个可执行文件，返回一个 Variant （Double），如果成功调用的话，该值代表这个程序的任务标识 ID，若不成功，则会返回 0。 Shell函数的格式为：Shell（pathname[,windowstyle]） pathname：要执行的程序名（带路径，可执行文件） windowstyle：0~4、6，一般取1。 例如： J=shell(“c:\Program Files\Microsoft Visual Studio\VB98\VB6.exe”,1) J=shell(“notepad.exe”,1) 第32页/共37页 3.4 vb程序结构和编码规则 编程序如同写文章，有它的书写规则，初学者应严格遵循，否则会出现编译错误。 第33页/共37页 1. 程序结构 通用声明 过程块，不分先后 第34页/共37页 2.编码规则 （1）VB代码不区分字符的大小写 关键字会自动转换为大写字母开头，后续字母为小写。 自定义的变量、过程名等，以第一次定义为准，其后的输入自动转换。 （2）书写自由 一行可以书写多条语句，各语句之间用冒号”:”分隔 一行书写不完的语句，可以在该行后加上续行符（由空格+下划线_组成），然后换行书写。 一般一行写一条语句，一行最多255个字符，一条语句最多1023个字符。 （3）注释行以Rem 或撇号“‘”开头 只有用撇号引导的注释可以出现在语句之后。 可使用“编辑”工具栏中的“设置注释块”命令将选定的若干行语句或文字设置为注释项，也可以使用“解除注释块”命令将选定的若干行解除注释。 第35页/共37页 3.5 综合应用 例3.1 字符串替换。 掌握三个函数的运用：Instr、Replace和Shell 方法一、利用Instr函数： i=instr(text1,text2) k=i+len(text2) ls=left(text1,i-1) text4=ls+text3+mid(text1,k) 方法二、利用Replace函数：text4=replace(text1,text2,text3) 方法三、利用Shell函数调用word：i = Shell(c:\program files\microsoft office\office10\winword.exe, 1) 如果是office2003则改为office11 第36页/共37页 习题三 课堂练习 3.写出vb表达式（单） （1）abs(x+y)+z^5 （3）10*x+sqr(3*y) （5）1/(1/r1+1/r2+1/r3) 4.写出vb表达式（单） （1）chr(int(67+rnd*10)) （3）(x0 and y0) or (x0 and y0) （5）(x mod 10)*10+x\10 （7）C=”A” and C=“Z” or C=”a” and C=“z” （9）x=10 and x20 （11）xz and yz The end 第37页/共37页 3.1 数据类型 表3-1 Visual Basic的标准数据类型 数据类型 关键字 类型符 占字节数 范 围 字节型 Byte 无 1 0~255 逻辑型 Boolean 无 2 True与False 整型 Integer % 2 -32768~32767 长整型 Long 4 -2147483648~2147483647 单精度型 Single ! 4 -3.4*1038~3.4*1038精度7位 双精度型 Double # 8 -1.7*10308~1.7*10308精度15位 货币型 Currency @ 8 -296-1~296-1，精度28位 日期型 Date(time) 无 8 01,01,100~12,31,9999 字符型 String $ 与字符串长度有关 0~65535个字符 对象型 Objiect 无 4 任何对象引用 变体型 Variant 无 根据分配确定 第1页/共37页 3.1.1 基本数据类型 1．数值型数据（Numeric） 2．日期型数据（