前言

VB代码非常多，从最初的VB到机房，从最开始对代码的不了解，到逐渐的了解代码，可能以前有不理解的，但是学过后在回头看看之前的，忽然就变得理解了，所以及时总结归纳是很重要的，下面来跟小编总结一下之前的代码吧。

代码块总结

选择语句：

if 选择语句

< if <表达式1> Then
<语句块1>
ElseIf <表达式2> Then
<语句块2>
… …
[Else
语句块n+1]
End If

例：Dim h As Integer
    Show
    h = Hour(Time)
    FontSize = 30
    If h <= 12 Then
        Print "早上好!"
    ElseIf h <= 18 Then
        Print "下午好!"
    Else
        Print "晚上好!"
    End If

select case 选择语句：

Select Case 变量或表达式
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
… …
[Case Else
语句块n+1]
End Select

 Dim x As Integer
    x = Val(Text1.Text)
    Select Case x
    Case Is >= 90
      Text1.Text = "优秀"
    Case 80 To 90
      Text1.Text = "良好"
    Case 70, 71, 72, 73, 74, 75, 76, 77, 78, 79
      Text1.Text = "中等"
    Case 60, 61, 62, 63 To 66, Is >= 67
      Text1.Text = "及格"
    Case Else
      Text1.Text = "不及格"
    End Select

循环语句

While…Wend 语句：

能无限层嵌套，只要指定的条件为 True，则会重复执行一系列的语句。

例：Dim x As Integer
      While x<100
      x=x+1
      Wend

Do While 循环语句：

先执行循环体里的代码，然后判断循环条件，如果为True则继续执行循环体里的代码，否则跳出循环，执行Loop后面的代码；

Dim Sum As Long, I As Integer
I = 1: Sum = 1
Do While I <= 10
Sum = Sum * I
I = I + 1
Loop
Print "sum="; Sum
End Sub

For循环语句：

for循环是次数固定的循环,事先可以确定循环的次数。
For 循环变量 = 初值 To 终值 [Step 步长]
[循环体]
Next [循环变量]
强行退出 For 循环，用 Exit For。

Dim sum As Integer
Dim i As Integer
Dim a As Integer
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
Next
MsgBox "10个随机数得和:" & sum

【代码】数据库的增删改查：

http://blog.csdn.net/a15076159739/article/details/78079003

【代码】控件的输入限制

文本框，combo box控件的输入限制，文本框添加日历控件：http://blog.csdn.net/a15076159739/article/details/78155051

【代码】导出execel,清空控件内容，textbox控件中换行

http://blog.csdn.net/a15076159739/article/details/79364019

【VB代码】—颗粒归仓

前言