程序設(shè)計(jì)語言VB習(xí)地的題目集含詳解

實(shí)用標(biāo)準(zhǔn)文案《程序設(shè)計(jì)語言 VB》課程習(xí)題集一、單選題VisualBasic是一種面向（）的程序設(shè)計(jì)語言。用戶事件程序?qū)ο?.在VisualBasic6.0 中規(guī)定工程文件的擴(kuò)展名是（ ）。vbpforfrmbas3.VisualBasic6.0 中規(guī)定窗體文件的擴(kuò)展名是（ ）。forfrmvbpbas4.如何使一個(gè)標(biāo)簽或按鈕控件在運(yùn)行時(shí)不可用（ ）。A.把它的Visible 屬性設(shè)置成 False精彩文檔實(shí)用標(biāo)準(zhǔn)文案B.把它的Visible 屬性設(shè)置成 TrueC.把它的Enabled 屬性設(shè)置成 FalseD.把它的Enabled 屬性設(shè)置成 True控件的字體可在屬性窗口的（）屬性中調(diào)整？FontColorTextCaption6.若要將某命令按鈕設(shè)置為默認(rèn)命令按鈕。則應(yīng)設(shè)置為 True的屬性是（ ）。ValueCancelDefaultEnabled在VB中，記錄對象數(shù)據(jù)的是（）。方法事件屬性語句在文本框上顯示文本的屬性是（）。A.Value精彩文檔實(shí)用標(biāo)準(zhǔn)文案TextPrintEnabledInputBox函數(shù)返回值的類型為（）。字符串?dāng)?shù)值變體數(shù)值或字符串（視輸入的數(shù)據(jù)而定）10.設(shè)有語句：a=InputBox(" 請輸入數(shù)值:","輸入示例","100") 程序執(zhí)行后,若從鍵盤上輸入數(shù)值20并按回車鍵,則變量a的值是（）。字符串"20"字符串"120"默認(rèn)值100數(shù)值12011.下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（） 。A.Label 控件B.TextBox 控件C.Timer 控件D.CommandButton 控件12.語句PRINT "25*4" 的輸出結(jié)果是（）。精彩文檔實(shí)用標(biāo)準(zhǔn)文案25*4"100"100出現(xiàn)錯(cuò)誤信息只能用來顯示字符信息的控件是（）。文本框標(biāo)簽框圖片框圖像框下列可作為VisualBasic變量名的是（）。A%A4A?xyStemp15.下列哪個(gè)符號不能作為 VB中的變量名（）。timeflypass4min4maxR[8]在窗體內(nèi)聲明的變量是（）。精彩文檔實(shí)用標(biāo)準(zhǔn)文案局部變量模塊變量公共變量任意變量語句DimxAsInteger作用是:將x定義為（）變量。單精度型整型布爾型字符型在VB中,用Boolean來表示的數(shù)據(jù)類型是（）。長整型字符型布爾型單精度型定義常量需要用到的關(guān)鍵字是（）。ConstDimPrivatePublic20.如果要處理 3.1415類數(shù)據(jù)，使用的變量類型應(yīng)該是（） 。精彩文檔實(shí)用標(biāo)準(zhǔn)文案SingleLongIntegerString21.表達(dá)式2*3^2+2*8/2+3^2 的值為（）。27313542數(shù)學(xué)表達(dá)式X^2+3XY對應(yīng)的VB算術(shù)表達(dá)式是（）。X*2+3X*YX*X+3XYX*X+3*X*YX*X+3*XY在VB語言中，求余運(yùn)算符是（）。％MOD*/24.判斷兩個(gè)邏輯關(guān)系任一滿足的邏輯運(yùn)算是（） 。精彩文檔實(shí)用標(biāo)準(zhǔn)文案OrAndNotOk25.表達(dá)式4+5\6*7/8Mod9 的值是（）。A.4B.5C.6D.726.選拔身高T超過1.7米且體重W小于60公斤的人，表示該條件的布爾表達(dá)式為 （）。A.T>=1.7AndW<=60B.T<=1.7OrW>=60C.T>1.7AndW<60D.T>=1.7OrW<6027.VB中下列邏輯表達(dá)式書寫正確的是（） 。A.a>banda>cB.a>b>cC.a≤bD.a≠12228.設(shè)x=4,y=8,z=7 ，表達(dá)式 x<yAnd(Noty>z)Orz<x 的值是（ ）。精彩文檔實(shí)用標(biāo)準(zhǔn)文案1-1TRUEFALSESqr(81)+Fix(3.6)的值是（）。12789把字符串“123”轉(zhuǎn)換為數(shù)值123時(shí)應(yīng)該使用的函數(shù)是（）。StrValLenLog31.表達(dá)式Abs（-3）+int(3.14) 的值為（）。560.146.14Int(Rnd*100)表示的是（）范圍內(nèi)的一個(gè)整數(shù)。精彩文檔實(shí)用標(biāo)準(zhǔn)文案[0,100][1,99][0,99][1,100]Len(“Friend”)的值是（）。A.6B.7C.8D.9Int(-3.14)的值是（）。-3-3.14-43.14Right（“banana”,4）的值是（）。babananananaban36.表達(dá)式 Mid( “Hello”,2,3)的值是（）。精彩文檔實(shí)用標(biāo)準(zhǔn)文案“l(fā)l”“l(fā)lo”“ell”“ello”37.語句if3*4>=10thena=1elsea=2 執(zhí)行后，a的值為（ ）。12101238.語句Ifx=1Theny=1, 下列說法正確的是（ ）。A.x=1 和y=1 均為賦值語句B.x=1 和y=1均為關(guān)系表達(dá)式C.x=1為關(guān)系表達(dá)式， y=1 為賦值語句D.x=1 為賦值語句，y=1 為關(guān)系表達(dá)39.下面程序段中，（）不是把兩個(gè)數(shù)中的大值賦給變量Ｍ ax。Max=IIf(x>y,x,y)Ifx>yThenMax=xElseMax=yMax=x：Ify>=xThenMax=yD.Ify>=xThenMax=y Max=x40.在Select判斷結(jié)構(gòu)中，下面的表述中不正確的是（） 。精彩文檔實(shí)用標(biāo)準(zhǔn)文案A.Case1B.Casea>5C.Case3To6D.Caseis<1041.由"Fori=1To16Step3" 決定的循環(huán)結(jié)構(gòu)被執(zhí)行（ ）次。A.4B.5C.6D.742.Dima(5,5)AsLong 定義的數(shù)組元素的個(gè)數(shù)是（ ）。A.10B.11C.25D.36用于清空數(shù)組數(shù)據(jù)的關(guān)鍵字是（）。EraseLboundUboundRedim44.下列關(guān)于dowhile ?loop 和do?loopwhile 循環(huán)執(zhí)行循環(huán)體次數(shù)的描述正確的是精彩文檔實(shí)用標(biāo)準(zhǔn)文案（）。A.dowhile?loop循環(huán)和do?loopwhile循環(huán)至少都執(zhí)行一次B.dowhile?loop循環(huán)可能不執(zhí)行，do?loopwhile循環(huán)至少執(zhí)行一次C.dowhile?loop循環(huán)至少執(zhí)行一次，do?loopwhile循環(huán)可能不執(zhí)行D.dowhile?loop循環(huán)和do?loopwhile循環(huán)可能都不執(zhí)行45.For-Next語句屬于程序基本結(jié)構(gòu)中的（）。順序結(jié)構(gòu)循環(huán)結(jié)構(gòu)分支結(jié)構(gòu)選擇結(jié)構(gòu)下列關(guān)于ExitFor的說法，正確的是（）。它可以退出任何類型的循環(huán)B.一個(gè)循環(huán)只能有一個(gè) ExitForC.每個(gè)循環(huán)必須有 ExitForD.ExitFor 本身是無條件退出循環(huán)47.在VisualBasic 代碼窗口中,將某一條語句加以注釋和說明時(shí) ,應(yīng)在語句前加（）。,:'?精彩文檔實(shí)用標(biāo)準(zhǔn)文案48.為了將一個(gè)語句寫在多行上所使用的行續(xù)接符是： （）。&_'：在一個(gè)語句內(nèi)寫多條語句時(shí),每個(gè)語句之間分隔符號是（）。,；:'50.Function 過程的定義，不必須有的是（ ）。過程的名稱虛參EndFunction給過程賦值51.下列過程調(diào)用語句中，被調(diào)用的過程一定是 Sub子過程的語句是（ ）。Pro1(x)PrintPro2(x)x=Pro3(x)CallPro4(x)精彩文檔實(shí)用標(biāo)準(zhǔn)文案Sub過程與Function過程最根本的區(qū)別是（）。A.Sub過程可以用 Call語句直接使用過程名調(diào)用，而 Function 過程不可以B.Function 過程可以有形參， Sub過程不可以C.Sub過程不能返回值，而 Function 過程能返回值D.兩種過程參數(shù)的傳遞方式不同53.當(dāng)拖動滾動條中的滾動塊時(shí)，將觸發(fā)滾動條的事件是（） 。MoveSetFocusScrollChange54.列表項(xiàng)選擇后得到的選中索引是指（） 。ValueListValueIndexListIndex定時(shí)器定時(shí)工作所觸發(fā)的事件是（）。Click()Change()Timer()Load()精彩文檔實(shí)用標(biāo)準(zhǔn)文案在圖片框中加載圖形(c:\666.jpg)的方法是（）。Loadpicture("c:\666.jpg")Loadpicture()print("c:\666.jpg")cls以下關(guān)于VB列表框的敘述中（）是錯(cuò)誤的。A.可通過屬性“ Item”，返回列表框中的項(xiàng)目B.可通過屬性“ Text”，得到當(dāng)前列表項(xiàng)中的內(nèi)容C.可通過屬性“ListIndex ”返回當(dāng)前選中的列表項(xiàng)的索引D.可通過屬性“ ListCount ”返回列表框中項(xiàng)目的數(shù)目58.為了把焦點(diǎn)移到某個(gè)指定控件，所使用的方法是 （）。GetFocusVisibleRefreshSetFocus59.為了隱藏一個(gè)窗體，所使用的方法為（） 。LoadShowHideUnLoad精彩文檔實(shí)用標(biāo)準(zhǔn)文案如果窗體被遮擋，通過調(diào)用（）方法，可以將其顯示。HideShowUnloadloadVB窗體設(shè)計(jì)器的主要功能是（）。建立用戶界面畫圖編輯文字編寫程序代碼窗體的（）方法可以清除窗體上的圖形與文本。printclsloadcircle窗體沒有（）屬性。CaptionTextPictureTop精彩文檔實(shí)用標(biāo)準(zhǔn)文案64.當(dāng)一個(gè)工程有多個(gè)窗體時(shí)，其中的啟動窗體是（ ）。第一個(gè)添加的窗體最后一個(gè)添加的窗體啟動VB時(shí)建立的窗體在工程屬性對話框中指定的窗體65.在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個(gè)控件時(shí)，所打開的窗口是（） 。工程資源管理器窗口工具箱窗口代碼窗口屬性窗口66.以下哪種屬性或者方法可以重新定義 VB坐標(biāo)系？（ ）A.ScaleMode 屬性B.Scale方法C.DrawWidth 和DrawStyle 屬性D.BorderWidth 和BorderStyle 屬性指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14將繪制以下哪種圖形？（）圓橢圓扇形精彩文檔實(shí)用標(biāo)準(zhǔn)文案圓弧68.使用Line方法時(shí)，參數(shù) B和F可以組合使用，下列組合中（ ）是不允許的。不使用B和FBB和FF69.執(zhí)行命令Line（200，200）－step（500，500）后，CurrentX＝（ ）。200500700300在VisualBasic中,以下選項(xiàng)中表示單擊事件的是（）。KeyUpClickActivateLoad71.下面不屬于鍵盤事件的是（ ）。KeyUpKeyDownKeyPress精彩文檔實(shí)用標(biāo)準(zhǔn)文案D.Click72.每當(dāng)窗體失去焦點(diǎn)時(shí)會觸發(fā)的事件是（） 。ActiveDeactiveLostFocusInitialize73.設(shè)在窗體上有一通用對話框控件 Commonialog1 ，通過調(diào)用（）語句可以建立“顏色”對話框。Commonialog1.ShowOpenCommonialog1.Action=2Commonialog1.ShowColorCommonialog1.Action=574.用語句Commonialog1.ShowOpen 建立了“打開”對話框以后，要得到用戶所選擇文件的路徑及文件名，應(yīng)使用 Commonialog1 的（ ）。A.DialogTitle 屬性B.FileTitles 屬性C.FileName 屬性D.InitDir 屬性用于顯示彈出式菜單的方法名是()。A.ShowOpen精彩文檔實(shí)用標(biāo)準(zhǔn)文案ShowMenuShowPopupPopupMenu打開菜單編輯器的快捷鍵是（）。CTRL+FAlt+FCTRL+EAlt+E77.下列敘述中，錯(cuò)誤的是（ ）。順序文件打開后，既可以讀又可以寫隨機(jī)文件打開后，既可以讀又可以寫順序文件打開后，只能讀或者只能寫順序文件和隨機(jī)文件的打開都使用Open語句VB編程中順序文件的處理將用到關(guān)鍵字是（）。FileSaveOpenDisk二、填空題1精彩文檔實(shí)用標(biāo)準(zhǔn)文案PrivateSubCommand1_Click()a=3b=1Fori=1To3f=a+ba=bb=fNextiPrintfEndSub以上程序段運(yùn)行后， f的結(jié)果為 。設(shè)有如下通用過程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗體上畫一個(gè)名稱為 Text1的文本框和一個(gè)名稱為 Command1 的命令按鈕,然后編寫如下事件過程:PrivateSubCommand1_Click()精彩文檔實(shí)用標(biāo)準(zhǔn)文案Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=2*iNextfunarr,nText1.Text=Str(n)EndSub程序運(yùn)行后,單擊命令按鈕 ,則在文本框中顯示的內(nèi)容是 。閱讀下列程序段OptionExplicitPrivateSubCommand1_Click()Dimstr1AsStringDimstr2AsStringstr1="ABCDEFG"MySubstr1,str2Printstr2EndSubPrivateSubMySub(ByVal a AsString,b AsString)DimcAsString精彩文檔實(shí)用標(biāo)準(zhǔn)文案DimiAsIntegerFori=Len(a) To 1Step-1c=c+Mid(a,i,1)Nextb=cEndSub程序運(yùn)行后，“print”語句的輸出結(jié)果是 ____。在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()x=Int(Rnd)+6Ifx^2>25Theny=x^2+5x=Int(Rnd)+4Ifx^2<25Theny=x^2x=Int(Rnd)+5Ifx^2=25Theny=x^2-5PrintyEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果為 ___。閱讀下列程序段PrivateSubCommand3_Click()精彩文檔實(shí)用標(biāo)準(zhǔn)文案Printpl(3,6)EndSubPublicFunctionpl(xAsSingle,nAsInteger)AsSingleIfn=0Thenpl=1ElseIfnMod2=1Thenpl=x*x+nElsepl=x*x-nEndIfEndIfEndFunction程序運(yùn)行后，單擊該命令按鈕，屏幕上顯示的結(jié)果是 ______。閱讀下列程序段PrivateSubCommand2_Click()Fori=1To3x=1Forj=1To3x=3+j精彩文檔實(shí)用標(biāo)準(zhǔn)文案Fork=1To3x=x+3NextkNextjNextiPrintxEndSub運(yùn)行程序后，單擊命令按鈕，輸出結(jié)果是 。閱讀下列程序段PrivateSubCommand1_Click()DimiAsIntegerDimkAsIntegerk=0Fori=0To10k=k+1i=i+kNextPrintk;iEndSub請問其循環(huán)體共執(zhí)行了 次，i的值是 。精彩文檔實(shí)用標(biāo)準(zhǔn)文案PrivateSubCommand1_Click()DimiAsIntegerDimxAsIntegeri=1x=2Doi=i+1x=x+iLoopUntili>=7Printi,xEndSub單擊命令按鈕后， i和x的值分別是 、 。87.下面程序運(yùn)行后， a、b、c、d的結(jié)果分別 。PrivateSubCommand1_Click()Dima,b,c,dAsIntegerDoFora=1To2b=b+1Ifa=1Thenb=0c=5精彩文檔實(shí)用標(biāo)準(zhǔn)文案d=d+2NextaLoopUntild>10Printa,b,c,dEndSub假定有如下的Sub過程：SubS(xAsSingle,yAsSingle)t=xx=t+xy=t-yEndSubPrivateSubCommand2_Click()DimaAsSingle,bAsSinglea=6b=4CallS(a,b)Printa,bEndSub程序運(yùn)行后，單擊命令按鈕輸出結(jié)果為 。精彩文檔實(shí)用標(biāo)準(zhǔn)文案閱讀下列程序段Dima(3,3)AsIntegerForm=1To3Forn=1To3a(m,n)=(m-1)*3+nNextnNextmForm=2To3Forn=1To2Printa(m,n);NextnNextm程序運(yùn)行后，顯示結(jié)果為： 。三、綜合設(shè)計(jì)題90.編制程序?qū)崿F(xiàn)：在窗體上，單擊按鈕 1，在文本框中動態(tài)顯示當(dāng)前時(shí)間；單擊按鈕 2，則停止動態(tài)顯示；單擊按鈕 3，清除文本框內(nèi)容。提示：可用定時(shí)器控制時(shí)間，用系統(tǒng)函數(shù)Now 顯示時(shí)間（如 Text1.Text=Now ）。編制程序：求出100-200之間所有可以被3整除的數(shù)的總和，將結(jié)果用消息框顯示輸出。精彩文檔實(shí)用標(biāo)準(zhǔn)文案編制程序：利用輸入框輸入10個(gè)不同的整數(shù)，將它們從小到大排序，并打印輸出。93.編制程序?qū)崿F(xiàn)：設(shè)計(jì)在一框架中包含三個(gè)復(fù)選框，只有當(dāng)其 1,3選中而2未選中時(shí)，才在Text1中顯示"Hello"字符。94.編一程序能實(shí)現(xiàn)在窗體上打印出如下圖所示的圖形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB編一程序用于判斷一正整數(shù)是否為素?cái)?shù)。（提示：只能被1和本身整除的正整數(shù)稱為素?cái)?shù)。為了判斷一個(gè)數(shù)n是不是素?cái)?shù)，可以將n被2到sqr(n)之間的所有整數(shù)除，如果都除不盡，則n就是素?cái)?shù)，否則n是非素?cái)?shù)。）選用If和Select判斷結(jié)構(gòu)中任意一種編寫滿足下列條件的計(jì)稅要求的程序：少于1600元，免稅；1601-5000元，征2%的稅；多于5000元，超過部分征5%的稅。97.有a、b、c三個(gè)數(shù)，編一程序?qū)崿F(xiàn)通過文本框給a、b賦值；再調(diào)用能完成a、b比較大小的子過程，用c將大數(shù)回傳。要求按值傳送a、b。98.編一程序用于求所有的"水仙花數(shù)"。所謂"水仙花數(shù)"是指一個(gè)3位數(shù)，其各位數(shù)字精彩文檔實(shí)用標(biāo)準(zhǔn)文案立方和等于該數(shù)本身。例如： 153就是一水仙花數(shù)，因?yàn)?153=13+53+33 。設(shè)計(jì)一彈出式菜單，用于設(shè)置窗體的背景色，背景色包含白色、黃色、紅色三種顏色。編寫程序?qū)崿F(xiàn)：輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值判斷能否構(gòu)成三角形。如果能，則判斷三角形是否是直角三角形，若是則計(jì)算該直角三角形的面積。提示：判斷能否構(gòu)成三角形的方法是，求最長的一邊，判斷它的邊長是否小于另外兩邊邊長之和；或求最短的一邊，判斷它的邊長是否大于另外兩邊之差。101.編寫程序：通過四個(gè)命令按鈕 Command1-Command4 ，在圖片框 Picture1 內(nèi)分別實(shí)現(xiàn)畫點(diǎn)、畫線、畫圓、擦除等功能。編寫程序?qū)崿F(xiàn)：在窗體上單擊按鈕1，可通過輸入對話框輸入兩個(gè)字符串；單擊按鈕2，將輸入的兩個(gè)字符串連接為一個(gè)字符串，并計(jì)算該字符串長度，然后在消息框中顯示出來。103.編一程序：用三個(gè)文本框分別輸入 a、b、c，求一元二次方程 ax2+bx+c=0 的解x1和x2，只包括實(shí)根。編一程序：利用輸入對話框輸入兩個(gè)正整數(shù)，求最大公約數(shù)。四、簡答題（略）??答案精彩文檔實(shí)用標(biāo)準(zhǔn)文案一、單選題DABCACCBAABABDDBBCA精彩文檔實(shí)用標(biāo)準(zhǔn)文案ACCBABCADABBCACCCCCD精彩文檔實(shí)用標(biāo)準(zhǔn)文案BCDABBDCBCBDCDDCAADC精彩文檔實(shí)用標(biāo)準(zhǔn)文案BABBDCBCDCBDCCCDCAC精彩文檔實(shí)用標(biāo)準(zhǔn)文案二、填空題1930GFEDCBA203154、147、293、1、5、1212、24、5、7、8三、綜合設(shè)計(jì)題PrivateSubCommand1_Click()Timer1.Interval=5Timer1.Enabled=TrueEndSubPrivateSubCommand2_Click()Timer1.Enabled=False精彩文檔實(shí)用標(biāo)準(zhǔn)文案EndSubPrivateSubCommand3_Click()Timer1.Enabled=FalseText1.Text=""EndSubPrivateSubTimer1_Timer()Text1.Text=NowEndSub91.PrivateSubCommand1_Click()Dimi,sAsIntegerFori=100To200IfiMod3=0Thens=s+iNextiMsgBox("100-200 之間所有可以被 3整除的數(shù)的總和為： "&Str(s))EndSub92.PrivateSubCommand1_Click()Dima(9),i,j,mAsIntegerFori=0To9a(i)=Val(InputBox(" 第"&i+1&" 個(gè)數(shù)："))Nexti精彩文檔實(shí)用標(biāo)準(zhǔn)文案Fori=0To9Forj=i+1To9Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j)=mEndIfNextjNextiFori=0To9Printa(i);NextiEndSubPrivateSubCommand1_Click()IfCheck1.Value=1And Check2.Value=1AndCheck3.Value=0ThenText1.Text="Hello"EndIfEndSubPrivateSubCommand1_Click()Dimi,jAsInteger精彩文檔實(shí)用標(biāo)準(zhǔn)文案Fori=1To4Forj=1To(2*i-1)Print"A";NextjPrintNextiFori=4To1Step-1Forj=(2*i-1)To1Step-1Print"B";NextjPrintNextiEndSubPrivateSubCommand4_Click()Dimn,k,i,tempAsIntegern=InputBox(" 請輸入一個(gè)正整數(shù) ")k=Int(Sqr(n))i=2temp=0DoWhilei<=kAndtemp=0精彩文檔實(shí)用標(biāo)準(zhǔn)文案IfnModi=0Thentemp=1Elsei=i+1EndIfLoopIftemp=0ThenPrintn;" 是一個(gè)素?cái)?shù)"ElsePrintn;" 不是素?cái)?shù)"EndIfEndSubPrivateSubCommand1_Click()Dimn,pAsSinglen=Val(Text1.Text)SelectCasenCaseIs<=1600p=0Case1600To5000p=(n-1600)*0.02精彩文檔實(shí)用標(biāo)準(zhǔn)文案CaseElsep=5000*0.02+(n-5000)*0.05EndSelectEndSubPrivateSubc1(ByValaAsSingle,ByValbAsSingle,c)Ifa>bThenc=aElsec=bEndSubPrivateSubCommand1_Click()Dima,b,cAsSinglea=Val(Text1.T ext)b=Val(Text2.T ext)Callc1(a,b,c)PrintcEndSubPrivateSubCommand1_Click()Dima,b,c,nAsIntegerForn=100To999a=Int(n/100)b=Int((n-a*100)/10)精彩文檔實(shí)用標(biāo)準(zhǔn)文案c=n-(a*100+b*10)Ifn=a^3+b^3+c^3ThenPrintn;NextEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuMenuAEndIfEndSubPrivateSubB_Click(IndexAsInteger)SelectCaseIndexCase1Form1.BackColor=vbWhiteCase2Form1.BackColor=vbYellowCaseElseForm1.BackColor=vbRedEndSelect精彩文檔實(shí)用標(biāo)準(zhǔn)文案EndSubPrivateSubCommand1_Click()Dima(2),i,j,mAsIntegerFori=0To2a(i)=Val(InputBox(" 第"&i+1&" 條邊為："))NextiFori=0To2Forj=i+1To2Ifa(i)>a(j)Thenm=a(i)a(i)=a(j)a(j