VB程序设计基础第3章基本控制结构.ppt

第3章基本控制结构第1节顺序结构第2节选择结构二、selectcase结构msgbox函数第3节循环结构dowhile…loop循环结构二、for….Next循环结构第4节嵌套基础部第1节顺序结构第2节选择结构第3节循环结构第4节结构嵌套一、数据输出的基本方法1.print方法：(1).格式1：对象名.Print[tab(n1);]输出项1[;tab(n2);输出项2………]格式2：对象名.print[输出项表]注：a)对象名：可以是某窗体名或图片框名b)输出项表：输出项间用“，”（标准格式）或“；”（紧凑格式）分开如：form1.print“学号”,”姓名”,”成绩”picture1.printtab(3);”学号”;tab(23);”姓名”;tab(50);”成绩”(2).程序举例【例3-1】在窗体内输出一个六行由”*”组成的实心等腰三角形.【例3-2】在图片框内输出一个六行由”*”组成的实心等腰三角形.以上两例的结果如下:2.通过标签输出结果格式：标签名.caption=字符型表达式【例3-3】鸡兔同笼问题。已知鸡和兔的总头数为h，总脚数为f，问有多少支兔子、多少支鸡通过数学方法可以得到：兔(x),鸡(y)兔子的头数x=(f-2*h)/2鸡的头数y=(4*h-f)/2步骤：1)界面设计:建立五个标签和两个按钮2)属性设置3)编码3.文本框（text）二.提供数据的方法1.赋值语句格式：a)变量名＝表达式b)对象名.属性名＝表达式数据类型转换：相容类型转换为变量或属性类型注意:1不同于数学中的等式;2左必须是变量;3如n=n+1是计数,t=t+a是累加;2.inputbox函数格式：[变量名＝]inputbox（提示信息［，标题］［，默认值］［，X坐标］[,Y坐标]）PrivateSubform_Click()Dimh%,f%,x%,y%h=InputBox(请输入总头数,鸡兔同笼,0)f=Val(InputBox(请输入总脚数,鸡兔同笼,0))x=(4*h-f)/2:y=(f-2*h)/2Print若总头数为h,总脚数为f;print,则鸡有x只，兔有y只EndSub【例3-4】鸡兔同笼问题。已知鸡和兔的总头数为h，总脚数为f，问有多少支兔子、多少支鸡步骤：1)界面设计:建立空白窗体2)属性设置:设置窗体Font属性3)编码:编写窗体单击事件过程3.使用文本框输入格式：变量名=文本框对象名.textPrivateSubCommand1_Click()Dimf%,h%,x%,y%h=Val(Text1.Text):f=Val(Text2.Text)x=(4*h-f)/2:y=(f-2*h)/2Label3.Caption=鸡有x只，兔有y只EndSub【例3-5】鸡兔同笼问题。已知鸡和兔的总头数为h，总脚数为f，问有多少支兔子、多少支鸡?步骤：1)界面设计:建立三个标签、一个按钮、两个文本框2)属性设置:设置2个标签和命令按钮的标题属性,清空文本框3)编码:在命令按钮的单击事件中填写代码顺序结构程序执行时，按代码书写顺序执行，是最简单的基本结构。如果要根据不同条件处理不同任务，就必须使用选择结构。所谓选择结构，就是“多种任务，只选其一”。一、if结构格式：if条件1then语句组1[elseif条件2then语句组2……elseif条件nthen语句组nelse语句组n+1]endif条件1条件2条件n语句组1语句组2语句组n语句组n+1真真真假假假三种应用形式：1.if单分支if条件then语句组endif条件语句组假真2.if双分支if条件then语句组1else语句组2endif条件语句组1假真语句组23.if多分支if条件1then语句组1elseif条件2