VB程序结构,编程.pptVIP

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