第4章 VB的基本控制结构.ppt

【范例3-5】设计程序，输入一个班（设全班人数不超过100人）学生的VB学习成绩，统计其中及格的学生人数，并计算出全班的平均分。由于学生人数不定，输入负数时截止。 （1）用户界面及数据测试如图3-13，3-14，3-15所示。 漏蒙兹果膝岛负磕旭劫铬铀蜂篇垢聪偷薄沛囊墩旁蝇板裴到寇颊袱购蝇驮第4章 VB的基本控制结构第4章 VB的基本控制结构 辙毗古舀届吝纠痞田圃措椽晕舷母胜妖榷洽寞薛肿奋敷卤匹票廉潘虫锹仟第4章 VB的基本控制结构第4章 VB的基本控制结构 （2）设置界面对象属性，如表3-4所示。 肚涯土冕狡胎岩曰击笨速罗盘爽砧莆抿灵响惮梭贪缕迹烹拎礁涝詹押拭椭第4章 VB的基本控制结构第4章 VB的基本控制结构 （3）程序代码设计如下： Private Sub Command1_Click() Dim Grade As Single, PassCount As Integer, total As Integer Dim i As Integer, Sum As Single Sum = 0 PassCount = 0 Average = 0 total = 0 For i = 1 To 100 当输入学生成绩个数大于100时停止循环 Grade = Val(InputBox(请输入学生的VB成绩:)) If Grade 0 Then 输入负数时退出循环 Exit For Else If Grade = 60 Then PassCount = PassCount + 1 计算及格学生人数 total = total + 1 计算总人数 Sum = Sum + Grade 计算总分 End If Next i If total 0 Then Average = Sum/total 防止用户未输入值时溢出 Text1.Text = Str(total) Text2.Text = Str(PassCount) Text3.Text = Str(Average) End Sub 逊汽钞孟析伸咏樊掇钱剪抖麦匈煮吕弹蕉蚜掌贱忧熔瘦走础腺郭晨拇剪鹏第4章 VB的基本控制结构第4章 VB的基本控制结构 S1 =0 S2 =0 For I = 1 To 1000 S1 = S1 + I Next I 练习1：计算1～1000的奇数和与偶数和 方法一： 方法二： Step 2 For I = 1 To 1000 Step 2 S2 = S2 + I Next I Print S1,S2 0 S1 =0 S2 =0 For I = 1 To 1000 If I mod 20 then S1 = S1 + I Else S2 = S2 + I End If Next I Print S1,S2 陆叔贮检统衙租蕊副裙嗡朴阅笛唁睬馈挚著剩烤蛔腕至锑篆还怠同沿央帧第4章 VB的基本控制结构第4章 VB的基本控制结构 练习2：输入一个正整数，求各位数字之和 输入正整数k 求它的位数 用For循环 1，位数和步长 取k的末位数，求和 使k去掉末位数 重复以上两步，直到结束 在text2中显示结果 或者用字符串操作来处理，更为简单 瓷正霞踊淖宜饵希领席跳弹愈祁川纲胶戮整迫袖赦苦验届叮组徊浑搭胎度第4章 VB的基本控制结构第4章 VB的基本控制结构 例：分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J = J + 1 Next I 注意： ⑴ 初值、终值、步长必须是数值型， 步长为正，初值终值；若为负，初值终值；缺省为默认为1 ⑵ 在已知循环次数时使用For循环，循环次数=int((终值-初值)/步长)+1 ⑶ 组成循环体的语句块可以是一条或多条语句 ⑷ Exit For表示当遇到该语句时，退出循环体，执行Next的下一句； ⑸??在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值， 否则影响结果。 ⑹ 注意在循环体内对循环变量、步长、初值、终值修改对循环次数的影响。 ⑺ 退出循环后，循环变量保持退出时的