温州医学院vb说课材料

温州医学院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<y时，交换x,y值，然后输出x,y的值（Text控件输入x,y值，采用label空间输出结果）3.2选择结构语法格式2If(条件)then<语句1>[Else<语句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.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表达式求值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}<条件>表达式列表FTExitDo语句块语句块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+"是素数"ElseFori=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=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数组及应用数组的概念

数组是指在内存连续区域中的相同类型数据的有序集合，由一个变量名来引用。数组中的每一个元素都可以通过一个数值下标访问。数组是一组相同类型的变量的集合VB中有两类数组:定长数组、动态(可变长)数组。数组作用减少变量的声名数列的使用程序的效率3.5数组及应用（一）定长数组及声明

Dim|Private|Public

数组名(下标1[,下标2…])[As类型]维数：数组下标变量的个数，用“，”分隔下标：[下界To]上界注：必须为常数，若省略下界为0（默认值可由语句OptionBase1改变）每一维大小：

上界－下界+1

数组大小（总的元数个数）：

每一维大小的乘积例:Dimmark(1to100)AsInteger

Dimmark%(100)--->Dimmark%(0to100)

Dima(1to3,1to4)AsIntegerDims(2,5)AsSingle3.5数组及应用静态数组例3.19显示数列1，1，2，3，5，8……中前30项的值该问题为意大利著名数学家LeonardoFibonacci提出的兔子繁殖问题，其核心公式为f(n)=f(n-1)+f(n-2)该问题的非数组实现：Dimf1AsLong,f2AsLong,f3AsLong,iAsIntegerf1=1:f2=1Printf1;f2;Fori=3To30'循环个数f3=f1+f2Printf3;'注意分号IfiMod5=0ThenPrint'满5个，换行f1=f2:f2=f3'递归Nexti3.5数组及应用数组实现：'PrivateSubform_click()'Dimf(1To30)AsLong,iAsInteger'f(1)=1:f(2)=1'Fori=3To30'循环个数'f(i)=f(i-1)+f(i-2)'Nexti'Fori=1To30'Printf(i);'注意分号'IfiMod5=0ThenPrint'满5个，换行'Nexti'EndSub体会两者的差异！3.5数组及应用例3-20编程，输入x1,x2,……x30,按下列公式计算'输出各点的滑动平均值'xii=1或i=30'yi=(xi-1+xi+xi+1)/31<i<30例3-22建立一个3行5列的二维数组。数组的前四列由输入对话框输入，第5列为同一行上前面4个数的和。3.5动态数组动态数组操作方式动态数组声明格式：先定义无界数组dima()Redima(10)（使用前必须进行二次定义）注意：在声明时如果指定了数组的长度，则不能进行redim操作例3.25输入n个整数，求他们的最小公倍数思考：如何求取若干个数的最小公倍数方法：穷举法原理：假定有a(1),a(2)….a(n)个数，那么所有的数的最小公倍数必定为a(1)的N倍，因此，可做循环，遍历a(1)的任意倍数，直至找出a(1)的某个倍数能够被其他所有数整除为止。3.5动态数组Dimn%,i%,gbsAsLongDima()AsIntegern=Val(InputBox("n=","输入元素的个数"))ReDima(n)Fori=1Tona(i)=Val(InputBox("a("+Str(i)+")=","输入数组各个元素"))Next