[教育学]vb循环结构1.ppt

循环结构 Do Loop之“当”循环 形式1: 形式2: Do While 条件表达式 Do 语句块(循环体) 语句块(循环体) Loop Loop While 条件表达式 Do Loop循环示例1 Private sub Form_click() Dim num% num=1 Do while num=10 Print num Num=num+1 Loop End sub S=1+2+3+……+100 Private Sub Form_Click() Dim i As Integer ‘i为累加数 Dim sum As Integer ‘sum为累加和 i =1 sum = 0 Do While i = 100 sum = sum + i i = i + 1 Loop Print sum End Sub S=1+2+3+……+100 Private Sub Form_Click() Dim i As Integer Dim sum As Integer i = 1 sum = 0 Do sum = sum + i i = i + 1 Loop While i = 100 Print sum End Sub Do Loop之“直到”循环 形式1: 形式2: Do Until 条件表达式 Do 语句块(循环体) 语句块(循环体) Loop Loop Until 条件表达式 S=1+2+3+……+n Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As Integer n = Val(Text1.Text) sum = 0 i = 0 Do Until i n sum = sum + i i = i + 1 Loop Text2.Text = sum End Sub S=1+2+3+……+n Private Sub Command1_Click() Dim i As Integer, n As Integer Dim sum As long n = Val(Text1.Text) sum = 0 i = 0 Do sum = sum + i i = i + 1 Loop Until i n Text2.Text = sum End Sub 5.2 For 循环语句 For循环语句是计数型循环语句，用于控制循环次数已知的循环结构。语句形式如下： For 循环变量 = 初值 To 终值 [Step 步长] [循环体] Next [循环变量] 使用For循环计算1+3+5+……+99的值 使用For循环计算1+3+5+……+99的值 For 和Do Loop的比较 采用For语句比Do Loop更加简明。 一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用Do Loop语句 【例 5.13】利用随机数函数模拟抛硬币 采用的方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。 在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如图所示。 循环嵌套 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 3 Print i=” ; i For j = 1 To 3 Print Tab; j=; j Next j Next I End Sub 循环嵌套 For i = 1 To 3 Step 1 P