2023年Basic程序設(shè)計期末綜合練習(xí)題二

VisualBasic程序設(shè)計期末綜合練習(xí)題二一、單項選擇題1．在下列有關(guān)VisualBasic的敘述中，錯誤的是（）。A．采用了事件驅(qū)動的編程機(jī)制B．是面向?qū)ο蟮木幊陶Z言C．是可視化的程序設(shè)計語言D是面向過程的程序設(shè)計語言．2．應(yīng)用程序打包后，其包文獻(xiàn)的后綴為（）。A．.exeB．.txtC．.cabD．.ocx3．在新建一個“標(biāo)準(zhǔn)EXE”工程后，不在工具箱中出現(xiàn)的控件是（）。A．列表框B．通用對話框C．驅(qū)動器列表框D．圖片框4．設(shè)窗體的名稱為Form1，則在程序運營過程中，單擊窗體時，被執(zhí)行的事件過程的名稱是（）。A．Form1_Click()B. Form1_DbClick() C．Form_Click()D．Form_DbClick() 5．對于定期器（Timer）控件,設(shè)立其定期是否啟動的屬性是（）。A．IndexB．TagC．EnabledD．Interval6．在VisualBasic中，工程文獻(xiàn)的擴(kuò)展名為（）。A．.frmB．.vbpC．.clsD．.bas7．有程序代碼如下：Text1.Text="歡迎走進(jìn)VB世界！"則Text1，Text，和"歡迎走進(jìn)VB世界！"分別代表（）。A．對象，值，屬性B．對象，屬性，值C．對象，方法，屬性D．屬性，對象，值8．以下敘述中對的的是（）。A．窗體的Name屬性指定窗體的名稱，用來標(biāo)記一個窗體B．窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C．可以在運營期間改變對象的Name屬性的值D．對象的Name屬性值可認(rèn)為空9.VB提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)是（）。A．選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)B．選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)C．過程結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)、遞歸結(jié)構(gòu)D．遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)10．在VB中，下列變量名不合法的是（）。A．take_1B．takeC．take_1_2D．take-111．下列說法中對的的是（）。為了保存一個VisuaBasic應(yīng)用程序，應(yīng)當(dāng)A．只保存窗體文獻(xiàn)B．只保存工程文獻(xiàn)C．分別保存工程文獻(xiàn)和標(biāo)準(zhǔn)模塊文獻(xiàn)D．分別保存工程文獻(xiàn)、窗體文獻(xiàn)和標(biāo)準(zhǔn)模塊文獻(xiàn)12．?dāng)M定一個控件在窗體上的位置的屬性是（）。A．Width或HeightB．Width和HeightC．Top和LeftD．Top或Left13．?dāng)M定一個窗體或控件的大小的屬性是（）A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left14．當(dāng)一個工程具有多個窗體時，其中的啟動窗體是（）。A．第一個添加的窗體B．最后一個添加的窗體C．包含控件最多的窗體D．在“工程屬性”對話框中指定的窗體15．在一個語句行內(nèi)寫多條語句時，語句之間應(yīng)當(dāng)用（）分隔。A．逗號B．冒號C．頓號D．分號16．要設(shè)立命令按鈕的背景圖形，必須設(shè)立的兩個屬性是（）。A．Style和PictureB．Style和IconC．Caption和PictureD．Value和Icon17．目錄列表框的Path屬性的作用是（）。A．顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文獻(xiàn)名B．只顯示當(dāng)前程徑下的文獻(xiàn)C．顯示根目錄下的文獻(xiàn)名D．顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的途徑18．將數(shù)據(jù)"China"項添加到列表框（List1）中成為第一項應(yīng)使用的語句是（）。A．List1.AddItem0,"China"B．List1.AddItem1,"China"C．List1.AddItem"China",0D．List1.AddItem"China",119．要繪制多種形狀的圖形，需要設(shè)立Shape控件的（）屬性。A、StyleB、BorderstyleC、FillStyleD、Shape20．下列可以把當(dāng)前目錄下的圖形文獻(xiàn)pic1.jpg裝入圖片框Picture1中的語句為（）。A．Picture1="pic1.jpg"B．Picture1=LoadPicture("pic1.jpg")C．Picture1.Picture=LoadPicture(("pic1.jpg")D．Picture1.Picture=LoadPicture(("pic1")21．假如要在窗體代碼編輯器的”通用”部分定義私有Sub過程，則對的的語句是（）。A．PublicSubB．PrivateSubC．PublicFunctionD．PrivateFunction22．不屬于VB數(shù)據(jù)庫引擎的是（）。A．ODBCB．BDEC．Jet引擎D．OLEDB23.在VB應(yīng)用程序中，進(jìn)行斷點設(shè)立的按鍵是（）。A．Ctrl+F9鍵B．F9鍵C．Ctrl+F8鍵D．F8鍵24．假如準(zhǔn)備讀文獻(xiàn)，打開順序文獻(xiàn)”text.dat”的對的語句是（）。A．open"text.dat"ForwrireAs#1B．open"text.dat"ForBinaryAs#1C．open"text.dat"ForInputAs#1D．open"text.dat"ForRandomAs#125．使用ADO對象模型時，使Recordset和Connection對象建立連接的屬性是（）。A．OpenB．ExecuteC．CommandTypeD．ActiveConnection26.使用ADO對象模型時，使Recordset和Connection對象建立連接的屬性是（）。A．OpenB．ExecuteC．CommandTypeD．ActiveConnection27．在VB中，一旦數(shù)據(jù)到達(dá)，將一方面觸發(fā)Winsock控件的（）。A．DataArrival事件B．ConnectionRequest事件C．DataSend事件D．GetGet事件28．Winsock控件的LocalPort屬性的作用是（）A．僅返回所用斷口B．僅設(shè)立所用端口C．返回或設(shè)立所用端口D．返回或設(shè)立IP地址二、填空題1．每個應(yīng)用程序必須有一個惟一的文獻(xiàn)。2．窗體文獻(xiàn)和類模塊文獻(xiàn)的擴(kuò)展名分別是和。3．表達(dá)式6+15\2*2Mod2的值是。4．表達(dá)式17\2-2^3*5MOD6的值是。5．計時器控件響應(yīng)的事件是。6．在VisualBasic中，變量的默認(rèn)類型是。7．為了在運營時把當(dāng)前程徑下的圖形文獻(xiàn)show.jpg裝入圖片框P1，所使用的語句為。8．設(shè)某個程序中要用到一個二維數(shù)組，規(guī)定數(shù)組名為A，類型為整型，第一維下標(biāo)從0到2，第二維下標(biāo)從1到3，則相應(yīng)數(shù)組聲明語句為。9．用DimA(-2to3)語句聲明二維數(shù)組后，數(shù)組A的元素共有個。10.VB中參數(shù)傳遞的機(jī)制有兩種，一種是參數(shù)，另一種是參數(shù)。11.控件數(shù)組的名字由屬性指定，而數(shù)組中的每個元素由屬性決定。12．若窗體的左上角坐標(biāo)為（-200，250），右下角坐標(biāo)為（300，-150），則X軸的正向向，Y軸的正向向。13．窗體、圖片框或圖像框中的圖形通過對象屬性。14．在VB中，將Foxpro稱為外部數(shù)據(jù)庫，Access稱為，SQLServer稱為。15．vb應(yīng)用程序與數(shù)據(jù)庫進(jìn)行通信的重要機(jī)制稱為。16．全局變量必須在模塊中定義，所使用的關(guān)鍵字為。17．全局變量是指那些在中有效的變量，一般在模塊代碼編輯器的頂部使用聲明。18．Winsock控件重要用來編制或協(xié)議的網(wǎng)絡(luò)應(yīng)用程序。三、閱讀程序題（共25分）閱讀下列程序并寫出程序運營結(jié)果1．PrivateSubCommand1_Click()DimxAsIntegerStaticsAsIntegerx=Val(InputBox("請輸入一個正整數(shù)="))Ifx<5Thens=s*xElses=s+xEndIfText1.Text="s="&Str(s)EndSub程序運營時連續(xù)3次單擊Command1，且設(shè)輸入的數(shù)據(jù)為6、5、4時，分別寫出文本框Text1的值。2.PrivateSubForm_Click()StaticaAsIntegerDimbAsIntegera=a+3b=b+4Text1=aText2=bEndSub寫出程序運營時連續(xù)單擊三次窗體后，文本框Text1和Text2顯示結(jié)果。3.PrivateSubForm_Click()DimA(1To3)AsStringDimcAsInteger,jAsIntegerA(1)="2"A(2)="4"A(3)="6"c=2Forj=1To3c=c+Val(A(j))NextjPrintcEndSub寫出程序運營時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。4.PrivateSubForm_Click()n=0Fori=1To2Forj=2To4IfjMod2<>0Thenn=n+1EndIfn=n+2NextjNextiPrintnEndSub寫出程序運營時單擊窗體后，窗體Form1上的輸出結(jié)果。5.PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=2:b=3Fori=1To3Forj=1Toib=b+jNextja=a+bNextiPrintaEndSub寫出程序運營時單擊命令按鈕后，窗體Form1上的輸出結(jié)果。6.PrivateSubForm_Click()DimA(1To4)AsStringDimcAsIntegerDimjAsIntegerA(1)="4"A(2)="6"A(3)="8"A(4)="10"c=1Forj=1To4c=c+Val(A(j))NextjPrintcEndSub寫出程序運營時單擊窗體后，窗體Form1上的結(jié)果。7.SubChange(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tPrintx,yEndSubPrivateSubForm_Click()DimaAsInteger,bAsIntegera=10:b=20Changea,bPrinta,bEndSub寫出程序運營時單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。8.FunctionF(nAsInteger)AsLongDimiAsInteger,TempAsLongTemp=1Fori=1TonTemp=Temp*iNextiF=TempEndFunctionPrivateSubForm_Click()DimkAsInteger,njAsIntegerk=5nj=F(k)Printk;"！=";njEndSub寫出程序運營時，單擊窗體Form1上的輸出結(jié)果。四、完善程序題（共10分）1．已知存在一名為“學(xué)生”的SQLServer數(shù)據(jù)庫，其中的“students”數(shù)據(jù)表用來存儲學(xué)生的基本情況信息，涉及學(xué)號、姓名、籍貫、性別。請編寫一個簡樸的應(yīng)用程序，向students表中添加學(xué)生記錄。程序的基本邏輯是：當(dāng)窗體被加載時，程序聯(lián)接SQLServer數(shù)據(jù)庫；當(dāng)點擊“增長”按鈕時，一方面查詢學(xué)號是否反復(fù)，假如不反復(fù)則向students表中添加學(xué)生記錄。其運營界面如圖1所示。圖1程序如下，請補充完整。'聲明對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接PrivateADOcnAsConnectionPrivateSubForm_Load()'連接SQLServer數(shù)據(jù)庫DimstrDBAsStringstrDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"IfADOcnIsNothingThen[2][3]EndIfEndSubPrivateSubCommand1_Click()'增長學(xué)生記錄DimstrSQLAsStringDimADOrsAs[4][5]=ADOcnADOrs.Open“Select學(xué)號FromStudentsWhere學(xué)號=”+”‘“+Text1+”‘“[6]ThenMsgBox“你輸入的學(xué)號已存在，不能新增長！”ElseStrSQL=”InsertIntostudents(學(xué)號,姓名,,籍貫,性別)StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”ADOrs.Execute[7]MsgBox“添加成功，請繼續(xù)！”EndIfPrivateSubCommand2_Click()UnloadMeEndSub2．在窗體上建立一個驅(qū)動器列表框、目錄列表框、文獻(xiàn)列表框、圖片框、文本框。規(guī)定程序運營后，驅(qū)動器列表框Drive1的默認(rèn)驅(qū)動器設(shè)立為E盤，選擇File1中所列的圖片文獻(xiàn)（*.bmp,*.gif和*.jpg）,則相應(yīng)的圖片顯示在圖片框Picture1中，文獻(xiàn)的途徑顯示在文本框中。程序運營結(jié)果如圖2所示。圖2程序如下，請補充完整。PrivateSubForm_Load()Drive1.Drive=[1][2]="*.bmp;*.gif;*.jpg"EndSubPrivateSubDrive1_change()[3]=Drive1.DriveText1.Text=Drive1.DriveEndSubPrivateSubDir1_Change()[4]Text1.Text=Dir1.PathEndSubPrivateSubFile1_click()Picture1.[5]=LoadPicture(File1.Path+"\"+File1.FileName)FileName=File1.Path+"\"+File1.FileNameText1.Text=[6]EndSub五、編寫程序題1.按下述規(guī)定，編寫一征收所得稅程序。（1）收入在1000元以內(nèi)，不納稅；（2）收入超過1000元以上的部分，納稅20%（3）當(dāng)收入達(dá)成5000元或超過時，5000元以上的部分，納稅22%。程序運營界面如圖3所示：圖3答案一、單項選擇題1.D2.C3.B4.C5.C6.B7.B8.A9.B10.D11.D12.C13.B14.D15.B16.A17.D18.C19.D20.C21．B22．B23．B24．C25.D26.D27.A28.C二、填空題（每小題2分，共20分