结构化程序设计中基本的3中控制结构：顺序结构，选择结构，循环结构。其中，最基本的是顺序结构，它是后两种的基础。
注：代码中带有[ ]（中括号）的如果没有特殊说明，则表示可以不填写
1.顺序结构的输入\输出语句
debug.print #在立即窗口中输出结果，用于调试
Sub 乘法口诀()
For i = 1 To 9
For j = 1 To i
Debug.Print i; "x"; j; "="; i * j; " ";
Next
Debug.Print
Next
End Sub
inputbox函数
注意：在跳出的input窗口中输入的数据vba默认是文本格式的，所以dim的时候得是string类型
Sub inputinfo()
Title = "输入个人信息"
'nani = "嘻嘻，我就是来测试一下"
name1 = "请输入姓名"
age1 = "请输入年龄"
address1 = "请输入地址"
strname = InputBox(name1, Title)
age = InputBox(age1, Title)
Address = InputBox(address1, Title)
Debug.Print "姓名: "; strname
Debug.Print "年龄: "; age
Debug.Print "地址: "; Address
End Sub
msgbox函数
2.分支结构（选择结构）
if 逻辑表达式 then 语句
IF 逻辑表达式 then
语句1
语句2
……
end if
if 逻辑表达式 then
语句序列1
else
语句序列2
end if
if 逻辑表达式 then
语句序列1
else
语句序列2
end if
if 逻辑表达式1 then
语句序列1
elseif 逻辑表达式2 then
语句序列2
elseif 逻辑表达式3 then
语句序列3
…………
else
语句序列n
end if
select case 测试表达式
case 表达式列表1
语句序列1
case 表达式列表2
语句序列2
……
case else
语句序列n
end select
在以上结构中，首先计算出测试表达式的值，然后，vba将表达式的值与结构中的每个case的值进行比较，如果相等，就执行与该case语句下面的语句块，执行完后再跳转到end select语句后执行。
注：“测试表达式”通常是一个数值型或者字符型的变量。
“表达式列表”可以是一个或几个值的列表，如果在一个列表中有多个值，需要用逗号分隔开。
表达式列表可以按照以下几种情况来书写：
一些具体取值：如case 10,15,25
A TO B:如 case 10 to 20表示10到20之间的值
IS 比较运算符：如 case is>60 表示所有大于60的值
以上三种情况的混合。例如 case 4 to 10,15,is > 20
[图片上传中。。。（1）]
Sub 显示不及格学生()
Dim i As Integer
For i = 3 To 11
If Sheet1.Cells(i, 2) < 60 Then
Sheet1.Cells(i, 2).Select
Selection.Font.FontStyle = "加粗"
Selection.Font.ColorIndex = 3
End If
Next
End Sub
Sub 根据身份证号判断性别()
Dim sid As String, length As Integer, s, sex As String
sid = InputBox("请输入身份证号: ")
length = Len(sid)
If length <> 15 And length <> 18 Then
MsgBox "身份证号必须是15位数或者18位数"
Exit Sub
End If
If length = 15 Then
s = Right(sid, 1)
Else
s = Mid(sid, 17, 1)
End If
If Int(s / 2) = s / 2 Then
sex = "女"
Else
sex = "男"
End If
MsgBox "性别: " + sex
End Sub
[图片上传中。。。（2）]
Sub 评定成绩等级()
Dim i As Integer
If Sheet1.Cells(i, 2) < 60 Then
Cells(i, 3) = "E"
ElseIf 60 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 70 Then
Cells(i, 3) = "D"
ElseIf 70 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 80 Then
Cells(i, 3) = "C"
ElseIf 80 <= Sheet1.Cells(i, 2) And Sheet1.Cells(i, 2) < 90 Then
Cells(i, 3) = "B"
Else
Cells(i, 3) = "A"
End If
Next
End Sub
3.循环结构
do while 逻辑表达式
语句序列1
[exit do]
[语句序列2]
loop
注：在循环体中，如果有exit do，当执行到exit do语句，马上跳出循环，执行loop的下一条语句。使用这个循环结构时可以不知道具体的循环次数
do while …… loop:先测试条件，如果条件成立，则执行循环体
do …… loop while:先执行一遍循环体，再测试条件，如果条件成立则执行循环体
do …… loop until:先执行一遍循环体，再测试条件，如果条件不成立则执行循环体
do until …… loop:先测试条件，如果条件不成立，则执行循环体
#密码验证
Sub 输入密码()
Dim password As String '输入的密码
Dim i As Integer '输入密码的次数，规定最多3次
Do While i < 3
password = InputBox("请输入密码", "信息管理系统")
If password = "123456" Then '正确密码：123456
Exit Do
Else
MsgBox "请输入正确密码"
End If
i = i + 1
Loop
If i >= 3 Then
MsgBox "非法用户，系统将退出"
Application.Quit '退出excel
Else
MsgBox "欢迎使用本系统"
End If
End Sub
如果知道具体的循环次数，最好使用以下结构：
for 循环变量 = 初始值 to 终值 [step 步长值]
语句序列1
[exit for]
[语句序列2]
next [循环变量]
注：步长值可正可负，如果步长值为正，则初始值必须小于终值；如果步长值为负，则初始值必须大于终值。如果没有设置step，则步长默认为1
循环次数 = [（终值-初始值）/步长值] + 1 #这里的中括号表示取整
#生成ASCII码表
Sub 生成ascii()
Dim i As Integer, a As Integer
i = 3
For a = 32 To 126
Sheet2.Cells(i, 1) = a
Sheet2.Cells(i, 2) = Chr(a)
i = i + 1
Next
End Sub
for each 元素 in 对象集合
[语句序列1]
[exit for]
[语句序列2]
next
说明：对对象集合中的每一个元素执行一次循环体。exit for 经常在条件判断之后使用，例如 if …… then
# 随意选取的区域的值之和
Sub 求和()
Dim i
Dim a As Long
For Each i In Selection
If IsNumeric(i.Value) Then
a = a + i.Value
End If
Next
MsgBox "所选区域的值之和为: " & a
End Sub
网友评论