原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
31 Private Sub Form_Click() Dim Chinese%, Math%, English% ???桃湩獥??湉異?硯尨 语文 ) ???慍桴??灮瑵潂? 数学 ) ???湅汧獩??湉異?硯尨 英语 ) Select Case (chinese + math + english) / 3 Case Is = 60 ???????牐湩? 及格 Case Is 60 ???????牐湩? 不及格 End Select End Sub 注意： Select Case 后不能出现多个表达式 测试表达式 32 3.3 循环结构 计算机为什么能够大大提高人们的工作效率？ 一个很重要的原因就是它能够不知疲倦地进行 循环运算，而且结果精确。 ( 比如：编程实现 1 到 100 的累积和 ） 33 3.3 循环结构 —— (1)For … Next For 循环变量 X ＝ 初值 e1 to 终值 e2 [ Step 步长 e3] 循环体 Next [ 循环变量 X] 语法： 例 : For x=1 To 100 Step 1 ‘ 限定范围及步长 sum=sum+x ; ‘ 累加 Next x ‘ 进入下次循环 …… 2019/11/17 34 gejinhuan@163.com 例 : For x=2 To 13 Step 3 ‘ 限定范围及步长 Print x ; ‘ 输出 x 的值 Next x ‘ 进入下次循环 …… 例 : For x=1 To 99 Step 2 ‘ 限定范围及步长 s=s+x ‘ 连加 Next x ‘ 进入下次循环 …… 2019/11/17 35 gejinhuan@163.com Exit For 语句 ? 循环体中，可以包括一条或多条 Exit For 语句，如果程 序执行到 Exit For 语句时，就会直接退出循环，转而执 行 Next 语句的下一条语句。 ? Exit For 语句最常用的形式是与 If-Then 语句相结合， 即： If e Then Exit For ? 在执行循环体时，如果条件 e 被满足，则执行 Exit For 语句直接退出循环。 For i= 1 to 10 setp 1 … If i=7 Then Exit For Next i 2019/11/17 36 gejinhuan@163.com For … Next 结构注意事项： ? 步长缺省值为 1 （可以省略） ? 循环变量取值不合理，则不执行循环体。 如： For n=99 to 1 step 2 …… ? 循环体中可以出现语句“ Exit For ” ，用于 将控制转移到 Next 后一语句 ? 循环正常结束（未执行 Exit For 等控制语句） 后，控制变量为最后 1 次取值加步长。 37 Private Sub Form_Click() For x = 13 To 1 Step -3 Print x; If x = 7 Then Exit For End If Next x Print Print x End Sub 循环结构 —— (1)For … Next 例子： 38 例子： Private Su
文档评论（0）