.
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single Dim Min As Single
a = InputBox(\输入a\输入框\ b = InputBox(\输入b\输入框\ c = InputBox(\输入c\输入框\ If a < b Then Min = a Else Min = b If c < Min Then Min = c Print \最小数＝\End Sub
执行这种形式的语句时，先进行判断。若条件成立，则执行语句1；否则执行语句2。
块If语句
上述If-then语句只能根据条件的真假是否执行一条语句，当Then部分和Else部分包含的内容较多时，则可选用“块If语句”结构。
格式三：If 条件 Then 语句块 End If
格式四：If 条件 Then 语句块1 Else 语句块2 End If
程序设计的循环结构
一、For-Next循环
For循环变量一般形式是：
For循环变量=初值To终值Step循环变量增量 循环体 Nxt循环变量
例题1：求s＝1+2+3+4.....+100
Private Sub Form_Click() Dim i As Integer
Dim sum As Integer sum = 0 For i = 1 To 100
sum = sum + i ' 循环体 Next i
Print \End Sub
例题2：Step循环变量增量
Private Sub Form_Click() For j = 3 To 15 Step 2 Print j
'.
.
Next j End Sub
循环变量的初值、终值、循环变量增量都是数值型。其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1 1、 循环变量取初值；
2、 循环变量与终值比较，没有超过终值转3，否则循结束，接着执行循环语句的后继语句； 3、 执行一次循环体
4、 循环变量增加一个增量 5、 重复步骤2~4。
以上可以看出，For-Next循环变量是一种当型循环。说明
（a） For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变
量，如上例中均为I。
（b） 当循环变量为正时，循环变量超过终值，是指循环变量的值大于终值时；若为负，
则是指循环变量的值小于终值。
入口
P
A
出口
二、Do－Loop循环
For-Next循环的次数是确定的，但是有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这是需要Do-Loop循环 格式一：当循环：
Do While 条件
循环体 Loop
当VB执行Do While-Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。
'.
.
格式二：直到循环
Do
循环体
Loop Until条件
这种循环的执行过程如图所示。进入循环体后，先执行一次循环体A，然后再检查条件P是否成立。如果不成立，就重复执行循环体A，直到条件P成立退出循环体。
A N P
例题：如果我国人口每年以平均1.5%的速度增长，问多少年后我国人口达到或超过15亿？设现在人口为12.3亿。
Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Do
p = p * (1 + r) n = n + 1
Loop Until p >= 1500000000# Print n; \年后\人口=\End Sub
'.
高中信息技术算法与程序设计VB知识点
