第五章循环结构.ppt

循环结构 ;Do Loop之“当”循环;Do Loop循环示例1;S=1+2+3+……+100;S=1+2+3+……+100;Do Loop之“直到”循环;S=1+2+3+……+n;S=1+2+3+……+n;5.2 For 循环语句;For 循环变量 = 初值 To 终值 [Step 步长] [循环体] Next [循环变量] ;使用For循环计算1+3+5+……+99的值 ;使用For循环计算1+3+5+……+99的值 ;For 和Do Loop的比较;【例 5.13】利用随机数函数模拟抛硬币;在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如图所示。;Private Sub Command1_Click() Dim n As Long Dim n1 As Long, n2 As Long Randomize n = Val(Text1.Text) n1 = 0 n2 = 0 For i = 1 To n r = Int(Rnd * 2) If r = 1 Then n1 = n1 + 1 Else n2 = n2 + 1 End If Next Text2.Text = n1 Text3.Text = n2 End Sub;