vb_4_循环结构程序设计_实例.pptVIP

第4章 循环结构程序设计;For 循环变量 = 初值 To 终值 Step 步长 循环体语句 Next [循环变量] ;For-Next常用于循环次数已知的循环中 循环体语句可以是一条或多条语句 可以使用Exit For语句提前结束循环 For i =1 To 10 x = x + Int( Rnd * 100 ) sum = sum + x If sum 300 Then Exit For End If Next i Print sum ;【例】找最大值。单击最大值按钮时产生10个1～100之间的随机整数显示在框架内的标签中，同时将最大值显示在下方的标签内。;处理第1个数据 产生一个随机数，存放在变量a中 将a显示在标签（lblData）中 将a作为当前最大值放在变量max中 处理第2个数据 产生新的随机数，存放在变量a中 将a连接显示在标签（lblData）原有内容之后 如果a大于max，则将a作为最大值放在max中 ;Private Sub cmdMax_Click() Dim a As Integer, i As Integer, max As Integer Randomize a = Int(Rnd * 100) + 1 lblData.Caption = a max = a For i = 1 To 9 重复执行9次 a = Int(Rnd * 100) + 1 lblData.Caption = lblData.Caption , a If a max Then max = a End If Next i lblMax.Caption = max End Sub ;常用于执行条件明确，但事前不知道循环次数的循环 语法格式 Do While 循环条件 循环体语句 Loop 执行流程 ;通常情况下，在进入Do While - Loop语句前应给循环变量设置初值 循环体中必须包含使循环趋于结束的语句 可以使用 Exit Do 语句随时跳出当前所在的循环，提前结束循环语句 Exit Do 可出现在循环体语句中的任意位置，通常与 If 语句联合使用 ;语法格式 Do 循环体语句 Loop While 循环条件 执行流程 ;【实例】输入若干成绩（输入-1时结束）计算总成绩和平均成绩 。;输入第1个数据 输入第一个数据，存放在变量score中 判断输入的数据是否是-1，如果不是-1 记录已经输入的学生人数 将数据显示在txtscore原有内容之后中 计算总成绩 接收下一个数据 ;Dim sum As Integer 总成绩 Dim n As Integer 成绩个数 Private Sub cmdInput_Click() Dim score As Integer txtScore.Text = lblSum.Caption = lblAverage.Caption = “ sum = 0 : n = 0 score = Val(InputBox(“请输入...”, “成绩输入, -1)) Do While score -1 n = n + 1 txtScore.Text = txtScore.Text score Chr(13) Chr(10) sum = sum + score score = Val(InputBox(请输入..., 成绩输入, -1)) Loop End Sub ;Private Sub cmdCala_Click() Dim ave As Single lblSum.Caption = sum ave = sum / n lblAverage.Caption = ave End Sub ;【程序改进】 修改上例，当输入非法成绩时，再次弹出输入框等待重新输入，直至输入1 ~ 100之间的整数为止。要求在文本框中只显示出有效的输入成绩。 ;循环的嵌套;For I=1 To 10 … For J=1 To 20 … Next J Ne