选择结构和循环结构

1、选择结构编程，分段函数的评价等问题一次二次方程式求根，根据情况采用不同的数学公式对学生的成绩进行分类。 VB提供了三种被称为条件语句的选择语句结构。 是根据条件选择的执行代码段。 单行结构条件句： ifthen else块结构条件句： ifthenendif多分支选择句： select caseend select，1 .单行结构条件句ifthen else， 格式：单行分支条件语句： if条件then语句组功能：“条件”成立时，执行语句组多分支条件语句： if条件then语句组1 else语句组2功能：“条件”成立时执行语句组1，其他情况下执行语句组2的说明：单一语句组中的语句可以有多个，中

2、间用“:”分隔，因此不能换行。 然后，根据公式51计算函数y的值，用inputbox函数输入变量x，并要求在文本框中输出y。 例如：实习55设计了密码检查接口，假设密码为“123456”，要求密码的长度在8个字符以下，在执行时输入完密码后，可以通过按回车或“确定”来判断密码。 如果密码正确，则显示form2，否则，原始密码检测表单的标题会显示错误消息，连续输入三次错误密码后，会显示警告消息，应用程序自动结束。单行结构条件语句、密码检测、2 .块结构条件语句If then endif， 共同格式： if条件1 then语句组1 elseif条件2 then语句组2 elseif条件n then语

3、句组n 1 End if 2种共同格式if条件1 then语句组1 else语句组2 end If功能：单行结构的多分支条件语句条件then语句组end if功能：条件成立时执行语句组，不成立时不进行任何处理。 例54if C40 then打印”热“elseifc 30a NDC 20 andc=0and c100 then打印”寒冷“else打印”冻结”End if，温度转换，稍微变更该程序。 只能输入-100200范围内的数值。 2 .转换结束后，焦点自动返回到text1，选择text1中的文本，以便下次输入。 修改温度转换。 说明： Elseif不能写在Elseif上，是严格按照条件句的

4、格式写的，请勿随意将两行汇总成一行写。 请注意，块结构条件语句可以嵌套，但不能相互嵌套。 3 .多分支选择语句select case end select，格式： select case测试表达式case表达式表1语句组1 case表达式表2语句组2 case else语句组ncondinselect，功能：基于“测试表达式”的值，满足条件的语句更改温度转换段。 selectcasecasecaseis 40打印“热”case is 30打印“暖”case is 20打印“室温”case is10打印“冷”case is0打印“冷”case else打印“冻” 执行步骤：计算“测试表达式”的值

5、，然后依次测试该值符合哪个Case子句，如果找到符合的值，则运行该Case子句下的语句组，执行End select下的语句，如果找不到，则执行case else下的语句组，然后执行End select中的以下语句，以示例54为select case语句，示例56，select温度转换，分段运费问题，示例55，求分段函数，示例57键盘事件： Keypress事件Keydown事件：在用户按下键时触发事件Keyup事件。 在用户释放键时触发事件，用户按下的键盘代码作为程序执行的参数被传递到适当的事件过程中。5-7密码检查、Dim和静态差异： Dim :在表单模块内、事件中声明变量。如果dim语句显

6、示在表单代码的声明部分中，则表单和表单中控件的事件过程可以使用称为表单级变量的变量。如果dim语句位于过程中，则事件过程仅在过程中有效，并且是零对于在过程中用dim编写的变量，每次调用过程时，变量的值都是初始值。 Static:在过程中声明静态变量，并在每次调用过程时保留静态变量执行后的结果值。 dim nexti :打印机，j； a End sub，j a I a j，- 1，1，0，0，0，0，0，1，1，3，2，输出a=3，2，3，3，2，4，0，4，2，6，1，1，6，2，9，2 如果For next语句和doloop语句可以相互嵌套，但不能相互嵌套的多个For next语句嵌套在一起，则每个语句的next最终将for I=1to3for j=-1 to1a=AIJ next jnextprinti，j fori=1to3forj=-1to1a=aijnextj，I print I j，a，等价，合并后的next后的变量必须从内层环沿着外层环排列。 否则，在多重循环中，可以通过exit for或exit do退出相应层次的循环。 fori=1to 10 forj=1to 10a=a * I * IFA 50 thenexitfornextjprinti，j； a next I，do while i50 then exit do next j