教学材料《ＶＢ导论》_6.4.pptVIP

利用未知项与已知项之间存在的某种关系,从已知项出发能一项项推出未知项的方法叫递推法.已知项是初始条件。OptionBase1OptionExplicitPrivateSubForm_Click()Dimfb(18)AsInteger,i%fb(1)=1:fb(2)=1Fori=3To18fb(i)=fb(i-1)+fb(i-2)NextiFori=1To18Text1=Text1Str(fb(i))NextIEndsub前两项初值递推在文本框中输出统计类题目题目:产生20个20—40之间的两位随机整数,统计不同数据出现的次数.OptionBase1Dima(20)AsIntegerPrivateSub生成数组_Click()DimkAsInteger,iAsIntegerFori=1To20a(i)=Int(21*Rnd)+20Text1=Text1Str(a(i))k=k+1IfkMod10=0ThenText1=Text1vbCrLfEndIfNextiEndSub定义模块级数组,在整个窗体内有效生成20个整数，10个一行输出到text1中PrivateSub统计_Click()Dimb(20To40)Fori=1To20b(a(i))=b(a(i))+1NextiFori=20to40Ifb(i)0ThenList1.AddItemi出现:b(i)次“EndifNextiEndSub数组b的元素用来计数统计在列表框中输出例6-11统计字母（不分大小写）在文本中出现的次数。s=ucase(text1.text)n1=0:n2=0:n3=0：…….n26=0Fori=1Tolen(s)zimu=mid(s,i,1)SelectCasezimuCaseIs=“A”n1=n1+1CaseIs=“B”n2=n2+1………CaseElsen26=n26+1EndSelectNextiPrintn1,n2,n3,…..n26要定义26个变量，自然想到用变量的集合---数组用数组元素的值表示字母的个数。比如a(0)表示字母a的个数，a(1)表示字母b的个数，a(2)表示字母c的个数……算法说明:因为一个大写字母对”A”,或一个小写字母对”a”的ASCII的差值都在0—25之间,所以可以定义一个一维数组,它的下标取值范围在0-25之间。让数组元素下标值与字母A—Z一一对应起来.即A(0)记录字母A在文本中出现的次数,A(1)记录字母B在文本中出现的次数,…..A(25)记录字母Z在文本中出现的次数.统计字母在文本中出现的次数的方法:每次顺序取出文本中的一个字母,若是大写字母,用该字母的ascii减去A的;若是小写字母,则减a的,这样就得到与这个字母对应的数组元素的下标,然后将该数组元素的值加1。问题的关键是定下标.OptionExplicitPrivateSubCommand1_Click()DimstAsString,idxAsIntegerDima(0To25)AsIntegerDimiAsInteger,jsAsIntegerDimchAsString*1,lAsIntegerst=ucase(Text1.Text)L=Len(st)Fori=1ToLch=Mid(st,i,1)