vb程序設(shè)計(jì)教程課后答案與實(shí)驗(yàn)題答案

1、習(xí)題一答案在教材上找。1. 習(xí)題二對(duì)象指現(xiàn)實(shí)世界中的實(shí)體。每個(gè)對(duì)象有自己的特征倔性）、行為（方法）和發(fā)生在該對(duì)象上的活動(dòng)（事件）。類是對(duì)同一種對(duì)象的集合與抽象。類包含所創(chuàng)建對(duì)象的屆性數(shù)據(jù)，以及對(duì)這些數(shù)據(jù)進(jìn)行操作的方法。封裝和隱藏是類的重要特性，將數(shù)據(jù)結(jié)構(gòu)和對(duì)數(shù)據(jù)的操作封裝在一起，類的內(nèi)部實(shí)現(xiàn)細(xì)節(jié)對(duì)用戶來說是透明的。VB工具箱中的可視圖標(biāo)是VB系統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類。通過將控件類實(shí)例化，得到真正的控件對(duì)象。在窗體上畫一個(gè)控件，就將類轉(zhuǎn)換為對(duì)象，創(chuàng)建了一個(gè)控件對(duì)象。VB中常用的對(duì)象是控件。此外，VB還提供了系統(tǒng)對(duì)象。窗體是個(gè)特例，它既是類也是對(duì)象。當(dāng)向一個(gè)工程添加一個(gè)新窗體時(shí)，實(shí)質(zhì)就由窗體類創(chuàng)建了

2、一個(gè)窗體對(duì)象。對(duì)象的三要素：屆性、事件和方法。屆性：存放對(duì)象的數(shù)據(jù)（決定對(duì)象外觀及功能）對(duì)象屆性的設(shè)置方法：在設(shè)計(jì)階段,利用屆性窗口直接設(shè)置屆性值；程序運(yùn)行時(shí)，通過語句對(duì)象名.屆性名=屆性值。若屆性只能在設(shè)計(jì)階段設(shè)置，在程序運(yùn)行階段不可改變，稱為只讀屆性。事件：發(fā)生在對(duì)象上的事情。同一事件，對(duì)不同的對(duì)象，會(huì)引發(fā)不同的反應(yīng)。事件過程：應(yīng)用程序處理事件的步驟。應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫事件過程的代碼。方法：面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，為程序設(shè)計(jì)人員提供了一種特殊的過程和函數(shù)。方法是面向?qū)ο蟮?，調(diào)用時(shí)一定要指明對(duì)象。窗體和控件具有的基本屆性“（1）Name屆性：名稱所創(chuàng)建的對(duì)象名稱，在程序中引

3、用。Caption屆性：標(biāo)題該屆性決定了對(duì)象上顯示的內(nèi)容。Height>Width、Top和Left屆性決定對(duì)象的大小和位置。（4）Enabled屆性：對(duì)象是否允許操作Visible屆性：對(duì)象是否可見Font屆性組：文本的外觀FontName字體、FontSize大小FontBold粗體、FontItalic斜體FontStrikethru刪除線FontUnderline下劃線ForeColor屆性：前景顏色（8）BackColor屆性：背景顏色MousePointer屆性：鼠標(biāo)指針類型，設(shè)置值范圍015,由系統(tǒng)指定，若為99,由用戶提供的圖形文件定義鼠標(biāo)指針形狀。(10) Mousei

4、con屆性：在MousePointer屆性值為99時(shí)，存放自定義的鼠標(biāo)圖標(biāo)文件(.ico或.cur)。圖標(biāo)庫在Graphics目錄下。2. 窗體的事件：Load事件是在窗體被裝入工作區(qū)時(shí)觸發(fā)的事件。當(dāng)應(yīng)用程序啟動(dòng)，自動(dòng)執(zhí)行該事件，該事件通常用來在啟動(dòng)應(yīng)用程序時(shí)對(duì)屆性和變量進(jìn)行初始化。窗體的方法：(1)Print方法用來顯示文本內(nèi)容，格式：對(duì)象.print表達(dá)式Cls方法活除運(yùn)行時(shí)在窗體或圖形框中產(chǎn)生的文本或圖形，Cls方法不能活除窗體在設(shè)計(jì)時(shí)的文本和圖形。格式：對(duì)象.clsMove方法可移動(dòng)窗體或控件，并可改變其大小。語法格式如下：3. 對(duì)象.Move左邊距離，上邊距離，寬度，高度標(biāo)簽作用：用

5、于顯示文本(輸出)信息，不能作為輸入信息的界面。其內(nèi)容只能通過Caption屆性設(shè)置或修改，不能直接編輯。4. 文本框是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容。在VB中字符長度以字為單位，也就是一個(gè)西文字符與一個(gè)漢字都是一個(gè)字，長度為1。重要屆性(1)Text顯示或輸入的正文內(nèi)容。Maxlength設(shè)置文本框可輸入的文字最大長度。默認(rèn)值為0,表示可以輸入任意長字符申。MultiLine多行屆性設(shè)置為True時(shí)，文本框可以輸入或顯示多行正文，同時(shí)具有文字處理器的自動(dòng)換行功能，按Enter鍵可插入一空行。ScrollBars滾動(dòng)條屆性0-None無滾動(dòng)條1- Horizont

6、al水平滾動(dòng)條2- Vertical垂直滾動(dòng)條Both同時(shí)加水平和垂直滾動(dòng)條注意：當(dāng)MultiLine為True時(shí)，ScrollBars才有效PassWordChar設(shè)置顯示文本的替代符。例如，當(dāng)設(shè)置為“：”則在文本框輸入的內(nèi)容均以“顯示，而存儲(chǔ)的值是用戶輸入的原文。一般用于設(shè)置口令的輸入。當(dāng)MultiLine為True時(shí)，該屆性不起作用，密碼不允許多行。Locked指定文本控件是否可被編輯，默認(rèn)值為False(可編輯)，當(dāng)設(shè)置為True時(shí)，文本控件相當(dāng)于標(biāo)簽控件的作用。注意：Locked與Enabled的區(qū)別。內(nèi)本內(nèi)容進(jìn)行選擇操作的三個(gè)屆性SelStart選定的正文開始位置SelLength

7、選定的正文長度SelText選定的正文內(nèi)容這3個(gè)屆性互相關(guān)聯(lián)，例如設(shè)置SelStart、SelLength后，SelText自動(dòng)存放指定的文本。注意：屆性窗口中沒有這三個(gè)屆性，只能在程序代碼中使用。5. 文本框的事件：(1)Change事件：當(dāng)Text屆性值發(fā)生改變時(shí)引發(fā)該事件KeyPress事件：按下并且釋放鍵盤上的一個(gè)鍵時(shí)，引發(fā)焦點(diǎn)所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中。對(duì)回車的判斷KeyAscii=13文本框最有用的方法是SetFocus,把光標(biāo)移到指定的文本框中。6. 命令按鈕Picture屆性：按鈕可顯示圖片文件(.bmp和.Ico)，當(dāng)Style為1

8、時(shí)有效。10.啟動(dòng)窗體時(shí)將命令按鈕定位在窗體中央的代碼PrivateSubForm_Load()Command1.Left=Form1.ScaleWidth/2-Command1.Width/2Command1.Top=Form1.ScaleHeight/2-Command1.Height/2EndSub11.vb圖片文件在C:ProgramFilesMicrosoftVisualStudioCommonGraphics文件夾。安裝VB時(shí)可選擇是否安裝這些圖片文件。1. 習(xí)題三合法常量：2. Double錯(cuò)誤DoubleDouble錯(cuò)誤(6)IntegerStringStringDateDou

9、ble錯(cuò)誤(漢字字符)Integer(八進(jìn)制)錯(cuò)誤(八進(jìn)制無數(shù)碼8)IntegerBoolean錯(cuò)誤錯(cuò)誤(十六進(jìn)制無數(shù)碼g)Single說明：浮點(diǎn)型變量默認(rèn)為Double類型而非Single合法變量名：v(3)誤：數(shù)字開頭誤：含空格誤：關(guān)鍵字V誤：關(guān)鍵字(8)誤：有括號(hào)VVV漢字字符可作為變量名，但不常用，且此名稱易誤解)變量命名規(guī)則見P.41-420字母(漢字)開頭，字母(漢字)、數(shù)字、下劃線組成，長度為1-255個(gè)字符;關(guān)鍵字不可作為變量名，但可在變量名中嵌入關(guān)鍵字；不區(qū)分大小寫。常量、數(shù)組、類型、函數(shù)、過程、對(duì)象命名規(guī)則與此相同。常量名通常全用大寫。寫VB表達(dá)式Abs(x+y)+zA5(

10、1+x*y)a6(10*x+Sqr(3*y)/(x*y)(-b+Sqr(ba2-4*a*c)/(2*a)1/(1/r1+1/r2+1/r3)Sin(45*3.14159/180)+(Exp(10)+Log(10)/Sqr(x+y+1)根據(jù)條件寫表達(dá)式隨機(jī)產(chǎn)生大寫字母Chr(Int(Rnd*(Asc("L")-Asc("C")+1)+Asc("C")100,200內(nèi)的隨機(jī)數(shù)Int(Rnd*101)+100點(diǎn)(x,y)位于第一或第三象限x>0Andy>0Orx<0Andy<0或x5y>0x是5或7的整數(shù)倍xM

11、od5=0OrInt(x/7)=x/7將兩位整數(shù)x的個(gè)位與十位對(duì)換x10+(xMod10)*10四舍五入取兩位小數(shù)Round(x,2)字符變量C是字母字符(不區(qū)分大小寫)一一準(zhǔn)確地說是：字符變量C的第一個(gè)字符是字母C>="A"AndC<="Z"OrC>="a"AndC<"z"或UCase(C)>="A"AndUCase(C)<="Z"或LCase(C)>="a"AndLCase(C)<="z&quo

12、t;字符變量S第5個(gè)字符起取6個(gè)字符Mid(S,5,6)10y2010<=xAndx<20(10)x,y至少有一個(gè)小于zx<zOry<zx,y都大于zx>zAndy>z寫表達(dá)式的值188注意運(yùn)算的優(yōu)先級(jí)順序，以及整除運(yùn)算邛勺計(jì)算200100計(jì)算100+"100"時(shí)，由于兩個(gè)操作數(shù)類型不同，在可能的情況下自動(dòng)采用精度較高的類型，即把字符型轉(zhuǎn)換為數(shù)值型，100+100得到200;然后進(jìn)行字符申連接運(yùn)算200&100,再自動(dòng)將兩個(gè)數(shù)值轉(zhuǎn)換為字符申，得200100。68.56在四舍五入函數(shù)產(chǎn)生之前，這就是四舍五入的計(jì)算方法876554先進(jìn)

13、行字符申的“褪算，再轉(zhuǎn)換成數(shù)值。在變量名和函數(shù)名后可加上類型符，以強(qiáng)調(diào)其類型，但不是必須的。2000-2-296Shell函數(shù)調(diào)用i=Shell("mspaint.exe",1)'啟動(dòng)畫圖i=Shell("C:ProgramFilesMicrosoftOfficeOFFICE11winword.exe",1)'啟動(dòng)Word說明：畫圖”是Windows本身提供的程序，可以省略路徑。8.答：單精度浮點(diǎn)型第7,9題答案在教材中找。習(xí)題四第1,3,5,8題答案在教材中找。2. 賦值語句的錯(cuò)誤(1) 10x不能做變量名。上機(jī)驗(yàn)證結(jié)果：VB將10識(shí)別

14、為行號(hào),x=Sin(x)+y是為變量x賦值。故無語法錯(cuò)誤。(2) Sqr函數(shù)的參數(shù)為負(fù)數(shù)。上機(jī)驗(yàn)證結(jié)果：無效的過程調(diào)用或參數(shù)"(3) 賦值號(hào)左邊不是變量名。上機(jī)驗(yàn)證結(jié)果：缺少子程序、函數(shù)或?qū)眯?4) 除數(shù)為0上機(jī)驗(yàn)證結(jié)果：溢出”。4.答案略說明：小數(shù)位可以使用四舍五入函數(shù)Round或輸出格式函數(shù)Format0例如Round(x,2)和Format(x,“0.00可使結(jié)果只保留兩位小數(shù)。但如果四舍五入后要進(jìn)行數(shù)值運(yùn)算，則使*Round函數(shù)，例如z=Round(x,2)+Round(y,2)。而Format函數(shù)通常只用于輸出格式設(shè)置。6.指出錯(cuò)誤(1) “如為“>=；'前者

15、是中文字符，不具有運(yùn)算功能。3. “10<x<2O改為“10<xAndx<20；'否則運(yùn)行結(jié)果錯(cuò)誤寫條件語句(1)DimcAsStringc=InputBox("c=")IfMid(c,3,1)="C"ThenMsgBox"Yes"ElseMsgBox"No”EndIf2)#使用If語句DimxAsSingle,yAsSinglex=Val(InputBox("x=")Ifx>20Theny=xA2+3*x+2Elselfx>=10Theny=Sqr(3*x)-

16、2Elselfx>0Theny=1/x+Abs(x)EndIfPrint"y="y#使用SelectCase語句DimxAsSingle,yAsSinglex=Val(InputBox("x=")SelectCasexCaseIs>20y=xa2+3*x+2CaseIs>=10y=Sqr(3*x)-2CaseIs>0y=1/x+Abs(x)EndSelectPrint"y="y7. (3)#使用If語句DimxAsSingle,yAsSingle,zAsSingle,MaxAsSinglex=Val(Input

17、Box("x=")y=Val(InputBox("y=")z=Val(InputBox("z=")Max=xIfy>MaxThenMax=yIfz>MaxThenMax=zPrint"Max="Max#使用IIF函數(shù)x=Val(InputBox("x=")y=Val(InputBox("y=")z=Val(InputBox("z=")Max=IIf(x>y,x,y)Max=IIf(z>Max,z,Max)Print"Max

18、="Max計(jì)算循環(huán)次數(shù)(1) 6(2) 19(3) 08. 死循環(huán)直至溢出40號(hào)語句執(zhí)行4次；第50號(hào)語句執(zhí)行12次；執(zhí)行第90號(hào)語句輸出的結(jié)果是：13,0,2說明：該程序?yàn)榍短籽h(huán)，其中外循環(huán)由j值變化(1,4,7,10)控制執(zhí)行4次，當(dāng)j值為13時(shí)結(jié)束循環(huán)；內(nèi)循環(huán)由k值變化(6,4,2)控制執(zhí)行3次，當(dāng)k值為0時(shí)結(jié)束循環(huán)。第40行是外循環(huán)的循環(huán)體，故執(zhí)行4次；第50行是內(nèi)循環(huán)的循環(huán)體，故執(zhí)行4*3=12次。9. 可以定一個(gè)較大的循環(huán)次數(shù)，在循環(huán)體中根據(jù)條件用ExitFor退出但這種情況通常用DoWhile循環(huán)控制。10. 編程(并非唯一正確答案)(1)DimiAsInteger,

19、sAsIntegerFori=1To10s=s+(i+1)*(2*i+1)NextiPrint"s="s(2)DimiAsInteger,n3AsInteger,n7AsIntegerFori=1To100IfiMod3=0Thenn3=n3+1IfInt(i/7)=i/7Thenn7=n7+1NextiPrint"1-100中3的倍數(shù)有”；n3;"個(gè)"Print"1-100中7的倍數(shù)有"；n7;"個(gè)"(3)Dims1AsString,s2AsString,iAsIntegers1=InputBox(&q

20、uot;InputString")s2=""Fori=1ToLen(s1)s2=Mid(s1,i,1)+s2NextiPrint"原序："s1Print”反序："；s2或Fori=Len(s1)To1Step-111. s2=s2+Mid(s1,i,1)Nexti輸出字符申“10100；該程序功能是將十進(jìn)制數(shù)轉(zhuǎn)化為二進(jìn)制。說明：要理解該程序需要了解數(shù)制轉(zhuǎn)換的計(jì)算方法（有興趣者參看白度白科）48是字符"0"的ASCII碼。12. 運(yùn)行時(shí)輸出22484該程序功能是求x和y最大公約數(shù)和最小公倍數(shù)。說明：此算法稱為輾轉(zhuǎn)相減

21、法”?？蓪?duì)照例4.17的輾轉(zhuǎn)相除（輾轉(zhuǎn)求余）法15.50,100問的20個(gè)隨機(jī)數(shù)，求最大值、最小值、平均值。DimxAsInteger,sumAsInteger,averAsSingleDimn%,i%,max%,min%Randomizemax=50:min=100:n=20Fori=1Tonx=Int(Rnd*51+50)Listl.AddItemxsum=sum+xIfx>maxThenmax=x1. Ifx<minThenmin=xNextiaver=sum/nPrint"最大值："；max,"最小值："；min,"平均值：

22、"；aver習(xí)題五指定數(shù)組的默認(rèn)下界OptionBase1合理的數(shù)組聲明(1) 錯(cuò)。定義數(shù)組不可用變量(教材99頁)。(2) 正確。該數(shù)組下標(biāo)為0-11。(3) 錯(cuò)。VB中數(shù)組下標(biāo)用圓括號(hào)。(4) 正確。三維數(shù)組三個(gè)下標(biāo)分別為0-1,0-1,0-2，共12個(gè)元素。(5) 錯(cuò)誤。非動(dòng)態(tài)數(shù)組，不可重定義。(6) 錯(cuò)誤。動(dòng)態(tài)數(shù)組重定義時(shí)不可改變數(shù)據(jù)類型。(7) 正確。二維數(shù)組兩個(gè)下標(biāo)分別為0-2,0-3,共12個(gè)元素。(8) 語法錯(cuò)誤，二維數(shù)組定義中漏寫逗號(hào)一一可能是印刷錯(cuò)誤，加上此逗號(hào)則正確。2. 當(dāng)引用數(shù)組元素時(shí)下標(biāo)值小于定義的最小下標(biāo)，或大于最大下標(biāo)時(shí)，會(huì)發(fā)生下標(biāo)越界”錯(cuò)誤。數(shù)組名：

23、a;數(shù)組類型：Single(單精度浮點(diǎn)型)；維數(shù)：二維；各維的上下界：第一維下界(最小下標(biāo))為-1,上界(最大下標(biāo))為2,第二維下界(最小下標(biāo))為0,上界(最大下標(biāo))為3;數(shù)組的大?。?行4列共16個(gè)元素以矩陣的格式輸出二維數(shù)組：Fori=-1To2Forj=0To3Printa(i,j);NextjPrintNexti或?qū)懗筛油ㄓ玫拇a形式：Fori=LBound(a,1)ToUBound(a,1)Forj=LBound(a,2)ToUBound(a,2)PrintTab(j*8);a(i,j);NextjPrintNexti6.一維字符數(shù)組Dima(1To20)AsStringPriva

24、teSubCommand1_Click()'(1)隨機(jī)產(chǎn)生字符申DimiAsInteger,jAsInteger,nAsInteger,cAsString*1RandomizeFori=1To20a(i)=""將第i個(gè)元素活空n=Int(Rnd*10+1)'產(chǎn)生1,10的隨機(jī)數(shù)Forj=1Ton'a(i)中有n個(gè)字符c=Chr(Int(Rnd*26+97)'隨機(jī)產(chǎn)生字母97是字母a的ASCII碼a(i)=a(i)+cNextjNextiEndSubPrivateSubCommand2_Click()'(2)輸出字符申DimiAsInt

25、egerFori=1To20PrintTab(i-1)Mod5)*11);a(i);IfiMod5=0ThenPrintNextiEndSubPrivateSubCommand3_Click()'(3)最長的字符申DimiAsInteger,imaxAsIntegerimax=1Fori=2To20IfLen(a(i)>Len(a(imax)Thenimax=iEndIfNextiPrint”最長的字符申："a(imax)EndSub第7,8題答案在教材中找第9題自定義變量”含義不明，暫時(shí)無法回答第5,10題暫略習(xí)題六第1,2,6-8題答案可在教材中找到。3 .指出過程

26、說明中的錯(cuò)誤(1) Sub子過程不應(yīng)該定義類型(2) 函數(shù)與形式參數(shù)不應(yīng)該同名(3) 數(shù)組作為形式參數(shù)時(shí)，應(yīng)使用傳地址方式，不可使用傳值(ByVal)4 形式參數(shù)應(yīng)該是變量或數(shù)組名，不可以是一個(gè)數(shù)組元素.指出調(diào)用過程語句的錯(cuò)誤(1) 無語法錯(cuò)誤，但因形參sum所對(duì)應(yīng)的實(shí)參是常量3,故計(jì)算結(jié)果無法傳遞給主調(diào)程序。(2) 實(shí)參變量c與形參sum的類型不一致。(3) 類似于(1),形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式a+b,故計(jì)算結(jié)果無法傳遞給主調(diào)程序。(4) 類似于(1)和(2)，形參sum所對(duì)應(yīng)的實(shí)參是表達(dá)式Sqr(c),故計(jì)算結(jié)果無法傳遞給主調(diào)程序。另外srq(a)存在語法錯(cuò)誤(拼寫錯(cuò))。(5) 與

27、(2)相同，實(shí)參c與形參sum的類型不一致。3. 迭代法求平方根自定義函數(shù)的定義及調(diào)用FunctionFSqr1(aAsSingle)AsSingleDimx0AsSingle,xAsSinglex=aDox0=xx=(x0+a/x0)/2LoopWhileAbs(x-x0)>0.00001FSqr1=xEndFunctionPrivateSubCommand1_Click()Dimx!,y!x=Val(InputBox("x=")Ifx>=0Theny=FSqr1(x)PrintyEndIfEndSub自定義子過程的定義及調(diào)用SubFSqr2(aAsSingl

28、e,xAsSingle)Dimx0AsSinglex=aDox0=xx=(x0+a/x0)/2LoopWhileAbs(x-x0)>0.00001EndSubPrivateSubCommand2_Click()Dimx!,y!x=Val(InputBox("x=")Ifx>=0ThenCallFSqr2(x,y)PrintyEndIfEndSub遞歸函數(shù)及調(diào)用略習(xí)題七第1-9題，答案在教材上找；第10,12-14題，略。11.檢測(cè)Ctrl和F3同時(shí)按下的代碼：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInte

29、ger)IfShift=2AndKeyCode=114ThenMsgBox"HAHA"EndSub習(xí)題八第1,2,6,7,9題答案可閱讀教材找到。3.寫Open語句(1) Open"Seqnew.dat"ForOutputAs#1'重寫或Open"Seqnew.dat"ForAppendAs#1'添加(2) Open"Seqold.dat"ForInputAs#2Open"Seqappend.dat"ForAppendAsFreeFile4.編程，將文件Text.dat讀入變量s

30、trTest。DimstrTestAsStringOpen"Text.dat"ForInputAs#2DoWhileNotEOF(2)strTest=strTest+Input(1,#2)4. Loop本課程不涉及二進(jìn)制文件。故此處以順序文件讀寫方式編程。另外合并的結(jié)果可以是合并到其中某一個(gè)文件，也可以是合并到一個(gè)新的文件，此處代碼是合并到其中一個(gè)文件F1.txto'方法一，在2號(hào)文件一次讀一個(gè)字符并寫入1號(hào)文件DimstrTempAsString*1Open"d:F1.txt"ForAppendAs#1Open"d:F2.txt&qu

31、ot;ForInputAs#2DoWhileNotEOF(2)strTemp=Input(1,#2)Print#1,strTemp;'注意結(jié)尾有分號(hào)，否則每個(gè)字符一行LoopClose'方法二，在2號(hào)文件一次讀一個(gè)字符并累加，最后將累加結(jié)果寫入1號(hào)文件DimstrTempAsString'注意方法一變量定義的區(qū)別Open"d:F1.txt"ForAppendAs#1Open"d:F2.txt"ForInputAs#2strTemp=""DoWhileNotEOF(2)strTemp=strTemp+Input(

32、1,#2)LoopPrint#1,strTempClose習(xí)題九答案在教材上找。習(xí)題十答案在教材上找PrivateSubCommand1_Click()Label3=Text1EndSubA.2PrivateSubForm_Load()Timer1.Interval=0EndSubPrivateSubCommand1_Click()'自動(dòng)Timer1.Interval=200EndSubPrivateSubCommand2_Click()'手動(dòng)Timer1.Interval=0CallMyMoveEndSubPrivateSubTimer1_Timer()CallMyMoveE

33、ndSubSubMyMove()Label1.MoveLabel1.Left-50IfLabel1.Left<0ThenLabel1.Left=Form1.WidthEndSub3PrivateSubForm_Click()Text1=Val(Text1)+1EndSubPrivateSubForm_Load()Text1=0EndSubA.4PrivateSubForm_Click()Caption="單擊窗體，改變圖片"Picture=LoadPicture(App.Path+"n_015.bmp")Print”歡迎使用VB"EndS

34、ubPrivateSubForm_DblClick()ClsCaption="雙擊窗體，卸去圖片"Picture=LoadPicture("")'EndSubPrivateSubForm_Load()Caption="裝入窗體"Picture=LoadPicture(App.Path+"n_016.bmp")Print”裝入圖”EndSubPrivateSubForm_Resize()'該事件的作用窗體始終與圖一樣大'Caption="窗體大小不變"'Form1.

35、Width=260*16'260是Tongji-2.bmp圖的寬度，象素單位'Form1.Height=260*16+200'260是圖的高度，象素單位，200是窗體的標(biāo)題欄高度EndSub5SubCommand1_Click()Text1.FontName="隸書"Text1.FontSize=25EndSubSubCommand2_Click()Text2.Text=Text1.SelTextText2.FontName=Text1.FontNameText2.FontSize=Text1.FontSizeEndSub1PrivateSubCom

36、mand1_Click()Text2=Format(5/9*(Val(Textl)-32),"0.00")EndSubPrivateSubCommand2_Click()Textl=Format(9/5*Val(Text2)+32,"0.00")EndSub或PrivateSubCommand1_Click()Dimf!,c!'聲明兩個(gè)變量f=Val(Textl)c=5/9*(f-32)Text2=Format(c,"0.00")'保留兩位小數(shù)EndSubPrivateSubCommand2_Click()Dimff!

37、,cc!'聲明兩個(gè)變量cc=Val(Text2)ff=9/5*cc+32Textl=Format(ff,"0.00")'保留兩位小數(shù)EndSubPrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,”0.00”)EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_LostFocus()IfNotIsNumeric(Text1.T

38、ext)ThenMsgBox"輸入有非數(shù)字字符，請(qǐng)重新輸入",'Text1.Text=""Text1.SetFocusEndIfEndSub或PrivateSubCommand1_Click()Label2=Format(Val(Text1)*Val(Text1)*3.14,"0.00")EndSubPrivateSubCommand2_Click()Label3=Format(Val(Text1)*3.14*2,"0.00")EndSubPrivateSubText1_KeyPress(KeyAsciiA

39、sInteger)IfKeyAscii=13ThenIfNotIsNumeric(Text1.Text)ThenText1.Text=""EndIfEndIfEndSub3PrivateSubCommand1_Click()n=Int(Log/Log(1.008)+1)Label1=n&"年后人數(shù)超過26億"EndSub4PrivateSubCommand1_Click()Dimx,dx,cdx=Text1.Textdx=UCase(x)cd=Len(x)Print”大寫字母為:"dxPrint”字符串長度為:"cdEndSu

40、bPrivateSubCommand1_Click()Textl=Int(Rnd*900+100)EndSubPrivateSubCommand2_Click()Dimx%,x1%,x2%,x3%x=Val(Textl)'分離出的個(gè)位數(shù)分離出的十位數(shù)分離出的百位數(shù)x1=xMod10x2=(xMod100)10x3=x100Label1=x1*100+x2*10+x3EndSub6PrivateSubForm_Click()Label1=Left(Text1,11)Label2=Mid(Text1,12,6)Label3=Right(Text1,5)EndSub7PrivateSubCo

41、mmand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"");Spc(18-4*(i-1);String(2*i-1,"")NextiEndSubPrivateSubCommand2_Click()ClsEndSub進(jìn)一步要求：PrivateSubCommand1_Click()PrintFori=1To5PrintTab(15-i*2);String(2*i-1,"");String(10-(2*i-1),"");String(2*i-1,"

42、")NextiEndSubPrivateSubCommand2_Click()ClsEndSubPrivateSubForm_Click()x=Val(InputBox("輸入一正實(shí)數(shù)","計(jì)算",0)pfHFormafx*x=oboo=)pfgnFormaf(sqr(x)=oooo=)-fHFormafx*x*x=oooo=)_fgHFormaf(x>(1f3)=。0。=)prm=書混迷:=pfspace(5)-書混姑迷:=pfgspace(5)-la:=_espace(5)=葉混蒲*_fgEndSubCLprivaQSubFormlc

43、=ck()Dim><-y一XHva_(-npu65ox(=s>x3曲-)_fxA1。0ThenyuxE-se-fxA2000ThenyH0.9*xE-se-fxA3000Thenyu0.8*xE_seyHP7*xEnd_fprin»-yEndSub0-2pnvaCDSubFormlc=ck()DimxLy-xnva-(-npu5ox(=>k3耳畫=)-fx人10Thenyn3。E-se-fx人50Thenyn30+2.5*(x，1。)E_seyn30+2.5*40+2*(x，5。)End_f-fyV150Thenyn15。End_fPrinfyEndSubc3

44、pnvaCDSubCommandlc=ck()DimxLyLNx=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x;""y;""zIfx<yThent=x:x=y:y=tIfx<zThent=x:x=z:z=tIfy<zThent=y:y=z:z=tPrint"排序后"&x&"&quo

45、t;&y&""&zEndSubPrivateSubCommand2_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Print"排序前"x;""y;"”;zIfx<yThent=x:x=y:y=tIfy<zThent=y:y=z:z=tIfx<yThent=x:x=y:y=tEn

46、dIfEndIfPrint"排序后"&x&""&y&""&zEndSub4Dima(3)AsIntegerPrivateSubCommand1_Click()Picturel.ClsFori=0To2a(i)=Int(Rnd*100+200)Picture1.Printa(i)NextiEndSubPrivateSubCommand2_Click()Picture2.ClsDimzAsIntegerFori=0To1Ifa(i)>a(i+1)Thenz=a(i+1)a(i+1)=a(i)a

47、(i)=zEndIfNextiPicture2.Printa(0)Picture2.Printa(1)Picture2.Printa(2)EndSub5PrivateSubText2_LostFocus()Dimm%,n%,y%m=Val(Text1)n=Val(Text2)IfnMod2<>0ThenMsgBox("腳數(shù)必定為偶數(shù)")Text2=""Text2.SetFocusElsey=n/2-mIfy<0ThenMsgBox("腳數(shù)必須>2倍的頭數(shù)，請(qǐng)重新輸入")Text2=""Tex

48、t2.SetFocusElsex=n/2-mLabel2=yLabel3=m-yEndIfEndIfEndSub6PrivateSubCommand1_Click()Dima!,b!,c!,x1!,x2!,de!a=Textlb=Text2c=Text3de=b*b-4*a*ct=2*aIfde=0ThenText4=Format(-b/t,"0.00")Text5=Format(-b/t,"0.00")ElseIfde>0ThenText4=Format(-b+Sqr(de)/t,"0.00")Text5=Format(-b-

49、Sqr(de)/t,"0.00")ElseText4=Format(-b/t,"0.00")&"+"&Format(Sqr(Abs(de)/t,"0.00")&"i"Text5=Format(-b/t,"0.00")&"-"&Format(Sqr(Abs(de)/t,"0.00")&"i"EndIfEndSubPrivateSubCommand2_Click()Text

50、1=""Text2=""Text3=""Text4=""Text5=""EndSub7PrivateSubText3_LostFocus()SelectCaseTrim(Text3)Case"+"Text4=Val(Text1)+Val(Text2)Case"-"Text4=Val(Text1)-Val(Text2)Case"*"Text4=Val(Text1)*Val(Text2)Case"/"IfVal(Text

51、2)=0ThenMsgBox”分母為零，重新輸入"Text2=""Text2.SetFocusElseText4=Val(Text1)/Val(Text2)EndIfEndSelectEndSub8PrivateSubText1_LostFocus()SelectCaseTrim(Text1)Case1Text2="Monday"Case2Text2="Tuesday"Case3Text2="Wednesday"Case4Text2="Thursday'Case5Text2="

52、Friday"Case6Text2="Saturday"Case7Text2="Sunday"CaseIs>7,Is<1MsgBox"數(shù)字為17,重新輸入"Text1=""Text1.SetFocusEndSelectEndSub或者PrivateSubText1_LostFocus()IfText1>7OrText1<1ThenMsgBox"數(shù)字為17,重新輸入"Text1=""Text1.SetFocusElseText2=Choose(

53、Text1,"Monday","Tuesday","Wednesday","Thursday","Friday","Saturday","Sunday")EndIfEndSub1PrivateSubForm_Click()Fori=1To9PrintTab(10-i);String(2*i-1,Trim(Str(i)NextiEndSub2PrivateSubForm_Click()Fori=1To10Step1PrintTab(i);String(20-

54、2*i),Chr(64+i)NextiEndSub3PrivateSubCommand1_Click()Dims!,t!,i&s=1t=1Fori=1To100000t=t+is=s+1/tIf1/t<0.00001ThenExitForNextiPrint"For結(jié)構(gòu)”;s,i;"項(xiàng)"EndSub4PrivateSubCommand1_Click()Dimn&,pi#,i&n=InputBox("輸入n值")pi=2Fori=1Tonpi=pi*(2*i)/(2*i-1)*(2*i)/(2*i+1)NextiPr

55、int"當(dāng)n="&n&"時(shí)，pi="piEndSub5PrivateSubForm_Click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Print"a="a,"n="nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrint"s="sEndSub6PrivateSubCommand1_Click()DimsAsIntegers=0Fori=1To9Forj=0To9Fork=0To9

56、s=i*100+j*10+kIfs=iA3+jA3+kA3ThenPrintsEndIfNextkNextjNextiEndSubPrivateSubCommand3_Click()formd6.Hidemain.ShowEndSub7PrivateSubCommand1_Click()Dima!,x0!,x1!a=27x0=2i=0Doi=i+1x1=2*x0/3+a/(3*x0*x0)IfAbs(x1-x0)<0.00001ThenExitDox0=x1LoopPrintx1,iEndSub8PrivateSubCommand1_Click()s=0x0=0.01Fori=1To30

57、s=s+x0x0=x0*2NextiPrintsEndSubD.9PrivateSubCommand4_Click()Picture1.ClsPicturel.Print"x課安排在""y課安排在""z課安排在Picturel.Print""Forz=5To6Forx=1Toz-2ForY=x+1Toz-1X1=Choose(Weekday(x),"周一”，"周二"，"周三"，"周四”，"周五"，"周六”，"周日")

58、Y1=Choose(Weekday(Y)，"周一"，"周二"，"周三"，"周四"，"周五"，"周六"，"周日")z1=Choose(Weekday(z)，"周一"，"周二"，"周三"，"周四"，"周五"，"周六"，"周日")Picturel.Print""X1;""Y1;&quo

59、t;"z1NextYNextxNextzEndSub1PrivateSubForm_Click()Dima(1To10)AsIntegerFori=1To10a(i)=Int(Rnd*71+30)Printa(i);""NextiMax=a(1)Min=a(1)Avg=a(1)Fori=2To10Ifa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avg+a(i)NextiAvg=Avg/10PrintPrint"Max="Max;"Min="Min;"Avg

60、="AvgEndSub2PrivateSubForm_Click()Dimaa=Array(56,78,98,88,76,78)Fori=0To5PrintString(a(i)5,"");a(i)PrintNextiEndSub3Dima%(19)PrivateSubCommand1_Click()Picture1.ClsFori=0To19a(i)=Int(Rnd*101)Picturel.Printa(i);""If(i+1)Mod4=0ThenPicture1.PrintNextiEndSubPrivateSubCommand2_Cli

61、ck()Picture2.ClsDims(5To9)Fori=0To19k=a(i)10SelectCasekCase0To5s(5)=s(5)+1Case9To10'90100分的人數(shù)s(9)=s(9)+1Case6To8'存放其他三個(gè)分?jǐn)?shù)段的下標(biāo)有規(guī)律，根據(jù)K獲得s(k)=s(k)+1EndSelectNextiFori=5To9Ifs(i)<>0ThenPicture2.Print"s("i;")的人數(shù)有"Format(s(i),"0");"個(gè)"NextiEndSub4Privat

62、eSubCommand1_Click()Picture1.ClsDimd%(1To10)Fori3=1To10Randomized(i3)=Int(Rnd*91+10)Nexti3Fori=1To10Forj=1To10-iIfd(j)<d(j+1)Thent=d(j):d(j)=d(j+1):d(j+1)=tEndIfNextjNextiFori=1To10:Picture1.Printd(i);IfiMod5=0ThenPicture1.PrintNextiEndSub5Dima%(3,3),b%(3,3)PrivateSubForm_Load()Fori=0To3Forj=0To3

63、a(i,j)=Int(Rnd*36+35)b(i,j)=Int(Rnd*41+100)NextjNextiEndSubPrivateSubCommand1_Click()Picturel.CIsFori=0To3Forj=0ToiPicturel.Printa(i,j);""NextjPicturel.PrintNextiEndSubPrivateSubCommand2_CIick()Picture2.CIsFori=0To3Forj=iTo3Picture2.PrintTab(j*6);b(i,j);NextjPicture2.PrintNextiEndSubPrivateSubCommand3_CIick()Picture3.CIssa=0Fori=0To3sa=sa+a(i,i)Nextisb=0Fori=0To3sb=sb+b(i,3-i)NextiPicture3.Print"A數(shù)組主對(duì)角線元素和為："saPicture3.Print"B數(shù)組副對(duì)角線元素和為："sbEndSub6PrivateSubForm_Click()n=InputBox("輸入n值")ReDima6%(n+1,n+1)a6(0,0)=1:a6(1,1)=1:a6(1,0)=1Fori=2Ton+1