窗体设置，控件布局时用:
alt+v+x可以快速显示出工具框
Alt+P+N 引用
ctrl+左右键头可以移动控件  
shift+左右键头调整控件大小
F7   切换到编辑窗口
Shift+f7 切换代码窗口
开发代码，调试代码都能用的：
Ctrl+C复制
Ctrl+V粘贴
Ctrl+X剪贴
Ctrl+F查找
开发代码时用的:
Tab 向右推
Shift+Tab 向左推
Ctrl+H 替换
Ctrl+J 呵呵，有点显丑。有几个函数。老要看总是记不住，呵呵 （Alt+→）
ctrl+home     jump   to   首行  
ctrl+end       jump   to   末尾  
调试时使用的：
F5 运行
F8 断点运行
F9 设置/清除断点
Ctrl+G 立即窗口
Shift+F2       到定义处
Ctrl+Shift+F9 清除所有断点
Ctrl+shift+F2   到上次编辑处
Ctrl+PauseBreak 强行暂停程序（专门对付死循环之类的）
shift+F9 可以监视表达式
Ctrl+W 编辑监视窗口
Ctrl+n n Enter   偶经常要另开一个程序先做试验，你们可能很少用吧？呵呵
以上几个，是我使用中最多的。当然。其 ......

1、创建控件：lbl1、txt1、lbl2、cmd1
2、lbl1.caption=输入日期（任一种正确格式）：
设置lbl1、txt1、lbl2、cmd1的字体大小及颜色；
3、双击按钮“确认”，添加代码，效果为：
    Option Explicit
        Private Sub cmd1_Click()
            Dim a, b
            b = txt1.Text
            a = Weekday(b)
            Select Case a
              Case 1
                  lbl2.Caption = "星期日"
              Case 2
               &nbs ......

数学函数：主要用来完成数值计算。
（1）abs（X）：绝对值函数，计算X的绝对值，X为一个数值表达式。
（2）sgn（X）：符号函数。该函数的功能是判断X的符号。当X>0时，函数值为1；X<0时，函数值为-1；X=0时，函数值为0.
（3）exp（x）：幂运算函数。返回e的X次幂的值，返回值为双精度型数值。
（4）log（x）：自然对数函数。返回X的自然对数，返回值为双精度型数值。
（5）sqr（x）：算术平方根函数。X必须为非负数，该函数是返回X的算术平方根，返回值为双精度型数值
（6）sin（X）、cos（X）、tan（X）、atn（X）：三角函数。这四个函数返回X的正弦、余弦、正切和反正切函数值，返回值为双精度型。
 
......

    试着用了一下MindManager,使用很容易,下面是我练习着做的一个图形,希望以后会越用越熟练,做得更好!
                                                                                                                                               2010-04-12 ......

len（string）：计算字符串长度函数。返回字符串string中字符的个数。一个汉字为一个字符，空格也为一个字符，空字符串的长度为0.
Ltrim（string）、Rtrim（string）、Trim（string）：
Ltrim（string）函数功能是返回删除了字符串string左边空格之后剩余的部分。
Rtrim（string）函数功能是返回删除了字符串中string右边空格之后的剩余部分，
Trim（string）函数组合了前两个函数功能，返回删除字符串string左右空格之后的剩余部分。
left（string，n）：从字符串的左边取n个字符。
right（string，n）从字符串的右边取n个字符。
mid（string，n，m）：从字符串string的第n个字符开始向右取m个字符。如果n的值超过了字符串的最大长度，函数将返回空字符串。
string（n，string）：返回由n个重复的字符组成的字符串，这个字符为字符串string的首字符
instr（n，string1，string2）：该函数的功能是从字符串string1的第n个字符开始搜索字符串string2第一次出现的位置。省略n时，则从字符串string1的开头搜索。
InStrRev(string1,string2,n) 从n开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
St ......

已知有一个XML文件（bookstore.xml）如下：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>
1、往<bookstore>节点中插入一个<book>节点：
Dim xmlDoc As New XmlDocument()
xmlDoc.Load("bookstore.xml")
Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '查找<bookstore>
Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '创建一个<book>节点
xe1.SetAttribute("genre", "李赞红") '设置该节点genre属性
xe1.SetAttribute("ISBN", "2-3631-4") '设置该节点ISBN属性
Dim xesub1 As XmlElement = xmlDoc.CreateElement("title")
xesub1.InnerText = "CS从入门到精通" '设置文本节点
xe1.AppendChild(xesub1) '添加到<book>节点中
Dim xesub2 As XmlElement = xmlDoc.CreateElement("author")
xesub2.InnerText = "候捷"
xe1.AppendChild(xesub2)
Dim xes ......

已知有一个XML文件（bookstore.xml）如下：
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
</bookstore>
1、往<bookstore>节点中插入一个<book>节点：
Dim xmlDoc As New XmlDocument()
xmlDoc.Load("bookstore.xml")
Dim root As XmlNode = xmlDoc.SelectSingleNode("bookstore") '查找<bookstore>
Dim xe1 As XmlElement = xmlDoc.CreateElement("book") '创建一个<book>节点
xe1.SetAttribute("genre", "李赞红") '设置该节点genre属性
xe1.SetAttribute("ISBN", "2-3631-4") '设置该节点ISBN属性
Dim xesub1 As XmlElement = xmlDoc.CreateElement("title")
xesub1.InnerText = "CS从入门到精通" '设置文本节点
xe1.AppendChild(xesub1) '添加到<book>节点中
Dim xesub2 As XmlElement = xmlDoc.CreateElement("author")
xesub2.InnerText = "候捷"
xe1.AppendChild(xesub2)
Dim xes ......