1.timer_Tick事件 在指定的时间里调用此事件，比如设置timer1.interval=10，则表示在一秒内执行10次timer_Tick事件。
2.Label3.Text = Format(x, \"00000\")，设置x是一个五位数，不足左侧用零来补。
3.TextBox1.Text = UCase(TextBox1.Text)，将输入的字母转换成大写，用textchanged事件 4.Label1.Font = New Font(\"隶书\", 12, FontStyle.Bold) 设置字体名：Textbox1.Text.Font.Name = \"微软雅黑\"。设置字号：Textbox1.Text.Font.Size = 14。设置粗体：Textbox1.Text.Font.Bold = True。设置斜体：Textbox1.Text.Font.Italic = True。设置下划线：Textbox1.Text.Font.Underline = True。设置删除线：Textbox1.Text.Font.Strikethrough = True。 Label1.Font = New Font(Font.Name, 12, FontStyle.Italic)也可如此 5.将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。Button1.Location = New Point(60,40) 等价于：Button1.Left = 60
Button1.Top = 40 6.例如，将Button1控件设置为宽度为80、高度为30。Button1.Size = New Size(80,30) 等价于：Button1.Width = 80
Button1.Height = 30 7.Size与clientsize。前者是整个窗体的大小，后者是不含边框的窗体的大小。
8.Cursor属性决定运行时鼠标移动到对象上时，显示出的鼠标指针的图像。其属性值是枚举类型。
9.ControlBox和Icon属性决定标题栏上是否有控制菜单框、设置其图标。默认情况下，ControlBox属性值为True，若设置为False，则不显示控制菜单框，并且不显示最大化 按钮、最小化按钮和关闭按钮。
10.FormBorderStyle属性用于设置窗体边框的样式。其他的BorderStyle属性是用来设置边框格式的。
11.窗体的常用事件。Click事件，在程序运行时单击窗体的某个位置，VB将调用窗体的Form_Click事件过程，如果单击的是窗体内的控件，则只能调用相应控件的Click事件过程。Load事件，当窗体被装入时触发该事件。当应用程序启动时，自动执行该事件过程，因此通常将进行初始化的程序代码写在窗体的Load事件过程中。 12.TextAlign属性用于设置文本的对齐方式。Left：正文左对齐，Right：正文右对齐，Center：正文居中。也可用于决定对象的位置。
13.Maxlength属性用于设置文本框中最多能够输入字符的个数。默认情况下，其值为32767。 14.ScrollBars属性用于设置水平滚动条和垂直滚动条。当设置水平滚动条后，文本框的自动换行功能将会自动消失，只有按Enter键才能换行。竖直滚动条则正常换行。
15.ReadOnly属性用于设置文本框是否可以编辑。默认值为False，表示运行程序时能对文本框进行编辑。当其值为True时，不能编辑文本框中的内容，但可以选定文本框中的内容。
16.PaWordChar属性设置在文本框中取代用户输入而显示的字符。例如，当设置为“*”时，运行程序时文本框中输入的内容存储在Text属性中，但均以“*”显示。一般用于设置口令。
17.TextChange事件当用户输入新内容或程序将Text属性设置为新值时，文本框的Text属性值发生变化，从而触发TextChange事件。当用户输入一个字符时，就会触发一次TextChange事件。例如，在文本框中输入字符串Basic时，就会5次触发TextChange事件。出发之后开始执行设置程序。
18.KeyPre事件当用户在文本框中按下并释放键盘上的一个键时，就会触发KeyPre事件。与TextChange事件类似。所不同的是，当按下某些键（如方向键）时，文本框的值没有发生变化，此时仅触发KeyPre事件，而不触发TextChange事件。KeyPre事件会返回一个e参数，通过e.KeyChar可以获取按键对应的字符。例如，运行程序时按了字符“A”键，则e.KeyChar的值为“A”。 将命令按钮的Text属性设置为“退出(&E)”。运行时，按钮上显示“退出(E)”。当用户按下Alt+E时，相当于单击了该按钮，运行其Click事件过程。
19.Picturebox属性：将图像文件c:\\example\\rabbit.jpg显示在PictureBox1图片框中：PictureBox2.Image=Image.FromFile(\"c:\\example\\rabbit.jpg\") 20.Picturebox属性：SizeMode属性用于设置图片框中图像的显示方式，属性值有：Normal：默认值，图像保持其原始尺寸、其左上角与图片框的左上角对齐。如果图像比图片框大，则超过部分被剪裁掉；StretchImage：图像被拉伸或收缩，使其与图片框的大小一致；AutoSize：图像保持其原始尺寸、自动调整图片框的大小，使其与图像大小一致；CenterImage：图像保持其原始尺寸、与图片框的中心对齐。若图像比图片框小，图像居中显示；否则，图像居中，而外边缘将被剪裁掉；Zoom：图像大小按其原有的大小比例被缩放，其宽度或高度之一与图片框一致。
21.Vb中变量命名法：必须以字母或下划线开头，由字母、数字和下划线组成，长度不超过1023个字符。如果名称以下划线开头，则必须包含至少一个字母或数字。不能使用VB中的关键字，如：Integer、If等。
22.
Boolean类型是逻辑类型，表示true和false。
23.n是十进制/八进制/十六进制整数，八进制在整数前面加&O（是字母O，不是数字0），例如：&O
56、&O56S、&O56L。十六进制在整数前面加&H例如：&H
56、&HAB
12、&HAB、&HABS、&HABL。Decimal、Single、Double只能表示十进制，前者是因为定义，后两者是因为是浮点数。
24.格式：Mid(s, n[, m]) 、Left(s, n)、Right(s, n) 功能：s是一个字符型数据，n和m是一个整型数据。Mid返回从字符串s中的第n个字符开始的m个字符，无m则表示所有自字符。Left返回字符串s中左边n个字符，Right返回字符串s中右边n个字符。
Mid(b, 2, 1) = 0
✔ Microsoft.VisualBasic.Left(b, 3) = 0
❌ Mid可用于赋值，left与right不可用于赋值。
25.后缀
26.Char类型，用来存储单个字符或汉字，占两个字节。例如：\"A\"、\"0\"、\"数\"等。String类型，表示包含多个字符的字符串用一对西文双引号“\"”括起来表示例如：\"Visual Basic\"、\"2016\"、\"G\"、\" \"空字符串\"\"若表示的字符串中包含双引号“\"”，则用连续的两个双引号表示。
27.字符串查找：格式：Instr([n,] s1, s2)，功能：n和m是一个整型数据，s1和s2是一个字符型数据。Instr函数在s1字符串中从第n个字符开始查找s2字符串，如果找到s2字符串，返回s2在s1中的起始位置值，否则返回0。若省略n，则从第一个字符开始查找。例如文本框TextBox1中输入的是书名，判断书名中是否含有“计算机”三个字的表达式为：If InStr(TextBox1.Text, \"计算机\") > 0 Then 28.Date类型变量d的值是d = \"[8 / 20 / 2009]6:5:4[AM]\"
[月日年]时:分:秒[上下午] 29.算术运算符的优先级：指数取负，乘除整除，取余加减（^-*/\\+-mod）
30.串联运算符“+”运算符既可作为字符串运算符，又可作为算术运算符。当“+”运算符两边操作数都是字符串时，进行串联运算，将两个字符串连接起来，并作为结果。当“+”运算符两边操作数都是数值时，进行加法运算。当一侧是数字字符串，另一侧是数值时，若option strict为on则显示错误，off则正确转化为double运算，默认值为off；当一侧是数值，另一侧是非数字的字符串是，错误。“&”运算符不管两边操作数的数据类型，直接进行连接操作。
31.关系运算符设计比较时注意：两个操作数都是数字则直接比较；都是字符则比较ascll码值；中文最牛逼；比较运算符优先级相同；
32.Like函数的用法：Like运算符与通配符：?、*、#、[字符列表]、[!字符列表]结合使用。其中，？表示任何一个字符，* 表示任意多个字符，# 表示任何一个数字（0~9）， [字符列表] 表示字符列表中任意一个字符，[!字符列表] 表示不在字符列表中的任意一个字符。
If b Like \"[\" & A(m) & \"]\" Then If Not e.KeyChar Like \"[a-zA-Z]\" Then 33.当多种表达式同时在一个表达式中出现时，其优先级的顺序如下：
算术运算符＞字符串运算符＞关系运算符＞逻辑运算符
具有相同优先顺序的运算符将按照它们在表达式中出现的顺序从左至右进行计算。 当表达式中包含多个运算符时，使用圆括号，可以改变计算顺序，圆括号内的表达式优先计算。 34.35.36.
逻辑运算符的功能是对操作数进行逻辑运算（又称布尔运算），其运算结果是逻辑值True或False。 Const PI As Single = 3.1415
\'声明符号常量。声明一个常量，不一定非得用dim，const也可以
数学函数包含在System.Math类中。该类中包含许多方法和常量，利用这些方法和常量可以进行各种数学运算。这些方法可以作为数学函数使用，使用时，在函数名前面加“Math.”。
四舍五入函数，格式：Round(x[,n])。功能：x是一个数值型量，将x值四舍五入，得到最接近的整数或指定的小数位数n的值。缺省n时，表示四舍五入取整。示例：Math.Round(4.56) 的运算结果为5，Math.Round(4.56, 1) 的运算结果为4.6 字符和ASCII码转换函数，格式：Asc(s)、Chr(x)。功能：c是一个字符型量、x是一个数值型量。Asc计算出字符串的第一个字符的ASCII码值，Chr则计算出以x为ASCII码的字符。示例：Asc(\"A\")的运算结果为65。Chr(65)的运算结果为\"A\"。Asc(Chr(x))的运算结果仍然是x，Chr(Asc(c))的运算结果仍然是c。
大小写字母转换函数，格式：UCase(s)、LCase(s)。功能：s是一个字符型量，UCase将字符串中的所有字母转换成大写字母，LCase将字符串中的所有字母转换成小写字母。ucase(“a”)也有引号
判断文本框TextBox1中输入的是否为单个字母的表达式为：
If UCase(TextBox1.Text)>= \"A\" And UCase(TextBox1.Text)
If TextBox1.Text Like \"[a-zA-Z]\" Then If UCase(TextBox1.Text) Like \"[A-Z]\" Then If LCase(TextBox1.Text) Like \"[a-z]\" Then 字符串去除空格，格式：Ltrim(s)、Rtrim(s)、Trim(s)。功能：s是一个字符型数据。Ltrim的返回值是去除字符串s左边（前面）空格后的字符串、Rtrim的返回值是去除字符串s右边（后面）空格后的字符串、Trim的返回值是去除字符串s前后空格的字符串。 字符串替换，格式：Replace(s, s1, s2[, n[, m]])。功能：s、s1和s2是一个字符型数据，n和m是一个整型数据。Replace在字符串s中从第n个字符开始，将前m个字符串s1替换为s2，并将第n个字符之前的字符删除。若缺省m，替换把第n个字符开始的所有符合条件的字符串。若缺省n，则从第一个字符串开始替换。
字符串与数组元素的转换，格式：Join(A, “d”)、Split(s, “d”)。功能：A为数组，s和d是一个字符型数据。Join以d为分隔符将数组A各元素的值连接成字符串，并作为返回值。Split的功能与Join相反，它将字符串s以d为分隔符，分隔成数组元素。缺省d时，以空格为分隔符。 37.
38.
39.
40.41.
42.
43.
44.45.格式输出函数Format可以将数值、日期和时间按指定格式转换成字符串，其格式如下：Format(表达式, “格式字符串”) 。格式名General Number、G或g保持原有数值的小数位数，格式名Fixed、F或f则四舍五入保留两位小数。
46.百分比的数字格式，格式名Percent表示将数字乘以100后、保留两位小数、并加百分号 (%)。示例：Format(0.567,\"Percent\")的运算结果为\"56.70%\"。
47.科学表示法的数字格式，使用标准的科学表示法表示数字。格式名Scientific提供两个有效位，格式名E或者e提供六个有效位。示例：Format(1234.567,“Scientific”)的运算结果为\"1.23E+03\" ；Format(1234.567, \"e\")的运算结果为\"1.234567E+003\"。
48.常用的用户定义数字格式，0 和 #。符号“0”和“#”用于决定显示数值整数部分和小数部分的位数。其相同之处是：若数值整数部分的位数多于格式字符串的位数，按实际数值返回；若小数部分的位数多于格式字符串的位数，按四舍五入计算。不同之处是：当数值的位数少于格式字符串的位数时，“0”格式将不足部分补0，而“#”则不显示。 49..和 ,
符号“.”表示加小数点，“,”表示加千分位。示例：
Format(1234.56, “0,000.00”)的运算结果为“1,234.56”。 Format(1234, \"0,000.00\")的运算结果为\"1,234.00\"。
50.日期的格式，根据区域设置显示日期。格式名Date、Medium Date或D表示长日期格式，格式名Short Date或者d表示短长日期格式。示例：假设今天是2015年9月25日，Format(Now, \"Long Date\")的运算结果为“2015年9月25日”； Format(Now, \"Short Date\")的运算结果为\"2015/9/25\"。 Label1.Text = Format(TextBox1.Text, \"long date\") 51.复合赋值语句常用于以下几个方面：累加sum += s
等价于
sum = sum + s 连乘 n *= i
等价于
n = n * i
显示多行信息，复合赋值语句使用得最多的是“&=”运算符。要显示多行信息，一般是利用文本框、标签，通过“&=”来实现显示。 52.Inputbox（“提示信息”，“标题”，“默认内容”），“提示信息”、“标题”、“默认内容”都可以不填空着，但至少要有一个空着的省略号。
53.InputBox的返回值是一个字符串。如果需要将输入的数值参加算术运算，必须在进行运算前用Val函数把它转换为数值类型。但可以用split函数调用。每执行一次InputBox函数只能输入一个值，如果需要输入多个值，则必须多次调用InputBox函数。这时，通常与循环语句、数组结合使用。对话框显示的信息，若要分多行显示，必须加回车换行符，即Chr(13)+Chr(10)或VB系统常量vbCrLf。
54.定义变量时，可以用简写符号表示变量类型，$ 是 String ，% 是 Integer ，& 是 Long ，! 是 Single ，@ 是 Currency ，# 是 Double。例如Dim H%, F%, x%, y% 55.MsgBox(\"提示信息\", vbOKOnly, \"标题\")\"提示信息\", vbOKOnly, \"标题\"可以都是空的，但至少要有一个空的省略号。MsgBox(\"确认数据是否正确？\", MsgBoxStyle.YesNo + MsgBoxStyle.Question , \" 数据验证\") 条件表达式1 F T 条件表达式2 F … 条件表达式n T 语句块1 语句块2 F T 语句块n 语句块n+1 56.elseif 的用法
57.如果是数字，则没有is。
58.Do until loop(直到结束)；do while loop(当执行) 59.在for语句中，执行一次next语句，循环变量增加一个步长
60.UBound函数，格式为：UBound (数组名 [, 维])。使用UBound函数可以计算出数组的任一维可用的最大下标，从而确定数组的任一维的上界。其中：参数维指定返回数组的哪一维。1（默认）代表第一维，2代表第二维，以此类推。 61.选择法排序：
Public Cla Form1
Dim A() As Integer = {2, 1, 3, 4}
Dim m, n, i, j, imin As Integer
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
m = UBound(A)
For i = 0 To m1
For j = m To i + 1 Step -1
If A(j)
A(j1) + f(n - 2)
End If
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim y As Single
y = 0
For n = 1 To Val(TextBox1.Text)
y = y + 1 / f(n)
Next
Label2.Text = y
End Sub End Cla 函数的表示法2 Public Cla Form1
Dim a As String
Dim n, m As Integer
Function f(ByRef n As Integer) As String
a = TextBox1.Text
m = Len(CStr(a))
For n = m To 1 Step -1
f &= Mid(a, n, 1)
Next
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Label1.Text = f(n)
End Sub End Cla 65.打开保存等操作的用法：
Public Cla Form1
Private Sub 退出ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
End
End Sub
Private Sub 保存ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
SaveFileDialog1.Filter = \"简单文本格式|*.txt|复杂文本格式|*.rtf\"
SaveFileDialog1.FilterIndex = 2
SaveFileDialog1.ShowDialog()
MsgBox(SaveFileDialog1.FileName)
If SaveFileDialog1.FileName \"\" Then
If SaveFileDialog1.FilterIndex = 1 Then
RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText) \'.txt,.TXT
Else
RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText) \'.doc,.DOC
End If
End If
End Sub
Private Sub 打开ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
OpenFileDialog1.FileName = \"\"
OpenFileDialog1.Filter = \"简单文本|*.txt|复杂文本|*.rtf\"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.Title = \"朕的打开......\"
OpenFileDialog1.ShowDialog()
MsgBox(OpenFileDialog1.FileName)
If OpenFileDialog1.FileName \"\" Then
Me.Text = OpenFileDialog1.FileName
If OpenFileDialog1.FilterIndex = 1 Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
Else
RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub 新建ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 新建ToolStripMenuItem.Click
RichTextBox1.Text = \"\"
Me.Text = \"我的记事本\"
End Sub
Private Sub 剪切ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub 复制ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 复制ToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub
Private Sub 粘贴ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub 删除ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 删除ToolStripMenuItem.Click
RichTextBox1.SelectedText = \"\"
End Sub
Private Sub 全选ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 全选ToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub 日期时间ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 日期时间ToolStripMenuItem.Click
RichTextBox1.SelectedText = Now
End Sub
Private Sub 复制ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 复制ToolStripMenuItem1.Click
Call 复制ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 剪切ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 剪切ToolStripMenuItem1.Click
剪切ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 粘贴ToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles 粘贴ToolStripMenuItem1.Click
粘贴ToolStripMenuItem_Click(sender, e)
End Sub
Private Sub 显示窗体ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles 显示窗体ToolStripMenuItem.Click
Form2.ShowDialog()
End Sub End Cla 66.控制输入可以用e.keychar来做 67.Listbox的用法
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Select Case ListBox1.SelectedIndex
Case 0
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)
Case 1
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Italic)
Case 2
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Underline)
Case 3
TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Strikeout) End Select End Sub
