課件第8講講稿

DimxAs x=1Callxy= x,yEndSubPublicSubAA(ByValaAsa=a+1EndDimxAs x=1Callxy= x,yEndSubPublicSubAA(ByValaAsa=a+1EndPublicFunctionBB(ByRefbAsb=b+1BB=b+End知道用VB編寫應(yīng)用程序，首先要建立一個工程。一個工程又可以包括很多模塊。件驅(qū)動來激發(fā)的，要么是通過過程調(diào)用來激發(fā)?！纠?】在這個例子中，同一個窗體模塊 用呢2EndSubPrivateSubDim on=InputBox("請輸入一個整數(shù)","求平方根") EndPrivateEnd<限定詞Function函數(shù)名([形參列表As<類型End<限定詞Sub子過程名([形參列表EndSubPrivateEnd<限定詞Function函數(shù)名([形參列表As<類型End<限定詞Sub子過程名([形參列表EndSub 稱當過程前的限定詞為Dima%,aInputBox("請輸入第一個數(shù)：a")bInputBox("請輸入第二個數(shù)："初始值：aa"bCallswap(a, "交換后：aa"bbEndSubPublicSubswap(x%,y%)DimT%T=xx=yy=EndForm1Dima%,aInputBox("請輸入第一個數(shù)：bInputBox("請輸入第二個數(shù)："初始值：aa"bbInputBox("請輸入第二個數(shù)："初始值：aa"bCallswap(a, "交換后：aa"bbEndSubEndSubForm2Dimp%,q%,pInputBox("請輸入第一個數(shù)："p")qInputBox("請輸入第二個數(shù)："初始值：p=p,"qCallswap(p, "交換后：p=p,"qqEndSubPublicSubswap(x%,y%)DimT%T=xx=yy=EndswapPrivateForm1Form2swapForm1PublicForm1Form2調(diào)用？Dim說限定詞可以是 型的初始值為空，即Empty局部變量的概念：用Dim或 ic在過程DimDim說限定詞可以是 型的初始值為空，即Empty局部變量的概念：用Dim或 ic在過程Dimnn=EndSubPrivatenDimnAsn=20 End如果用Dim在過程 。如果是以 ic在過程Dimnn=n+EndSubPrivatenSicnn=n+EndnPrivateDim在模塊內(nèi)的“n=n+EndSubPrivatenSicnn=n+EndnPrivateDim在模塊內(nèi)的“PrivateDimPrivatePublicPrivateZSubS(Z=Z+EndZZ=Z+CallEndZ再添加一個Form模塊 Public在模塊內(nèi)的“通用Publici%,j%,i=i+1j=j+ i;j;EndPrivatek=k+3 i;j;kEnd思考：PublicijPublicijForm2例：有一個人編了下面一段程序，想思考：PublicijPublicijForm2例：有一個人編了下面一段程序，想用變量d1Dimnn=n+ "已單擊次數(shù)：n&次Endn在不同的作用域 DimXAsX=2Y=Z=X+CallEndSubSubS(DimXAsX=1Y=Z=X+End如果發(fā)生作用 PrivateiSisi=i+EndSubPrivateSubEndiisSisForm1.i=Form1.i+EndSubPrivateSubPrivateiSisi=i+EndSubPrivateSubEndiisSisForm1.i=Form1.i+EndSubPrivateSubEndSubiiPrivatex%,y%,PrivateSubForm_click(DimxasCallEndPublicSubAA(byvalz%)EndSubPublicFunctionBB(y%)Endfunction－保存：寫到外存（硬盤文件的分（一項數(shù)據(jù)(一) －保存：寫到外存（硬盤文件的分（一項數(shù)據(jù)(一) 模式 [#]文件號（1）Output：寫操作(寫是從內(nèi)存到外存長度Input：讀操Append：追加到文件末例如Open“C:\TEMP\A.TXT”ForInputAs#1Open“C:\TEMP\B.TXT”ForOutputAs#2Open“C:\TEMP\C.TXT”ForAppendAs#3Append2、關(guān)閉文件—Close(3種類型文件都適用Close文件號列表例如Close#1,#2,#32、關(guān)閉文件—Close(3種類型文件都適用Close文件號列表例如Close#1,#2,#31#文件號，[輸出列表](格式同以前（2）Write#文件號，[輸出列表](緊湊格式。數(shù)據(jù)項之間“,”，并給字符數(shù)據(jù)加上雙Open"d:\ww.txt"ForOutputAsWrite#1,Write#1,",89,88,9998 #1,",79;78;CloseEndOpen"d:\abc.txt"ForOutputAsWrite#1,Write#1,Write#1,Close#1EndSub",38,",35,",37,寫入數(shù)據(jù)一般都使用Write語句，而中的數(shù)據(jù)項2 語句，因為Write語句能更好地區(qū)DimsAsString,a%,Open"d:\abc.txt"ForInputAsInput#1,s,a,b:PrInput#1,s,a,b:Input#1,s,a,s;a;s;a;s;a;Close#1EndSubInput（2）Line DimsAsOpen"d:\abc.txt"ForInputAs（2）Line DimsAsOpen"d:\abc.txt"ForInputAsLineInput#1,s:PrLineInput#1,s:LineInput#1,sssClose#1EndSubLineInputInput(n,[#]文件號):nDimsAsOpen"d:\ww.txt"ForInputAs#1s=Input$(LOF(1),#1)CloseEndsEOF(文件號)EOFTrueFalse。EOF函數(shù)在循環(huán)體中的應(yīng)用：DimsAsOpen"d:\abc.txt"ForInputAs#1DoWhileNotEOF(1)s=s&Input(1,#1)CloseEnds假定文本框名稱為txtTest，文件名為MYFILE.TXTtxtTest.Text＝Open"MYFILE.TXT"ForInputAs#1DoWhileNotEOF(1)LineInput#1,txtTest.Text＝txtTest.Text+InputData+vbCrLfClose讀txtTest.Text讀tx