總復(fù)習(xí)VisualBasic復(fù)習(xí)提綱VB基礎(chǔ)知識程序控制結(jié)構(gòu)數(shù)組過程順序文件控件2023/4/12重要算法排序查找求最值判斷素數(shù)求最大公約數(shù)、最小公倍數(shù)2023/4/13對數(shù)組a進行遞增排序Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*91+10)NextiFori=1To9Forj=i+1To10Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiFori=1To10Printa(i);Nexti比較交換法2023/4/15求最值Dima(1to10)AsInteger,max%,min%Fori=1to10

a(i)=int(rnd*91+10)‘產(chǎn)生[10,100]的隨機整數(shù)Nextimax=a(1):min=a(1)Fori=1To10ifa(i)>maxThenmax=a(i)ifa(i)<minThenmin=a(i)NextiPrint“最大值是”;max;”最小值是”min2023/4/16對數(shù)組a進行查找OptionBase1Dima(1to10)AsIntegerFori=1to10 a(i)=int(rnd*91+10)‘產(chǎn)生[10,100]的隨機整數(shù)Nextix=val(inputbox(“輸入要查找的數(shù)據(jù)”))Fori=1To10ifx=a(i)ThenExitforNextiIfi>10then

Print“該數(shù)找不到”Else Print“該數(shù)在”&i&“位置”EndIf2023/4/17求最大公約數(shù)、最小公倍數(shù)r=mmodnDowhiler<>0m=nn=rr=mmodnLoopPrintn;”是最大公約數(shù)”Printm1*n1/n;”是最小公倍數(shù)”m=Val(Text1):n=Val(Text1)Ifm<nthent=m:m=n:n=tm1=m:n1=n2023/4/19控制結(jié)構(gòu)選擇循環(huán)IIf（條件，當(dāng)條件為True時的值，當(dāng)條件為False時的值）Max=IIf（x>y，x，y）2023/4/110選擇結(jié)構(gòu)多分支選擇-編寫程序?qū)崿F(xiàn)2023/4/111循環(huán)結(jié)構(gòu)For累加連乘二重循環(huán)、三重循環(huán)條件型循環(huán)Do…LoopWhile…Wend2023/4/113圖案輸出Fori=1To5

PrintTab(10-i);

Forj=1To2*i-1Print"*";Nextj

PrintNextiFori=4To1Step-1PrintTab(10-i);Forj=1To2*i-1Print"*";NextjPrintNexti2023/4/114求水仙花數(shù)13+53+33=153,求滿足水仙花數(shù)的所有三位數(shù)。Fori=1to9‘百位的數(shù)字范圍 Forj=0to9‘十位的數(shù)字范圍Fork=0to9‘個位的數(shù)字范圍

n=i*100+j*10+k‘構(gòu)成三位數(shù)ijk

‘判斷是否滿足水仙花要求ifn=i^3+j^3+k^3ThenPrintn

NextkNextjNexti2023/4/115過程Function過程Sub過程過程定義過程調(diào)用參數(shù)傳遞2023/4/117Function過程n！Functionf(n)t=1Fori=1Tont=t*iNextif=tEndFunction……

S=f(A)+f(B)+f(C)‘調(diào)用過程……求S=A!+B!+C!2023/4/118Sub過程求階乘Subfs(n，k)t=1fori=1tont=t*inexti

k=t

EndSub……‘調(diào)用過程fsa,a1:fsb,b1:fsc,c1S=a1+b1+c1……求S=A!+B!+C!2023/4/119調(diào)用n！的函數(shù)過程計算e的近似值Functionf(n)t=1Fori=1Tont=t*iNexti

f=tEndFunctione=1n=0Don=n+1

t=1/f(n)

e=e+tLoopUntilt<=0.00001Printe編寫函數(shù)過程判定回文Functionh(sAsString)AsBooleanDimi%,L%h=True：L=Len(s)Fori=1ToL\2IfMid(s,i,1)<>Mid(s,L+1-i,1)Thenh=FalseExitFunctionEndIfNextiEndFunctionPrivateSubForm_Click()DimaAsStringa=InputBox(“請輸入字符串！")Ifh(a)=TrueThenPrinta;"是回文！“ElsePrinta;"不是回文！“EndIfEndSub2023/4/122【思路】組合數(shù)是求如Cnm的數(shù)，計算的方法是分別求n！,m!.組合數(shù)的大小為n!/(m!*(n-m)!)。計算組合數(shù)—Function嵌套Function

f(n)t=1Fori=1Tont=t*iNexti

f=tEndFunctionFunction

c(n,m)

c=

f(n)/(f(m)*f(n-m))EndFunction2023/4/123編寫求最大公約數(shù)（gcd）的子過程。PublicSubgcd(ByValm%,ByValn%,ByRefk%)r=mModnDoWhiler<>0m=nn=rr=mModnLoopk=nEndSubPrivateSubCommand1_Click()Dimx%,y%,k%x=Val(InputBox("請輸入x："))y=Val(InputBox("請輸入y："))Ifx<yThent=x:x=y:y=t

Callgcd(x,y,k)Print“最大公約數(shù)：”;kPrint“最小公倍數(shù)：”;x*y/kEndSub2023/4/125遞歸調(diào)用編寫程序計算n！Functionfac(n)Ifn=0Thenfac=1Elsefac=n*fac(n-1)EndIfEndFunctionSubCommand1_Click() Print“3！=”；fac(3)EndSub結(jié)果： 3！=62023/4/126數(shù)組一維數(shù)組For賦值、輸出（一重循環(huán)）Array函數(shù)(用于對變體型變量賦值)OptionBase語句Lbound、Ubound函數(shù)Foreach……next2023/4/129數(shù)組二維數(shù)組For賦值、輸出（二重循環(huán)）動態(tài)數(shù)組Preserve參數(shù)ReDimPreservedata(n+1,m)×ReDimPreservedata(n,m+1)√控件數(shù)組自定義數(shù)據(jù)類型2023/4/130數(shù)組操作Optionbase1Dima(10)asintegerFori=1To10

a(i)=iPrinta(i);NextiDima(3,3)AsIntegerFori=1To3Forj=1to3

a(i,j)=3*(i-1)+j

Printa(i,j);Nextj

PrintNexti2023/4/131求一個班全體學(xué)生的平均成績。Fori=1Tonmark(i)=InputBox(“輸入第"&i&"位學(xué)生的成績")

sum=sum+mark(i)Nextiaver=sum/nsum=0n=Val(InputBox(“請輸入該班的學(xué)生人數(shù)"))Dimmark()AsIntegerReDimmark(1Ton)有了確定值的變量2023/4/132控件數(shù)組的使用PrivateSubOption1_Click(IndexAsInteger)x=Val(Text1.Text)y=Val(Text2.Text)

SelectCaseIndex

Case0Text3.Text=x/y

Case1Text3.Text=x\yCase2Text3.Text=xMody

EndSelectEndSub2023/4/133自定義數(shù)據(jù)類型學(xué)號姓名成績1成績2成績3總分平均分001Liu89888726488Type

student

noAsString*3

nameAsString*8

mark(1to3)Asinteger

totalasinteger

averageAsintegerEndTypeDimaAsStudenta.no="001"a.mark(1)

=89Witha

.no="001"

.name="Liu".mark(1)=89EndWith2023/4/134文件順序文件讀Open“test.txt”ForInputAs#1

Input#1,a‘讀出一個記錄賦值給變量aClose

順序文件寫Open“test.txt”ForOutputAs#1

Print#1,a‘將變量a的值寫入文件Close2023/4/135文件LOF(文件號)EOF(文件號)DoWhileNotEOF（文件號）

……Loop隨機文件Open“abc.txt”ForrandomAs#1put#文件號，[記錄號]，變量名get#文件號，[記錄號]，變量名2023/4/136VB基礎(chǔ)知識考點1-文件類型(vbp,frm,bas)考點2-對象三要素(屬性、事件、方法)考點3-賦值語句考點4-文件保存和運行考點5-基本數(shù)據(jù)類型(string,integer,single,double,boolean)考點6-系統(tǒng)常量考點7-變量的命名規(guī)則和聲明2023/4/137VB基礎(chǔ)知識考點8-變量作用域(局部、靜態(tài)、模塊級變量)考點9-內(nèi)部函數(shù)Int、Str、Val、Abs、Sqr、Exp、Chr、AscRnd[a,b]范圍內(nèi)的隨機整數(shù)：Int(Rnd*(b-a+1)+a)字符串函數(shù)(Mid，Left、Right、Len、Instr、String)考點10-運算符(算術(shù)、字符、關(guān)系與邏輯)及表達式的優(yōu)先級考點11-Print方法(spc、tab、format)考點12-InputBox以及MsgBox2023/4/138控件窗體->Caption屬性、單擊事件、Print方法文本框->Text屬性標(biāo)簽->Caption屬性單選按鈕->Caption屬性、單擊事件復(fù)選框->Caption屬性、Value屬性、單擊事件列表框、組合框->List屬性、ListIndex屬性、Text屬性、AddItem方法、RemoveItem方法、Clear方法、單擊事件