VisualBasic程序設(shè)計(jì)補(bǔ)停課復(fù)習(xí)資料綱要VisualBasic程序設(shè)計(jì)補(bǔ)停課復(fù)習(xí)資料綱要VisualBasic程序設(shè)計(jì)補(bǔ)停課復(fù)習(xí)資料綱要VisualBasic程序設(shè)計(jì)補(bǔ)停課復(fù)習(xí)資料一、單項(xiàng)選擇題1．剛建立一個(gè)新的標(biāo)準(zhǔn)EXE工程后，不在工具箱中出現(xiàn)的控件是（）。A．單項(xiàng)選擇按紐B．圖片框C．通用對(duì)話框D．文本框2．與傳統(tǒng)的程序設(shè)計(jì)語言對(duì)照，VisualBasic最突出的特點(diǎn)是（）A．結(jié)構(gòu)化程序設(shè)計(jì)B．程序開發(fā)環(huán)境C．事件驅(qū)動(dòng)編程體系D．程序調(diào)試技術(shù)3．將調(diào)試經(jīng)過的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，將該可執(zhí)行文件拿到其他機(jī)器上不能夠運(yùn)行的主要原因是（）。A．缺少.frm窗體文件B．運(yùn)行的機(jī)器上無VB系統(tǒng)C．該可執(zhí)行文件有病毒D．以上原因都不對(duì)4．啟動(dòng)VB后，就意味著要建立一個(gè)新（）。A．文件B．窗體C．程序D．工程5．在VB環(huán)境中，標(biāo)準(zhǔn)類模塊文件的擴(kuò)展名是（）。A．.vbpB．.frmC．.basD．.frx6．VisualBasic6.0集成開發(fā)環(huán)境有三種工作模式，以下不屬于三種工作模式之一的是（）。A．設(shè)計(jì)模式B．執(zhí)行模式C．中斷模式D．編寫代碼模式7．以下4項(xiàng)中合法的變量名是（）。A．45xyzB．SingleC．x-yzD．x_yz8．表達(dá)式64/2-2^3*9/3Mod8\3（）A．0B．32C．20D．49.要在窗體的標(biāo)題內(nèi)顯示“myfrm”,使用的語句是（）A．Form1.Print"myfrm"B．Form.Print"myfrm"C．Form.caption="myfrm"D．Form1.caption="myfrm"10．無論何種控件，共同擁有的屬性是（）A．TextB．Name1C．CaptionD．ForeColor11．依照變量的作用域可將變量劃分為（）A．公有、私有、系統(tǒng)B．全局變量、模塊級(jí)變量、過程級(jí)變量C．動(dòng)向、常數(shù)、靜態(tài)D．Public、Private、Protected12．確定一個(gè)控件在窗體上地址的屬性是（）A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left13．要退出DoLoop循環(huán)，可使用的語句是（）語句。A．ExitB．ExitForC．ExitDoD．EndDo14．表達(dá)式8+10Mod2^2+3的值是（）A、4B、11C、12D、1315.以下關(guān)于變量的說法不正確的選項(xiàng)是（）。A．局部變量是指那些在過程中用Dim語句或Static語句聲明的變量B．局部變量的作用域僅限于聲明它的過程C．靜態(tài)局部變量是在過程中用Static語句聲明的D．局部變量在聲明它的過程執(zhí)行達(dá)成后就被釋放了16．以下表達(dá)中錯(cuò)誤的選項(xiàng)是（）。A．一個(gè)工程中只能有一個(gè)SubMain過程B．窗體的Show方法的作用是將指定的窗體載入內(nèi)存并顯示該窗體C．窗體的Hide方法和Unload方法的作用完滿相同．若工程文件中有多個(gè)窗體，能夠依照需要指定一個(gè)窗體為啟動(dòng)窗體17．要繪制多種形狀的圖形，需要設(shè)置Shape控件的（）屬性A．BorderstyleB．ShapeC．FillStyleD．Style18．VB程序中平時(shí)不會(huì)產(chǎn)生錯(cuò)誤提示的是（）。A．編譯錯(cuò)誤B．實(shí)時(shí)錯(cuò)誤C．運(yùn)行時(shí)錯(cuò)誤D．邏輯錯(cuò)誤19．當(dāng)Winsock控件處于關(guān)閉狀態(tài)時(shí)，其State屬性的值是（）A．0B．1C．2D．620．以下正確的賦值語句是（）。A．x+y=50B．y=*r*rC．y=x+50D．3y=x221．使圖像框Image控件中的圖像自動(dòng)適應(yīng)控件的大小應(yīng)（）。A．將控件的Stretche屬性設(shè)為TrueB．將控件的Stretche屬性設(shè)為FalseC．將控件的AutoSize屬性設(shè)為TrueD．將控件的AutoSize屬性設(shè)為False22．目錄列表框的Path屬性的作用是（）．顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的路徑B．顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名C．顯示根目錄下的文件名D．只顯示當(dāng)前路徑下的文件23．以下數(shù)據(jù)對(duì)象模型中采用OLEDB接見數(shù)據(jù)庫的是（）。A．DAOB．ADOC．RDOD．RDO和ADO24．使用ADO數(shù)據(jù)模型時(shí)，使Recordset和Connection對(duì)象建立連接的屬性是（）。A．CommandTypeB．ActiveConnectionC．OpenD．Execute25．若是準(zhǔn)備讀文件，打開序次言件”的正”確語句是（）A．open"text.dat"ForwrireAs#1B．open"text.dat"ForBinaryAs#1C．open"text.dat"ForInputAs#1D．open"text.dat"ForRandomAs#1二、填空題1．用Line方法畫直線后,當(dāng)前坐標(biāo)在。2.在VB中，要想獲得某個(gè)相關(guān)控件或語句的幫助信息，一般可第一選中該控件或語句，爾后按鍵。3．應(yīng)用程序打包后，其包文件的后綴為。4．若是要每隔10s產(chǎn)生一個(gè)Timer事件，則Interval屬性應(yīng)設(shè)置為。5．每個(gè)應(yīng)用程序都有開始執(zhí)行的入口，在VB中將這種窗體稱為。6．控件數(shù)組的名字由屬性指定，而數(shù)組中的每個(gè)元素由屬性決定。7．?dāng)?shù)學(xué)關(guān)系15≤x<45表示成正確的VB表達(dá)式為。8．以窗體Form1的中心為圓心，畫一個(gè)半徑為300的圓的語句是。9．假設(shè)ADOrs為一個(gè)Recordset對(duì)象，那么從Table1表中獲得所有記錄的語句是10．在VB中，將Foxpro稱為，Access稱為，SQLServer稱為。11．設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，種類為字符串種類，第一維3下標(biāo)從1到4，第二維下標(biāo)從-1到4，則相應(yīng)的數(shù)組聲明語句為。12．若窗體Form1左上角坐標(biāo)為（0，500），右下角的坐標(biāo)為（800，-200）。則X軸的正向向，Y軸的正向向。13．全局變量在整個(gè)應(yīng)用程序中有效，一般在模塊代碼編寫器的頂部用語句聲明。14．列表框中項(xiàng)目的序號(hào)是從開始的。15．Winsock控件主要用來編制或協(xié)議的通話程序。16．Vb應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的主要體系稱為。17．Image控件的Stretch屬性設(shè)置為時(shí)，圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形。18．在整個(gè)程序運(yùn)行時(shí)，用Static聲明的局部變量是靜態(tài)的，其值能夠在該過程所在的模塊運(yùn)行時(shí)期，而用Dim聲明的變量只幸虧才存在。三、閱讀程序題閱讀以下程序并寫出程序運(yùn)行結(jié)果1．PrivateSubForm_Click()StaticSumAsIntegerForI=1To5Sum=Sum+INextIPrintSumEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。2．PrivateSubForm_Click()DimcAsInteger,jAsInteger,kAsIntegerk=0c=1Forj=1To6Ifj>4Thenc=c+5ExitForElsek=k+1EndIfNextjPrintc,kEndSub寫出程序運(yùn)行時(shí)單擊窗體后，c,k的值分別是：43.PrivateSubCommand1_Click()DimsAsDoubleDimiAsIntegers=5i=1DoWhilei<9i=i+2s=s+iLoopText1.Text=sEndSub文件框Text1的輸出結(jié)果是：4.PrivateSubCommand1_Click()DimXAsInteger,YAsIntegerX=0:Y=1Fori=1To3Forj=1ToiY=Y*jNextjX=X+YNextiPrintXEndSub寫出程序運(yùn)行時(shí)單擊命令按鈕后，窗體Form1上的輸出結(jié)果。5.FunctionF(aAsInteger)DimbAsIntegerStaticcAsIntegerb=b+2c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=6Fori=1To3PrintF(a)NextiEndSub5寫出程序運(yùn)行時(shí)，單擊命令按鈕在窗體上的輸出結(jié)果。6.PrivateSubForm_Click()DimA(1To4)AsStringDimcAsIntegerDimjAsIntegerA(1)="2"A(2)="4"A(3)="6"A(3)="8"c=1Forj=1To4c=c+Val(A(j))NextjPrintcEndSub寫出程序運(yùn)行時(shí)單擊窗體后，窗體Form1上的結(jié)果：四、完滿程序題1．列表框應(yīng)用程序。要求從文本框中輸入姓名，爾后按“增加”按鈕，把姓名增加到列表框中；當(dāng)選擇列表框中某一項(xiàng)后，按“刪除”按鈕，則從列表框中刪除該項(xiàng)；當(dāng)選擇列表框中某一項(xiàng)后，按“更正”按鈕，把列表框中采用的項(xiàng)送往文本框且“更正”按鈕變?yōu)椤案_認(rèn)”。在文本框的內(nèi)容更正好后，按“更正確認(rèn)”按鈕，再把文本框中更正后的信息送到列表框且“更正確認(rèn)”按鈕變?yōu)椤案薄３绦蜻\(yùn)行結(jié)果如圖1所示。Text1Command1Command2List1Command3圖1程序以下，請(qǐng)補(bǔ)充完滿。PrivateSubForm_Load()6List1.AddItem"李敏"List1.AddItem"張華"List1.AddItem"呂曉燁"List1.AddItem"趙巍"List1.AddItem"袁莉"List1.AddItem"王津"List1.AddItem"何小渴"List1.AddItem"崔寧"List1.AddItem"何月"EndSubPrivateSubCommand1_Click()IfText1.Text<>""Then[1]Text1.Text=""ElseMsgBox"請(qǐng)?jiān)谖谋究蛑休斎胄畔ⅲ?EndIfEndSubPrivateSubCommand2_Click()[2]EndSubPrivateSubCommand3_Click()IfCommand3.Caption="更正"ThenText1.Text=[3]Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Caption=[4]Else[5]Command1.Enabled=TrueCommand2.Enabled=TrueText1.Text=[6]Command3.Caption="更正"EndIfEndSub2．在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、圖片框、文本框。要求程序運(yùn)行后，驅(qū)動(dòng)器列表框Drive1的默認(rèn)驅(qū)動(dòng)器設(shè)置為D盤，選擇File1中所列的圖片文件（*.bmp,*.gif和*.jpg）,則相應(yīng)的圖片顯示在圖片框Picture1中，文件的路徑顯示在文本框中。程序運(yùn)行結(jié)果以以下列圖所示。7程序以下，請(qǐng)補(bǔ)充完滿。PrivateSubForm_Load()[1]File1.Pattern="*.bmp;*.gif;*.jpg"EndSubPrivateSubDrive1_change()Dir1.Path=[2][3]EndSubPrivateSubDir1_Change()[4]Text1.Text=[5]EndSubPrivateSubFile1_click()Picture1.[6]=LoadPicture(File1.Path+"\"+File1.FileName)Text1.Text=[7]EndSub3．已知存在一名為“學(xué)生”的SQLServer數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來儲(chǔ)藏學(xué)生的基本情況信息，包括學(xué)號(hào)、姓名、籍貫、性別。請(qǐng)編寫一個(gè)簡(jiǎn)單的應(yīng)用程序，向students表中增加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時(shí)，程序聯(lián)接SQLServer數(shù)據(jù)庫；當(dāng)點(diǎn)擊“增加”按鈕時(shí)，第一盤問學(xué)號(hào)可否重復(fù)，若是不重復(fù)則向students表中增加學(xué)生記錄。其運(yùn)行界面如圖2所示。8圖2程序以下，請(qǐng)補(bǔ)充完滿。'聲明對(duì)象變量ADOcn，用于創(chuàng)辦與數(shù)據(jù)庫的連接PrivateADOcnAsConnectionPrivateSubForm_Load()'連接SQLServer數(shù)據(jù)庫DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"IfADOcnIsNothingThenSetADOcn=[2][3]strDBEndIfEndSubPrivateSubCommand1_Click()'增加學(xué)生記錄DimstrSQLAsStringDimADOrsAs[4][5]“Select學(xué)號(hào)FromStudentsWhere學(xué)號(hào)=”+”‘“+Text1+”‘“IfNotADOrs.EOFThenMsgBox“你輸入的學(xué)號(hào)已存在，不能夠新增加！”ElseStrSQL=”InsertIntostudents學(xué)(號(hào),姓名,,籍貫,性別)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘[6]MsgBox“增加成功，請(qǐng)連續(xù)！”EndIfPrivateSubCommand2_Click()UnloadMe9EndSub五、編寫程序題1.編寫一收款計(jì)算程序。要求用戶輸入商品的“單價(jià)”、“數(shù)量”和“折扣”后，單擊“計(jì)算”按鈕顯示“應(yīng)付款”，單擊“除去”按鈕，除去文本框中所有的數(shù)據(jù)。程序運(yùn)行界面如以下列圖所示。Text1Text3Text4Text2Command1Command22．編寫一個(gè)攝氏溫度與華氏溫度之間變換的程序，程序運(yùn)行界面以以下列圖所示：圖1要使用變換的公式是：F=9/5*C+32其中F為華氏溫度，C為攝氏溫度。103.設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面以以下列圖所示。要求程序運(yùn)行后，用戶選中單項(xiàng)選擇按鈕，則程序作10和2的相應(yīng)計(jì)算，并把計(jì)算結(jié)果在文本框中顯示出來。如用戶選中加法單項(xiàng)選擇按鈕，則程序作10和2的相加，計(jì)算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。答案一、單項(xiàng)選擇題15．D23.B二、填空題1．直線終點(diǎn)2．F13．.cab4．100005．啟動(dòng)窗體6．NameIndex7.15<=xANDx<458．Circle(ScaleWidth/2,ScaleHeight/2),3009．ADOrsOpen”Select*FromTable1”10．外面數(shù)據(jù)庫當(dāng)?shù)財(cái)?shù)據(jù)庫遠(yuǎn)程數(shù)據(jù)庫11．DimA(1To4,-1To4)AsString12．右上13.Public14．0TCP/IPUDP數(shù)據(jù)庫引擎18.素來存在過程執(zhí)行時(shí)期11三、閱讀程序題1.152．743．294．155．1012146．15四、完滿程序題1."更正確認(rèn)""2.Drive1.Drive="D:\"PictureFileName3.學(xué)生[2]NewConnection12ADOcn.Open[4]NewRecordsetADOrs.ActiveConnection=ADOcnADOrs.ExecutestrSQL五、編程題1．PrivateSubCommand1_Click()IfText1.Text=""ThenMsgBox"最少要輸出單價(jià)！"ExitSubEndIfIfText2.Text=""ThenText2.Text=1IfText3.Text=""ThenText3.Text=1EndSub2.PrivateSubCommand1_Click()IfText1.Text<>""ThenText2.Text=9/5*Text1.Text+32EndIfEndSubPrivateSubCommand2_Click()IfText2.Text<>""ThenText1.Text=(Text2.Text-32)*5/9EndIfEndSub3.PrivateSubCommand1_Click()UnloadMeEndSubPrivateSubOption1_Click()Text1.Text=30+6EndSubPrivateSubOption2_Click()Text1.Text=30-613EndSubPrivateSubOption3_Click()Text1.Text=30*6EndSubPrivateSubOption4_Click()Text1.Text=30/6EndSubVisualBasic編程模擬試題（補(bǔ)修）一、填空題40分(每空2分)1．VisualBasic開發(fā)應(yīng)用程序的步驟_______、__________、__________。2．菜單分為_________菜單和_________菜單，菜單總與____________相關(guān)連，設(shè)計(jì)菜單需要在____________中設(shè)計(jì)。3．對(duì)象的方法用于當(dāng)方法不需要任何參數(shù)并且也沒有返回值時(shí)，調(diào)用對(duì)象的方法的格式為。比方對(duì)窗體Form1使用Show方法，應(yīng)寫成。4．VisualBasic的控件平時(shí)分為三各種類，即、、和。其中，不能夠從工具箱中刪除。5．若A=20，B=80，C=70，D=30，則表達(dá)式A+B>160Or(B*C>200AndNotD>60)的值是。7．Timer控件的屬性決定該控件可否對(duì)時(shí)間的推移做響應(yīng)。將該屬性設(shè)置為False會(huì)關(guān)閉Timer控件，設(shè)置為True則打開它。8．在VisualBasic的變換函數(shù)中將數(shù)值變換為字符串的函數(shù)是；將數(shù)字字符串變換為數(shù)值的函數(shù)是；．要除去組合框Combo1中的所有內(nèi)容，能夠使用的語句是。10．使控件獲得焦點(diǎn)的方法是。11．菜單控件只包括一個(gè)____________事件。二、寫出程序的運(yùn)行結(jié)果：（30分，每題5分）1、x=15:y=1514IfX<YThenA=15A=-15PrintA2、A=85IfA>60ThenI=1ElseIfA>70ThenI=2ElseIfA>80ThenI=3ElseIfA>90ThenI=4EndIfPrint"I=";I3、I=0ForG=10To15Step3I=I+1NextGPrintI4．N=0J=1DoUntilN>3N=N+1J=J+N*(N+1)LoopPrintN;J155．N=0ForI=1To4ForJ=5To1Step-1N=N+1NextJ,IPrintN;J;I6．SubForm_Click（）A=10:b=20:c=30:d=40PrintA;Spc(5);b;Spc(7);cPrintA;Spc(8);b;Space$(5);cPrintc;Spc(3);"+";Spc(3);d;PrintSpc(3);"=";Spc(3);c+dEndSub三、編程題20分創(chuàng)辦一個(gè)登錄界面，由兩個(gè)標(biāo)簽（Label1、Labe12）和兩個(gè)文本框（txtName、txtPassword）組成。其中，口令文本框（txtPassword）的Pa