温州医学院vb说课材料.ppt

《温州医学院vb说课材料.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、温州医学院vb3.1三种基本的控制结构选择结构（分支结构）在程序的运行过程中，存在岔路，通过特定的条件进行选择循环结构程序设计中最重要的结构，计算机进行复杂工作的基础3.2选择结构语法格式1IF<条件>THEN<语句1>[ELSE<语句2>]解释：<条件>表达式为真，程序执行<语句1>，反之为假，程序执行<语句2>例3-1分段函数的计算1-x2f(x)=(x-5)1/43.2选择结构例3-2输入x、y，仅当x[Els

2、e<语句2>]Endif注意：语句1与语句2可能不只有一行程序代码，可能是某断代码块典型程序例3.3求一元二次方程的根3.2选择结构语法格式3Selectcase<测试表达式>[case<表达式列表1>[<语句块1>]][case<表达式列表2>[<语句块2>]]…………….[caseelse>[<语句块n+1>]]Endselect典型程序例3.5多项式计算<表达式列表>：与<变量或表达式>同类型的下面四种形式之一：表达式如：“A”一组枚举表达式(用逗号分隔)如：2,4,6表达式1To表达式2如：60To100Is关系运算符表达式如：Is<603.2选择结构典型

3、程序例3.6输入年月，输出该月的天数，注意需要考虑闰年闰年的判断？Ymod4=0andymod100<>0orymod400=0SelectCasemCase1,3,5,7,8,10,12d=31Case4,6,9,11d=30Case2'需要判断是否为闰年If(yMod4=0AndyMod100<>0OryMod400=0)Thend=29Elsed=28EndIfCaseElseMsgBox("输入的月份错误!")EndSelect3.3循环结构语法格式For循环变量＝初值to终值[Step步长]语句块Next循环变量典型程序求1-100的整数和例3.8表达式

4、求值3.3循环结构例3.9PrivateSubForm_Click()Dimi%Fori=5To1000Step7IfiMod5=3AndiMod3=2ThenExitFor'返回满足的第一个数NextiIfi<=1000ThenPrintiEndSub3.3循环结构while…..wend语句格式如下：While<条件><循环块>Wend典型应用，不定项多项式计算例3.123.3循环结构形式1：（当型循环）Do{While}<条件>语句块[ExitDo]语句块Loop形式2：(直到循环）Do语句块[ExitDo]语句块Loop{While}<条件>表达式列表FT

5、ExitDo语句块语句块TFExitDo语句块语句块表达式列表3.3循环结构形式1：（当型循环）Do{Until}<条件>语句块[ExitDo]语句块Loop形式2：(直到循环）Do语句块[ExitDo]语句块Loop{Until}<条件>表达式列表TFExitDo语句块语句块FTExitDo语句块语句块表达式列表3.3循环结构例3-14:判断输入的任意正整数是否为素数PrivateSubCommand1_Click()Dimn%,i%n=Val(Text1.Text)Ifn=2Orn=3ThenText2.Text=Text1.Text+"是素数"ElseFor

6、i=2ToSqr(n)IfnModi=0ThenExitForNextiIfi>Sqr(n)Then'与平方根进行比较，超出说明是素数Text2.Text=Text1.Text+"是素数"ElseText2.Text=Text1.Text+"不是素数"EndIfEndIfEndSub3.4多重循环我国古代数学家在《算经》中出了一道题：“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一；百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？Dimx%,y%,z%'x表示公鸡，y表示母鸡，z表示小鸡Forx=0To20Fory=0To33z=100-y-xIf(5*x+3*y+z/3=

7、100)ThenPrint"公鸡:";x;"母鸡:";y;"小鸡:";zEndIfNextyNextx3.4多重循环例3.18运行时单机命令按钮后，输入n(n<10),然后在窗体上输出n层金字塔LoopWhilen<1Orn>9'验证n的值，否则继续循环Fori=1TonPrintTab(n-i+1);'设置该行输出的起始位置分号表示紧凑格式Forj=1To2*i-1PrintTrim(i);'函数trim除去i两端的空格NextjNexti3.5数组及应用数组的概念数组是指在内存连续区域中的相同类型数据的有序集合，由一个变量名来引用。数组中的每一个元素都可以通过

8、一个数值下