1、浅谈VB中的程序结构,VB具有结构化程序设计的三种结构，即顺序结构、分支（选择）结构、 循环结构，这些是程序设计的基础。,顺序结构,顺序结构就是各语句按出现的先后次序执行。,例1：输入圆的半径，求面积。,程序代码如下：Private Sub Form_Click()Dim r As Double, a As DoubleConst Pi = 3.14r = InputBox(“请输入圆的半径“)a = Pi * r * rMsgBox “圆的面积为:“ & a End Sub,分支（选择）结构,在人们所处理的问题中，常常需要根据某些给定的条件是否满足来决定所执行的操作。选择结构就是对给定条件进
2、行判断，从而选择执行不同分支，一般可由分支结构来完成。VB中的分支结构语句包括If语句和Select语句。,If 语句,If ThenEnd If,If ThenElseEnd If,单分支结构：,双分支结构：,例2：输入x的值，并输出其绝对值。,程序代码如下： Private Sub Command1_Click() Dim x as single x = InputBox(“请输入一个数“)If x0 Then x = -x 此处不需要写end if，因为then后面只有一句Print “绝对值是：“; x End Sub,循环结构,在实际应用中，经常遇到一些需要反复多次处理的问题，例如求
3、若干个数之和、之积等。重复执行某一程序块称作循环。Visual Basic提供了多种不同风格的循环结构语句，包括Do Loop、While Wend，For Next，For Each Next等，其中最常用的是For Next语句和Do Loop语句。,For.Next 语句,例3：求1到100的和。 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 For i = 1 To 100 step 1 此处步长为1可以不写sum = sum + i Next iPrint sum End Sub,练习1：输入两个数，选出较大值,Dim a, b, max As Single a=val(text1.text) b=val(text2.text) 输入变量a和b的值 If ab thenMax=a ElseMax=b End if 注意if的语法运用 Text3.text=max 输出变量max的值,练习2：计算1100的奇数之和,参考例3,
