11：过程函数：
过程： 没有返回值
事件过程 自定义过程 属性过程
函数： 有返回值
系统函数 自定义函数 属性函数
自动生成form load 是事件过程
模块里可定义各种函数
Private（Private只能在当前使用因为是私有） sub mysub1（）
Public为全局函数（Public能在当前应用程序内使用） sub mysub2（）
msgbox“call mysub2” 生成对话框 （可在单击事件直接调用）
Long 只在第一次初始化
Publicsub mysub2（Byref m as long, optional n as long =500）(调用参数)
12：自定义函数
要使用函数的返回值 必须要带括号
常用系统函数：cbool cbyte ccur cdate clng csng…（expression）
转换 一般为Cxxx 或 xxx 对于C来说国际性程度好一点（每个国家日期不同等等）
数值函数：ABS Chr ASc Hex Oct Int Fix Val Round
伪随机数：Ramdomize Rnd
随机数产生为伪随机数，为固定序列生成
Randomize
Dim a as double, b as double
Dim I as long
Dim num as long
For I = 1 to 100000
A = rnd:b=rnd
If a * a + b *b<1 then
Num= num
End if
Next I
msgbox cstr(4# *unm / 100000#)
13:常用函数
randomize（-1）
Dim I as long
Dim s as string
For I = 1 to 10
S=s & CStr(rnd) & "-"
Next I
Msgbox s
(当用负值作为随机数发生所产生的序列值固定，最好只执行一次，只有在初始化时才会固定)
对于字符串转换 bytes vbfromUnicode
Msgbox cstr(Ubound(out)- Lbound(out)+1)
日期
日期函数Date
DateSerial（year，Month，day）
DateValue（date）
DateDiff（interval，Date1，Date2,[firstdayofweek],[firstweekofyear]）
路径（文件 ）函数
Fir[(pathname[,attributes])]
颜色函数
RGB（red，green，blue）
red，green，blue：0--255
在16位的话分配一般为 565 或555
QBColor（color）
color：0-15
颜色常数：vbred，vbblue…
14：注册表函数
Getallsettings 表明存取注册表中某一个应用程序的section
Savesetting 写入信息
Deletesetting 删除
环境函数
Command 返回VB中程序执行的命令行
Environ
15：应用函数
输出当前月份 当前日期 以及某个日期的上一个月最后一天的日期
Dim mydate
Label1.caption=cstr（month（date））
Label2.caption=cstr（dateserial(2000,5,1-1)）
Label3.caption=cstr（weekday(dateserial(200,3,1-1))）
Mydate = #10/15/2000#
Label1.caption=cstr（dateserial(year(mydate), month(mydete),1-1）
一个简单加密解密程序示例
针对由可打印的ASCII码字符（0-9，a-zA-Z，+【：，*等）组成的字符串进行加密解密
0 or 1 = 1 or 0=1
0 or 0 = 0 or 0=0
1 or 0 = 1 or 1=0
1 or 1 = 0 or 1=1
a抑或b再抑或a结果为b
16：VB窗口管理
SDI单文档界面
MDI多文档界面
其他（Dialog,flash,…）
分为单文档界面和多文档界面
在工程里设置属性启动对象为sub main函数
在模块里添加sbu main函数
在工程里添加mdi窗体（多文档界面包含单文档界面相当于背景窗口，一般设为启动窗体）
最多显示三种种类窗体
显示界面调用form1.show 载入用load form隐藏可用 form1.hide 卸载不可用用unload form1
me代表当前运行时所代表的对象
17：窗体管理
Click（单击事件）
Dblclick（双击事件）
Load （装入事件.程序运行自动运行的事件）
Unload(卸载事件.关闭窗口运行的事件）
Activate （活动事件）
Deactivate （ 非活动事件 ）
Paint（绘画）事件（当窗体移动或放大时覆盖了一个窗体所出发的）
18窗体属性
ScaleMode获得或设置一个值,指示当使用graphics 方法或可定位的控件时,自定义坐标系的单位, 有8 种可选：0 自定义1 表示单位为twip(缇),每英寸=1440 缇,每厘米=567 缇2 表示单位为point(磅) ,每英寸=72 磅,每磅=20 缇3 表示单位为像素,是监视器或打印机分辨率的最小单位4 表示单位为字符,每个水平单位为120 缇,每个垂直单位为240 缇5 表示单位为in(英寸)6 表示单位为mm(毫米)7 表示单位为cm(厘米)
19：多文档界面窗口
1添加MDI窗体
把form1的mdichild改为true
再把启动窗体设置成多文档界面窗体
在多文档界面单击事件里写form1.show
设置别的窗口单击事件弹出多文档mdiform1.show
Dim frms() as form1
Static num as long
Num = num + 1
Redim preserve frms(num) as form1
Set frms(num) = new form1
Frms(num).caption = "mytitle" & num
Frms(num).show（以上为点击出一个窗体）
frms（2）.Zorder 把这个窗体置顶到顶层、
窗体一定要加载到内存中
20：控件
ActiveX组件 （代码组件 OLE自动化 第三方控件）
控件按钮=某个值、
建议直接属性打在代码里