VB语言程序设计(第二章)

.,第二章VisualBasic语言基础,常量、变量、运算符和表达式赋值与注释语句和一句多行与一行多句基本控制结构常用内部函数输入与输出数组算法举例,.,2.1.1常量类型：数值型、字符型、逻辑型、日期型一般常量123,-456.8,“ABC”，“水产学院”，true,false,#1/3/2004#1MAR2004#,#MARCH1,2004#,b;cEndSub,return,.,PrivateSubCommand1_Click()Dima,b,cAsIntegera=9:b=8:c=7Printa,b,cPrintPrinta;b;cEndSub,return,.,PrivateSubCommand3_Click()Dima,b,cAsIntegera=9:b=8:c=7Printa,Printb;PrintcPrinta;b;cEndSub,return,.,(1)format格式：format(表达式，格式串)PrivateSubCommand1_Click()DimmyTime,MyDateAsStringDimMySalary,yourSalaryAsStringDimaAsSinglea=5158.3myTime=Format(Now,hh:mm:ss)MyDate=Format(Now,yyyy/mm/dd)MySalary=Format(a,#,#.00)yourSalary=Format(a,#.00)PrintMyDate,myTime,MySalary,yourSalaryEndSub,.,(2)spc格式：spc(n)功能：输出n个空格(3)tab格式：tab（n）功能：将光标移到第n列说明：如果当前位置在第n列之后则移到下一行的第n列,.,2.6数组,2.6.1数组声明1.数组定义：格式：Dim|Global数组名（数组元素上下界，）As类型说明：（1）数组元素上下界可以表示为：下界to上界，缺省时数组下界时序号从0开始编号。（2）数组元素上下界的个数表示数组的维数（3）数组为变体类型时不同数组元素可以赋不同类型的值。（4）数组不同于普通变量，使用前必须先声明。,.,例：Dima(3To5)AsStringDimb(10)AsStringDimiAsIntegerFori=0To10b(i)=test+Str(i)NextiPrinta(3);a(4);a(5)Fori=0To10Printb(i),NextiPrint,.,2.OptionBase语句格式：OptionBase0|1功能：声明数组的缺省下标说明：（1）数组的默认缺省下标为0，可以用该语句将其改为1（2）一个模块中只能出现一次该语句，且必须放在数组声明语句之前。3.Lbound和Ubound函数格式：Ubound(数组名，维)，Lbound(数组名，维)功能：用于确定数组的指定维的最小和最大下标说明：维指定要返回的是哪一维的下标,.,2.6.2静态数组和动态数组1.静态数组：固定大小的数组，维数和大小不能改变。动态数组：运行时可以改变其大小的数组，事前可以不指定数组的大小，在需要时指定。格式：ReDimPreserve数组名（数组元素上下界，）As类型说明：（1）ReDim用于为动态数组重新分配存储空间，只能改变每一维的数组元素的个数，不能改变数组的维数。（2）当改变数组元素最末维的大小时用preserve可以保留数组中原来的数据。（3）不能改变数组元素的类型（4）如果将数组元素改小，被删元素的数据就会丢失,.,PrivateSubCommand1_Click()Dima()AsIntegerDimx,yAsIntegerx=5y=9ReDima(5,9)ReDima(x+1,y+1)ReDimPreservea(x+3,y+6)EndSub,.,例：点击按钮时，用输入对话框输入一个整数N，然后求Fabonacci数列：1，1，2，3，5，8，13，21，到第N项，并把结果输出到窗体上Fabonacci数列的关系：F1=1F2=1Fn=Fn-1+Fn-2,.,PrivateSubCommand1_Click()Dimi,f()AsIntegerDimnAsIntegern=Val(InputBox(pleaseInputAInteger:,Fabonacci,10)Ifn0ThenReDimf(n)f(0)=1:f(1)=1Fori=2Tonf(i)=f(i-1)+f(i-2)NextiFori=0TonPrintf(i),IfI+1Mod5=0ThenPrintEndIfNextiEndIfPrintEndSub,.,2.6.3多维数组：1.定义：Dim|Global数组名（最大长度，最大长度，.）As类型2.使用：用多重循环来使用。例ForI=1tonforj=1toma(I,j)=0nextjNextI,.,1.牛顿迭代法解方程用牛顿迭代法解方程2x3-4x2+3x-6=0在x0附近的根,已知一个初始点x0,公式为:xn+1=xn-f(xn)/f(xn)n=0,1,2.步骤:先计算f(xn)=6x2-4x+3根据公式依次计算x1,x2,x3当|xn+1-xn|=epslonX.Text=xn1EndSub,.,2.折半查找法在一组已经排好序的数中查找某个数。折半查找是通过每次得到被查数据范围的中间数据，然后与被查数据进行比较，如果该中间数据大于被查数据，则查找前半部分，否则查找后半部分，依此进行排查。例：某物的价钱在11024之间一般的猜法为：,高了,512？,256？,低了,320？,高了,高了,384？,288？,恭喜！答对了！,.,当点击窗体时，用输入对话框输入要查找的数，被查找的范围事先指定，并在窗体被激活时显示在窗体上。,.,ConstN=10Dima(N)AsIntegerPrivateSubForm_Activate()Dimi,jAsIntegera(1)=1:a(2)=5:a(3)=8:a(4)=16:a(5)=23a(6)=31:a(7)=59:a(8)=88:a(9)=96:a(10)=123Printthearrayis:Fori=1ToNPrinta(i),NextiPrintEndSub,.,PrivateSubForm_Click()DimfindNum,curLocation,top,bottAsIntegerDimfoundAsBooleanfound=FalsefindNum=Val(InputBox(pleaseinputanumber,thenumber)top=N:bott=1DocurLocation=bott+Int(top-bott)/2)IffindNum=a(curLocation)Thenfound=TrueExitDo,.,ElseIffindNuma(curLocation)Thenbott=curLocation+1Elsetop=curLocation-1EndIfEndIfLo