2023年VB知識(shí)點(diǎn)總結(jié)

VB概述§1VB的特點(diǎn).可視化的設(shè)計(jì)平臺(tái).面向?qū)ο蟮脑O(shè)計(jì)方法對(duì)象具有自己的屬性（對(duì)象的性質(zhì)）、方法（對(duì)象的動(dòng)作）和事件（對(duì)象的響應(yīng)），它構(gòu)成對(duì)象的三個(gè)要素。.事件驅(qū)動(dòng)的編程機(jī)制.集成化的開發(fā)環(huán)境.結(jié)構(gòu)化的設(shè)計(jì)語言§4VB程序設(shè)計(jì)VB應(yīng)用程序的開發(fā)有三個(gè)環(huán)節(jié)：（1）設(shè)計(jì)應(yīng)用程序界面。（2）設(shè)立對(duì)象的屬性（3）編寫事件驅(qū)動(dòng)代碼保存工程簡便方法：執(zhí)行“文獻(xiàn)/保存工程”命令（第一次保存文獻(xiàn)）系統(tǒng)先打開“文獻(xiàn)另存為”對(duì)話框，保存窗體文獻(xiàn)（或標(biāo)準(zhǔn)模塊文獻(xiàn)），然后再打開“工程另存為”對(duì)話框，保存工程文獻(xiàn)。保存修改后的工程文獻(xiàn)選擇“文獻(xiàn)/保存工程”命令保存所做的修改，（保存與工程有關(guān)的修改過的窗體文獻(xiàn)或標(biāo)準(zhǔn)模塊文獻(xiàn)）。VB基礎(chǔ)知識(shí)常量（1）字符串常量用雙引號(hào)括起來的字符序列（除雙引號(hào)和回車符）。語句塊3Else語句塊n+1EndIf從多個(gè)條件中,選擇執(zhí)行一個(gè)語句塊“縱然分支眾多，僅選其一”說明：當(dāng)有多個(gè)條件為真時(shí)，只能執(zhí)行最前面的一個(gè)語句塊。注意：E1self之間不能有空格【例】學(xué)生成績鑒定。PrivateSubCommandl_C1ick()x=Va1(InputBox(”輸入學(xué)生成績：”))Ifx>=90ThenPrint“優(yōu)”ElseIfx>=80ThenPrint“良”Elselfx>=70ThenPrint“中”Elselfx>60ThenPrint“及格”ElsePrint“不及格”EndIfEndSub2.4IIf函數(shù)IIf是單行If語句的簡樸版本。變量=Ilf(條件，True部分，F(xiàn)a1se部分)注意：IIf函數(shù)中的三個(gè)參數(shù)都不能省略。例：計(jì)算分段函數(shù)+x(x20)y=1-2x(x<0)PrivateSubCommand1_C1ick()DimxAsSing1ezyAsSingIex=Vai(Textl.Text)y=IIf(x>=Ozl+x,1—2*x)Text2.Text=yEndSub【例】判閏年。閏年的條件：(1)被4整除，但不能被100整除；(2)能被400整除。最佳：IfxMod400=0Theny$=”是閏年”ElselfxMod4=0AndxMod100<>0Theny$="是閏年"E1sey$="不是閏年”EndIf也可x=Vai(InputBox("輸入年份"))IfxMod4=0andxMod100<>0orxMod4000Theny$=”是閏年”Elsey$="不是閏年”EndIf.Se1ectCase語句用于實(shí)現(xiàn)多分支結(jié)構(gòu)。Se1ectCase測試表達(dá)式Case條件1語句塊1Case條件2語句塊2CaseElse語句塊n+1EndSelect功能：從多個(gè)條件中選擇執(zhí)行第一個(gè)符合條件的語句,都不符合,則執(zhí)行CaseElse后的語句塊。注意條件：常量表：1,3,5測試范圍：10to20,''az,to''zw比較范圍：Is<10(不能為邏輯表達(dá)式)【例】學(xué)生成績?cè)u(píng)估PrivateSubCommandl_Click()x=Val(InputBox("輸入考試成績”))electCasexCase90To100y$="優(yōu)”Case80To89y$="良"Case70To79y$=n中"Case60To69y$="及格”Case0To59y$="不及格”CaseElsey$="輸入錯(cuò)誤”EndSelectForml.Print”成績:“；x,“等級(jí):“；y$EndSub我環(huán)儲(chǔ)構(gòu)“當(dāng)型”循環(huán)：當(dāng)條件為真,執(zhí)行循環(huán)體?！爸钡叫汀毖h(huán):做循環(huán)，直到條件為真為止。For-Next循環(huán)

常用于循環(huán)次數(shù)已知。For循環(huán)變量=初值To終值[Step步長]循環(huán)體[ExitFor]Next循環(huán)變量【例】計(jì)算n!。PrivateSubCommandl_Click（）n=Va1（InputBoxC輸入一個(gè)自然數(shù)”））Term=1Fori=1TonTerm=Term*NextiPrintn;n!="；TermEndSub【例】計(jì)算2+4+6++100的值。PrivateSubCommandl_Click()Sum=0Forx=2Forx=2Forx=2To100StForx=2To100Step2Sum=Sum+xSum=Sum+xNextxForSum=Sum+xNextxForm1.PrintHSum=H；SumEndSub【例】計(jì)算1+2!+3!+……+10!PrivateSubCommandl_C1ick()T=1ForFor1For1To10T=T*kS=S+TNextkPrintSEndSub.While-Wend循環(huán)適合解決循環(huán)次數(shù)未知的循環(huán)。While條件語句塊Wend功能：當(dāng)條件為真時(shí)執(zhí)行循環(huán)。【例】計(jì)算1+2+3++100PrivateSubCommandl_Click()DimnAsInteger.sAsIntegers=0n=1Whi1en<=100s=s+nn=n+1WendLab1el.Caption="1+2++3++100="&sEndSubDo-Loop循環(huán)Do語句塊[ExitDo]Loop[WhiIe|Until條件]Do[While|UntiI條件]語句塊[ExitDo]Loop功能：While條件一一當(dāng)“條件”為True執(zhí)行循環(huán)體。Unti1條件一一“條件”為False執(zhí)行循環(huán)體。如無條件,則為死循環(huán)。說明：格式1：“先循環(huán),后判斷”，至少執(zhí)行一次循環(huán)。格式2:“先判斷,后循環(huán)”，如條件不滿足，則一次循環(huán)也不執(zhí)行?！纠坑?jì)算1+2+3+……+100s=0n=1Dowhilen<=100s=s+nn=n+lLoop也可s=0n=1DoUnti1n>100s=s+nn=n+lLoop【例】將十進(jìn)制數(shù)轉(zhuǎn)換為二進(jìn)制數(shù)PrivateSubForm_Click()DimmAsIntegerm=InputBox(Menterm:n)a$="nWhilem<>0r=mMod2a$=r&a$m=m\2WendPrinta$EndSub注意：a$=a$&r則為:4=001列表框列表框的方法Additem方法：用于在列表框中插入一個(gè)列表項(xiàng)。格式：列表框.Additem項(xiàng)目字符串［，索引值］如省略索引值,則在列表框的最后插入新列表項(xiàng)?！纠繉⑽谋究騼?nèi)容添加到列表框1PrivateSubCommand1_CIick()Listl.AddltemText1.TextEndSub多重循環(huán)說明：(1)必須完整嵌套，不得交叉。(2)ExitFor語句和ExitDo語句只能退出當(dāng)前層循環(huán)。指定每行顯示數(shù)據(jù)的個(gè)數(shù)Forn=lto30Printn;〃〃；IfnMod10=0ThenPrintNextn'每顯示工。個(gè)數(shù)據(jù)換行常用算法(1)1.不定方程求解?！纠堪匐u問題X4-y4-z=1005x+3y+z/3=100PrivateSubCommandl_Click()DimxAsIntegerDimyAsInteger,zAsIntegerPrint“公雞“，“母雞“，“小雞”Forx=0To20Fory=0To33z=100-x-yIf5*x+3*y+z/3=100ThenPrintxzy,zEndIfNextyNextx^EndSub2.求最大公約數(shù)和最小公倍數(shù)輾轉(zhuǎn)相除法：【例】計(jì)算最大公約數(shù)和最小公倍數(shù)。PrivateSubCommandl_Click()DimmAsIntegerfnAsIntegerDimuAsInteger,vAsIntegerm=Va1(Text1.Text)n=Val(Text2.Text)Ifm>nThenu=m:v=nElseu=n:v=mEndIfDor=uModvu=vv=rLoopUntiIr=0Print”最大公約數(shù)：”；u例如:"China"''Iamastudent.”“95.3%””計(jì)算機(jī)軟件”（2）數(shù)值常量整型1234（十進(jìn)制）長整型12345678（十進(jìn)制）單精度數(shù):有三種形式，12.34,123!,123.45E-5雙精度數(shù):有兩種形式，12.34#,123.45D-5在常數(shù)后面加上類型說明符：%整型&長整型！單精度#雙精度$字符串型。2.符號(hào)常量格式：Const常量名=表達(dá)式功能：定義一個(gè)符號(hào)常量來表達(dá)表達(dá)式的值。說明：“常量名”可加以類型說明符。符號(hào)常量的類型由類型說明符或表達(dá)式的類型決定。ConstPI=3.141593支量1.變■的命名變量名以字母開頭，后跟字母、數(shù)字和下劃線組成說明：（1）變量名不能是保存字（2）VB變量名不區(qū)分字母大小寫。Print”最小公倍數(shù)：”；m*n/uEndSub或r=uModvDoWhi1er<>0u=vv=rr=uModvLoopPrint”最大公約數(shù)v3.判素?cái)?shù)(質(zhì)數(shù))【例】判n是否為素?cái)?shù)。PrivateSubCommand1_Click()DimnAsInteger,iAsIntegern=Val(InputBox(”輸入正整數(shù)”))Fori=2Ton-1IfnModi=0ThenExitForNextiIfi>n—1ThenPrintn;"是質(zhì)數(shù)”ElsePrintn;"不是質(zhì)數(shù)”EndIfEndSub例求100?200之間素?cái)?shù)，并寫入順序文獻(xiàn)。PrivateSubCommand1_C1ick()0pen''shusu.dat/fForOutputAs#1Forn=101To200step2S=1，是Fori=2ToInt(Sqr(n))IfnModi=0ThenS=0'不是ExitForEndIfNextIIfs=lThenWrite#1,nNextnc1ose#1EndSub添加到列表框：List1.Addltemn6.1靜態(tài)數(shù)組編譯時(shí)分派存儲(chǔ)空間。定義：Dimb(3,4)AsLong分派4X5個(gè)長整型變量的空間，二維數(shù)組在內(nèi)存按行的順序存放例：Dimb(3,2to4,1to3)AsIntegerb(0,0)b(0,1)B(0,2)b(0,3)b(0,b(1,0)b(1,1)B(1,2)b(1,3)b(1,b(2,0)b(2,1)B(2,2)b(2,3)b(2,4b(3,0)b(3,1)B(3,2)b(3,3)b(3,，共分派4X3X3=36個(gè)元素，共72ByteOption語句格式：OptionBase1注意：只能出現(xiàn)在窗體層或模塊層必須位于數(shù)組定義之前。例：OptionBaselDima(l0)AsInteger,x(5,5)AsString每一維下標(biāo)的下界均從1開始。動(dòng)態(tài)數(shù)組運(yùn)營時(shí)分派內(nèi)存區(qū)，定義分兩步進(jìn)行：(1)先在窗體層、標(biāo)準(zhǔn)模塊或過程中Dim或Pub1ic聲明一個(gè)沒有下標(biāo)的數(shù)組。(2)過程中用ReDim語句定義帶下標(biāo)的數(shù)組。說明：聲明時(shí)不指定數(shù)組的維數(shù)數(shù)組的維數(shù)由第一次出現(xiàn)的ReDim語句指定。例如：DimTest()AsIntegerDimnAsIntegerSubForm_click()ll=InputBox(wEnteravalue：")ReDimTest(n)EndSub數(shù)組元素的引用形式：數(shù)組名(下標(biāo))數(shù)組元素賦初值運(yùn)營前對(duì)數(shù)組進(jìn)行初始化。格式:數(shù)組變量名=Array(初值表)說明：數(shù)組下標(biāo)下界缺省為0,只能對(duì)一維數(shù)組初始化【例】DimaAsAsVarianta=Array(1?2,3,4,5,6,7)注意：下標(biāo)從0飛【例】一維數(shù)組元素賦初值。OptionBase1PrivateSubForm_Click()DimaAsVarianta=Array(lz2f3,4,5,6,7)Fori=1To7Printa(i)；NextiEndSub運(yùn)營結(jié)果：1234567數(shù)組輸入/輸出一般通過For循環(huán)語句和InputBox函數(shù)實(shí)現(xiàn),一維數(shù)組用單重循環(huán)。二維數(shù)組采用雙重循環(huán)?！纠恳痪S數(shù)組的輸入和輸出。Fori=1To10a(i)=InputBox("Enterdata:")Nexti【例】二維數(shù)組的輸入和輸出。123456789Fori=ITo3Forj=1To3a(i,j)=InputBox("enterdata:")NextjNextiFori=1To3Forj=1To3Printa(i,j);"";NextjPrintNexti【例】用Rnd產(chǎn)生10個(gè)0?100之間隨機(jī)數(shù)。Fori=1To10a(i)=Int(10O*Rnd)Nexti用戶自定義類型定義格式：Type自定義類型名元素名1As類型名元素名2As類型名元素名nAs類型名EndType其中：類型名一一可為任何基本類型，也可為用戶自定義類型。說明：(1)一般在標(biāo)準(zhǔn)模塊中定義,默認(rèn)為Public。如在窗體模塊的“聲明”段定義，則必須加上Private,且只能在窗體模塊中使用。(2)自定義類型中的元素可認(rèn)為數(shù)組名?！纠縋rivateTypestudentnumAsString*8nameAsString*8totalAsIntegeraverageAsIntegerEndType.自定義類型變量的聲明Dim變量名As自定義類型名例如：DimstudAsStudent.引用自定義類型變量中的元素形式:變量名.元素名.自定義類型數(shù)組的聲明和使用聲明：Dimst(5)AsStudent引用形式：記錄數(shù)組元素.成員名【例】輸入5個(gè)學(xué)生的學(xué)號(hào)、姓名、和3門課的成績，運(yùn)用自定義類型數(shù)組,計(jì)算每個(gè)學(xué)生的總分和平均分,并按平均成績從高到低輸出學(xué)生的成績單。PrivateTypestudentnoAsString*6nameAsString*6siAsSingles2AsSingIes3AsSing1etotalAsSingIeaverAsSing1eEndTypePrivateSubForm_CIick()Dima(lTo5)Asstudent,tAsstudent0pen''stud.dat"ForOutputAs#1'Open"stud.dat"ForRandomAs#2Len=Len⑴打開隨機(jī)文獻(xiàn)n=5Fori=1Tona(i).tota1=a(i).sl+a(i).s2+a(i).s3a(i).aver=a(i).totaI/3NextiFori=1Ton-1Forj=i+1TonIfa(i).aver<a(j).averThent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiPrint”學(xué)號(hào)姓名語文數(shù)學(xué)英語總分平均分.Fori=1TonPrintTab(2);a(i).no；Tab(10);a(i).name；Tab(18)；a(i).sl;Printa(i).s2;"n;a(i).s3;H;a(i).total;n";a(i).averWrite#l,a(i).no,a(i).name,a(i).s1,a(i).s2,a(i).s3,a(i).total,(i).aver'Put#2,i,a(i)寫入隨機(jī)文獻(xiàn)NextiClose#1EndSub注意：寫入文獻(xiàn)一行一個(gè)記錄運(yùn)營結(jié)果說明：互換兩個(gè)記錄數(shù)組元素的值，則該記錄數(shù)組元素的所有成員都將互換。6.7常用算法(2)1.求最大值和最小值【例】找10個(gè)數(shù)中的最大值與最小值。Fori=1To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Nexti7.2排序升序:從小到大降序:從大到小.比較互換法Fori=1Ton-1Forj=i+1TonIfa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNexti.選擇法排序Fori=1Ton-1P=iForj=i+1TonIfa(p)>a(j)Thenp=jNextjt=a(i)a(i)=a(p)a(P)=tNexti.冒泡法排序特點(diǎn)：相鄰的兩個(gè)元素進(jìn)行比較Fori=1Ton—1Forj=1Ton-iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)a(j+l)=tEndIfNextjNexti查詢i.順序查詢從一組數(shù)據(jù)中，按順序地查找指定的數(shù)據(jù)?！纠坑庙樞虿樵兎ㄔ谙铝袛?shù)據(jù)中查找關(guān)鍵字值k=ValClnputBox(“輸入要查詢的數(shù)”))P=1WhiIek<>a(p)Andp<nP=P+1WendIfk=a(p)ThenPrintk；nbefoundzonn;p;"thposition..變量的類型（1）用類型說明符在變量的尾部加上類型說明符：%整型&長整型！單精度#雙精度$字符串型。例如：Num%,Strl$均是合法的變量名在引用時(shí)，可以省略類型說明符。（2）定義變量時(shí)聲明其類型格式:Dim變量名As類型“類型”可為基本數(shù)據(jù)類型或用戶自定義的類型。Boo1ean（布爾型）Long（長整型）Sing1e（單精度型）Doub1e（雙精度型）String（字符串型）Variant（變體型）用戶自定義類型例如：DimstriAsString,countryAsString*20DimiAsInteger,sumAsSingIe定義變量后,數(shù)值型變量的初值為0字符型變■的初值為空字符串其中：變長字符串的初值是長度為0定長字符串的初值的長度等于定義值。.變體類型變量如未定義類型的變量例如：DimsumAsVariantDimsumElsePrintk;"hasnotbefound.nEndIf2折半查詢折半查找也稱為二分法查詢只能對(duì)有序數(shù)列進(jìn)行查詢?！纠坑谜郯氩樵兎ú檎谊P(guān)鍵字值66。-123,-10,5,8,30,56,59,66,90,5180ptionBase1PrivateSubForm_C1ick()DimaAsVarianta=Array(-123,-10,5,8,30,56,59,66,90,518)n=UBound(a)Print”數(shù)組a中的10個(gè)數(shù)為：”ForEachiiInaPrintii;Mn;NextiiPrintk=Val(InputBox("輸入要查詢的數(shù)”))Print”要查詢的數(shù)是:"；kIOW=1hig=nfind=-1While1ow<=higAndfind=-1m=(low+hig)\2Ifk=a(m)Thenfind=1Printk;"hasbefound,on"；m；"thposition.nElseIfk<a(m)Thenhig=m-1Elselow=m+1EndIfEndIfWendIffind=-1ThenPrintk；”hasnotbefound.”EndIfEndSub注意:若數(shù)據(jù)按降序排列Ifk<a(m)Thenlow=m+1Elsehig=m-1EndIf【例】輸出前5名名次、運(yùn)動(dòng)員號(hào)和成績，并將結(jié)果寫入順序文獻(xiàn)。PrivateSubForm_Click()Open"stud.dat"ForOutputAs#1Dimno(lTo16)AsStringDima(1To16)AsSingleFori=1To16no(i)=InputBox("輸入運(yùn)動(dòng)員編號(hào)：")a(i)=Va1(InputBox("輸入運(yùn)動(dòng)員成績：”))NextiFori=ITo15k=iForj=i+1To16Ifa(k)>a(j)Thenk=jNextjt=no(i)no(i)=no(k)no(k)=tt=a(i)a(i)=a(k)a(k)=tEndIfNextiPrint"名次運(yùn)動(dòng)員編號(hào)運(yùn)動(dòng)員成績”Fori=1To5Printi,no(i),a(i)Write#l,izno(i)za(i)NextiEndSub函數(shù)過程的定義Function函數(shù)過程名（形參表）［As類型］函數(shù)過程名二表達(dá)式EndFunction說明：函數(shù)過程名有值，有類型，在過程體必須被賦值調(diào)用形式：函數(shù)過程名（實(shí)參表）子程序過程定義Sub子程序過程名（形參表）EndSub說明：子程序過程名無值,無類型調(diào)用形式：Call子程序過程名(實(shí)參表)【例】函數(shù)過程使用編寫函數(shù)過程計(jì)算n!PrivateSubCommandl_Click()n=Val(Text1.Text)Text2.Text=fact(n)EndSubFunctionfact(n)f=1Fori=1Tonf=f*iNextifact=fEndFunction【例】子程序過程計(jì)算n!PrivateSubCommandl_Click()n=Val(Textl.Text)Callfact(nzf)Text2.Text=fEndSubPrivateSubfact(n,f)f=1Fori=2Tonf=f*iNextiEndSub說明：由若干變?cè)?jì)算一個(gè)值用Funotion過程計(jì)算若干值，只能用Sub過程。7.3參數(shù)傳送1傳值方式將實(shí)參的值傳給形參，數(shù)據(jù)傳送方向?yàn)閱蜗?，形參的改變?duì)實(shí)參無影響。實(shí)參：常量、(變量)、或表達(dá)式形參:變量或?qū)崊?變量形參前加關(guān)鍵字ByVa1例:Subfact(ByValn)2傳址方式將實(shí)參的地址傳給形參，使實(shí)參和形參共用同一存儲(chǔ)單元。數(shù)據(jù)傳送方向?yàn)殡p向，形參的改變對(duì)實(shí)參有影響。實(shí)參：變量、數(shù)組名()形參：變量、數(shù)組名()或形參前加ByRef例：Subfact(ByRefn)VB默認(rèn)方式為傳址方式說明：從過程中，返回計(jì)算結(jié)果，必須采用傳址方式。PrivateSubForm_Click()n=100m=200Callabc(nzm)Printn,mEndSubPublicSubabc(ByVaix,y)t=xx=yy=tPrintx,yEndSub輸出：200100變量的作用域作用域指變量能被某一過程辨認(rèn)的范圍。.全局變量在標(biāo)準(zhǔn)模塊的通用段用Public聲明變量可在工程的所有模塊、所有過程中使用作用范圍為整個(gè)應(yīng)用程序。例如：PublicxAsInteger,yAsSingle.模塊級(jí)變量在窗體或標(biāo)準(zhǔn)模塊的通用段用Private或Dim聲明變量作用域：在聲明它的整個(gè)模塊的所有過程有效。例如：PrivatexAsInteger,yAsSingle或DimxAsInteger,yAsSingle.局部變量在過程中定義的變量作用域：為其所在的過程。隨過程的調(diào)用而分派存儲(chǔ)單元，過程執(zhí)行結(jié)束，所占用的存儲(chǔ)單元被釋放。靜態(tài)變量：用Static聲明的局部變量，在過程調(diào)用結(jié)束后保存值?！纠縿?dòng)態(tài)變量、靜態(tài)變量和模塊級(jí)變量的作用域。DimcAsIntegerPrivateSubForm_Click()a=1:b=2:c=3Print”a“，”b“，“cHFori=1To3CalltestNextiPrint”A",“B”,“CnPrinta,b,cEndSubSubtest()Staticaa=a+1b=b+1c=c+1Printa,b,cEndSub數(shù)據(jù)文收.順序文獻(xiàn)的打開格式：Open"文獻(xiàn)名"For＜方式＞As文獻(xiàn)號(hào)》方式：Output一順序?qū)懭敕绞絀nput—順序讀出方式，指定的文獻(xiàn)必須存在。Append—順序添加方式寫順序文獻(xiàn)語句(建立文獻(xiàn))格式:Write#文獻(xiàn)號(hào)，輸出項(xiàng)表功能：將輸出項(xiàng)表中的數(shù)據(jù)寫入順序文獻(xiàn)。說明：各項(xiàng)之間用逗號(hào)分隔。

【例】建立一個(gè)學(xué)生成績文獻(xiàn)pPrivateSubForm_Click（）DimnoAsLong,namAsStringDimscoreAsSingleOpen*d:\chengji1.dat*ForOutputAs#2no=InputBox（"輸入學(xué)號(hào):“）Whileno<>99999nam=InputBox$（"輸入學(xué)生姓名："）score=InputBox（"輸入學(xué)生成績：”）Write#2,no,nam,scoreno=InputBox（"輸入學(xué)號(hào):“）WendClose#2EndSub讀順序文獻(xiàn)語句Input#語句格式：Input#文獻(xiàn)號(hào)，變量表功能:從順序文獻(xiàn)中讀數(shù)據(jù)，賦給變量表中的變量。說明：變量表中的變量類型必須與文獻(xiàn)中數(shù)據(jù)項(xiàng)的類型一致【例】將學(xué)生成績文獻(xiàn)“chengjI1.dat”讀入內(nèi)存,在窗體上顯示出來。PPrivateSubForm_Click（）DimnoAsLong,namAsStringDimscoreAsSing1eOpenHd:\chengjil.datHForInputAs#2Prin學(xué)號(hào)"，"姓名"，"成績"WhileNotEof(2)Input#2,noznam,scorePrintno,nam,scoreWendC1ose#2EndSubLineInput#語句格式:LineInput#,字符串變量功能：從順序文獻(xiàn)中讀取一整行賦給一個(gè)字符串變量。說明：將以回車符為結(jié)束標(biāo)志的整行當(dāng)作一個(gè)字符串賦給一個(gè)字符串變量。常用相傳窗體設(shè)計(jì)稱窗體，運(yùn)營后稱窗口Print方法:在窗體輸出數(shù)據(jù)Show方法：顯示窗體。Click事件：鼠標(biāo)單擊窗體，調(diào)用窗體事件過程Form_Click()Load事件：執(zhí)行程序時(shí)自動(dòng)觸發(fā)Unload事件:關(guān)閉窗體時(shí)執(zhí)行文本框；Text屬性一一文本框中顯示的內(nèi)容，默認(rèn)值為Textl、……等。Tex11.Text=字符串或Textl=字符串Change事件：改變Text屬性時(shí)觸發(fā)GotFocus事件：獲得焦點(diǎn)時(shí)觸發(fā)SetFocus方法:設(shè)立焦點(diǎn),將光標(biāo)移到文本框運(yùn)算符與表達(dá)式.算術(shù)運(yùn)算符（8種）優(yōu)先級(jí)（從高到低）：指數(shù)（A）取負(fù)（一）乘法、浮點(diǎn)除法（*,/）整數(shù)除法（\）取模（Mod）加法、減法（+,~）o整除：被除數(shù)和除數(shù)為整數(shù)，結(jié)果為整數(shù)。7\5.8832\6結(jié)果為：5取模（求余）運(yùn)算:結(jié)果為整數(shù)除法的余數(shù)。31.77Mod5.88（四舍五入）32Mod6,余數(shù)為23Mod6余數(shù)為3字符串表達(dá)式字符串運(yùn)算符：&或+功能:把字符串連接成一個(gè)字符串。說明：（1）符號(hào)與字符串變量之間應(yīng)間隔一個(gè)空格,例如：str1&str2（2）能強(qiáng)制把其它類型的數(shù)據(jù)轉(zhuǎn)換為字符串，而“十”不能。例如：標(biāo)簽控件：Caption屬性一一標(biāo)簽中顯示文本,默認(rèn)值為LabelK命令按鈕：Caption屬性一一命令按鈕顯示的字符Enabled屬性一一設(shè)立命令按鈕是否為活動(dòng)狀態(tài)（True）Click事件：鼠標(biāo)單擊事件，調(diào)用命令按鈕事件過程Commandl_Click（）計(jì)時(shí)器控件：Interval屬性一一設(shè)立計(jì)時(shí)器事件之間的時(shí)間間隔Timer事件：當(dāng)達(dá)成Interval屬性規(guī)定的時(shí)間間隔時(shí)觸發(fā)該事件。單選按鈕：Caption屬性標(biāo)題，默認(rèn)值為Optionl、等。Value屬性是否為選中，選中（True）復(fù)選框：Caption屬性——標(biāo)題，默認(rèn)值為Check1、……等。Value屬性一一設(shè)立是否為選中，1（選中）列表框：List屬性一一用于列出列表框中的所有項(xiàng)目，是一個(gè)字符數(shù)組，，下標(biāo)從0開始。ListCount屬性一一返回在列表框中列表項(xiàng)數(shù)（序號(hào)從0開始,最后一項(xiàng)為ListCount-1）0Listindex屬性當(dāng)前選中的列表項(xiàng)的索引，第一項(xiàng)為0Text屬性一一得到當(dāng)前列表項(xiàng)的內(nèi)容控件數(shù)組由一組類型相同的控件組成Index屬性一一控件數(shù)組的下標(biāo)。PrivateSubCommand1_Click（IndexAsInteger）???IfIndex=3then…'解決第四個(gè)命令按鈕的操作EndIf???EndSub菜單編輯器重要屬性：Caption、Name、Index、Shortcut>Checked、Enabled、Visib1e2023&〃奧運(yùn)會(huì)"2023奧運(yùn)會(huì)2023”+〃奧運(yùn)會(huì)〃2023奧運(yùn)會(huì)注意:Print“123”+567結(jié)果：690Print"abcn+567犯錯(cuò)：類型不匹配常用內(nèi)部函數(shù)數(shù)學(xué)函數(shù)字符串函數(shù)函數(shù)功能Abs(x)返回x的絕對(duì)值Int(x)求不大于X的最大整數(shù)Int(7.8)結(jié)果為7,Int(-7.8)結(jié)果為-8Cint(x)把X小數(shù)四舍五入，轉(zhuǎn)換為整數(shù)，Exp(x)計(jì)算e;e是自然數(shù)2.718281Log(x)求X的自然對(duì)數(shù)Sqr(x)求X的平方根Rnd返回0~1之間的隨機(jī)數(shù)：說明:Len(str)返回字符串長度Left$(str,n)取字符串左邊n個(gè)字符Right$(str,n)取字符串右邊n個(gè)字符Mid$(str,