《VisualBasic程序設(shè)計(jì)》形成性考核冊作2023年《VisualBasic程序設(shè)計(jì)》形成性作業(yè)1a一、選擇題a1、在設(shè)計(jì)應(yīng)用程序時(shí)，可以查看到應(yīng)用程序工程所有構(gòu)成部分的窗口A、標(biāo)題欄B、菜單欄C、狀態(tài)欄D、工具欄5、假如對象的名稱為Mytext,并且對象有一種屬性Text,那么在代碼中引用該屬性的對的格Mytext*Text6a、下列可以激活屬性窗口的操作是(D)。aA、用鼠標(biāo)雙擊窗體的任何部(*),應(yīng)設(shè)置文本框的(B)屬性。A、CaptionB、PasswordCharC、C、forml.print'myfrm2、在VB中，事件過程名由對象名和事件名構(gòu)成。3a、工程文獻(xiàn)的擴(kuò)展名是vbp回值，調(diào)用對象的措施的格式為對象名.措施名。例如對窗體Forml使用Show措施，應(yīng)7、欲設(shè)置定期的時(shí)間間隔為4秒，則屬性Interval的值為4000。8a、要使標(biāo)簽框的大小隨Caption屬性做自動調(diào)整，應(yīng)將AutoSize9、通過窗體布局窗口可以在設(shè)計(jì)時(shí)直觀地調(diào)整窗體在屏幕的位置。10a、要想在代碼中給11、若命令按鈕的名稱為Cmdopen,程序規(guī)定單擊以上命令按鈕，打開一種窗口fr動等。一種對象響應(yīng)的事件可以有多個(gè)，顧客不能建立新的事件。事件過程是指響應(yīng)某個(gè)EndSuba則響應(yīng)過程的對象名是cmd1,事件名是Click。13a、對象的措件過程，當(dāng)這個(gè)事件過程執(zhí)行完后，系統(tǒng)又處在等待另一種事件發(fā)生的狀程序方式。2o、對象、屬性、事件和文獻(xiàn)之間的關(guān)系怎樣?碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的途徑執(zhí)行，顧客無答：事件驅(qū)動的工作過程如下：(1)啟動應(yīng)用程序，裝載和顯示窗體。(2)窗體或窗體件等待事件的發(fā)生。(3)當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對應(yīng)的事件過程代碼。(4)反復(fù)執(zhí)行(2)C.每行的首字符必須大寫D.長度不能超過255個(gè)字符6a.體現(xiàn)式6+10Mod4*2+1A.一種空格加一種下劃字符(_)B1.一種下劃字符()oC.直接回11."X是不不不大于80的非負(fù)數(shù)",用VB體現(xiàn)式體現(xiàn)對的的是(C).A..O≤X<80ΩA.加號(+))B.減號(-)C.星號(*)D.感慨號(!)A.ShowPrinterB.ShowOpenA.所在窗體的各子程序都可以訪問aB.其他窗體的子程序不能訪問C.所在窗體發(fā)子程序不能訪問用Private定義的窗體級變量D.一定要在所在窗體的通用區(qū)內(nèi)定義o18.從一種字符串中的第3個(gè)字符開始，獲取5個(gè)字符，A.Len函數(shù)B.Mid函數(shù)C.Left函數(shù)D.Right函數(shù)19.用下面的語句所定義的數(shù)組的元素的個(gè)數(shù)是1.菜單一般有下拉式和彈出式兩種基本類型。03,組合框具有文本框和列表框兩種控件的基本功能。5.調(diào)用Sub過程時(shí)，使用call__語句，語句用于把程序控制傳6.若已建立了Form1和Form2兩個(gè)窗體，默認(rèn)啟動窗體為Form1。通過_工程_菜單屬性 Form1.show_語句。a7.列表框中項(xiàng)目的序號是從0開始的。 (1)答：2*cos(a)*sin(a)/(2*a)a(2)答：sqr(s*(s-a)*(s-b)*(s-c))EndSuba程序運(yùn)行成果為：1+2+………+99+100=505010(5個(gè)空格)15(7個(gè)空格)2010(8個(gè)空格)15(5個(gè)空格)2020(三個(gè)空格)+(三個(gè)空格)453a、PrivateSubForm_click()Fori%=1PrintLTrim(Str(i%))+"*"+LT4、PrivateSubCoText1顯示3、4oText2顯示35o、PrivateSubForm_Click()ForJ=1ToI*2-1*火*******a元以上者，按八折優(yōu)惠；(4)500元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一種命2、輸出100～200之間不能被3整除的的數(shù)，規(guī)定用Do語句的一種形式來實(shí)現(xiàn)，程序運(yùn)行成果如圖5所示。PrintaNextj4aa、設(shè)計(jì)一種計(jì)算程序。該程序顧客界面如圖7所示。規(guī)定程序運(yùn)行后，顧客選中單擊選按鈕，則程序作10和2的對應(yīng)計(jì)算，并把計(jì)算成果在選中加法單項(xiàng)選擇按鈕，則程序作10和2的相加，計(jì)算成果12在文本框中顯示出來。按結(jié)束，Text1=10/2a加法單項(xiàng)選擇按鈕中添加如下代碼：aText1=1結(jié)束按鈕中代碼：end或unloadme5a、編寫輸入一種0~6數(shù)字，顯示中文對照輸出星期星期三”+chr(13)+”(wednesdaLabel1.caption="星期六"+ch Command3.caption=”修改”Endifa作業(yè)33、為了使目錄途徑列表框Dir1的內(nèi)容符合驅(qū)動器列表框DriB.在Drive1_Click事件中加入Dir1.Path=Drive1.Driv4、為了使drive1驅(qū)動器列表框、dir1目錄途徑列表框和file1文獻(xiàn)列表框能同步協(xié)調(diào)工作，需要在(B)aA.drive1的Chan件過程中加入dir1.Path=drive1.Drive,在dir1的Change事件過程中加入file1.PC.dir1的Change事件過程中加入dir1.PaD.dir1的Change事件過程中加入dir1.Path=drive1.Drive,在file1的Click事5、下面有關(guān)次序文獻(xiàn)的描述對的的是(A)9、當(dāng)用Line措施畫直線后，目前坐標(biāo)在C.(200,200)到(700,700)D.(300,300)到(500,500)a11、設(shè)置對象的邊框類A.open"text.dat"forwrit(B)aA.文獻(xiàn)另存為B.打開文獻(xiàn)C.色彩DC.包括所有的文獻(xiàn)D。會顯示磁盤的途徑19n、下列數(shù)據(jù)對象模型中采用OLEDB訪問A.ADOrs.New“Select*From學(xué)生基本狀況表”VB中將變量x1申明為Exce1應(yīng)用程序?qū)ο蟮拇胧┦?A)2.在VisualBasic程序中實(shí)現(xiàn)復(fù)制文獻(xiàn)"C:filecopy“c:\command”,"d:\”。3a.在VisualBasic程序中實(shí)現(xiàn)刪除文獻(xiàn)”LD.DAT"forinputas#2。6a.若窗體的左上角坐標(biāo)為(-200,250),右下角坐標(biāo)為(300,-150),則X軸的正向向右,Y軸的正向向上_。cture1中畫一種左上角在(500,500),邊長為500的紅色實(shí)心正方形的語句為_picture11.VB中將數(shù)據(jù)庫分為當(dāng)?shù)財(cái)?shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫和外部數(shù)據(jù)庫_三種類型.所列確實(shí)圖片文獻(xiàn)(*.Bmp和*.jpg),則對應(yīng)的圖片顯示在圖片框Picture1中2.余弦曲線的方程為y=cosx,畫出x從-2到11所示。tx=0.2:form1.currentY=-0.1:print"0"oForrrentY=-0.1:print"pi"oForm1.currenForm1.currentx=0.2:form1.currentY=-0.5:print“-0.5”3,使用Line控件顯示直線，并且可以顯示直線的線寬和線型.程序運(yùn)行界面如圖12所示.a如Endselect4a.使用Shape控件顯示幾種圖形，并可以設(shè)置圖形的邊框和填充效果等.程序運(yùn)行界面如圖13所示.首先按圖作出程序界面。形狀框架里的單項(xiàng)選擇框要做成option1控件數(shù)組，邊框類型框架里的單項(xiàng)選擇框最成option2控件數(shù)組，填充風(fēng)格框架里的單項(xiàng)選擇做成option3控件數(shù)Option3單擊事件代碼如下：a數(shù)據(jù)庫，并在其中創(chuàng)立“students”的數(shù)據(jù)庫表，其構(gòu)造及初始記錄如表1所示.使用ADO對象和MSFlexGrid控件設(shè)計(jì)數(shù)據(jù)庫列表顯示程序.程序的設(shè)計(jì)界面和運(yùn)行成果如圖14、圖15所表1a學(xué)號姓名專業(yè)2023001a張紅軟件專業(yè)2023003李強(qiáng)會計(jì)專業(yè)2023002n王麗軟件專業(yè)聲名對象變量ADOcn,用于創(chuàng)立與數(shù)據(jù)庫的連接ADOrs.actistrDB=“provider=SQLOLEDB;LSF;UserID=sa;password=;database=學(xué)生”作業(yè)4a一、選擇題Winsock控件處在關(guān)閉狀態(tài)時(shí)，其State屬性的值是(B)。VB程序中一般不會產(chǎn)生錯(cuò)誤提醒的(D)。。A、編譯錯(cuò)號2、Winsock控件重要用來編制或基于TCP/IP經(jīng)UDP3、ActiveXEX文獻(xiàn)的后綴是exe。a4、COM對象有兩種類型接口，即原則接口和顧客接口。8、常用中的VB網(wǎng)絡(luò)編程控件重要有Wins(2)分離受懷疑的程序a(3)縮小搜索范圍4(a)使用MSGBOX語句o他應(yīng)用友好沒有使用過的值均可，但習(xí)慣上應(yīng)不不大于1000a(B)使用LISTRN措施使用服務(wù)時(shí)應(yīng)首先使用CLOSE措施關(guān)閉服務(wù)器，然后再調(diào)用ACCEPT措施。(E)當(dāng)服務(wù)器程序接受到數(shù)據(jù)時(shí)，會產(chǎn)生DATAARRIVAL事件。在該事件中可以使用GE器程序的主機(jī)名或IP地址T=A(j)2、運(yùn)用Winsock控件開發(fā)一種點(diǎn)對點(diǎn)聊天系統(tǒng)，該系統(tǒng)由VB安裝不安全的緣故，可以找到安裝盤并安裝其中的Mswinsck.cad壓縮包。 txtReceive,用來顯示服務(wù)器的IP地址和需收發(fā)的信息。4a、在窗體上添加一種Winsock控件，將其名稱改為WinsockServer,將Protoco1(協(xié)議)屬性設(shè)置為0(即sckTCPProtoband和txtReceive,用來顯示客戶機(jī)和要連接的服務(wù)器的IP地址以及需收發(fā)的信息。4o、在窗體上添加一種Winsock控件，將其名稱改為WinsockClient,將(協(xié)議)屬性設(shè)置為0(即t管理器窗口2、窗體的load事件的觸發(fā)時(shí)機(jī)是(B)。AA、顧客單擊窗體時(shí)B、窗體欄D、工具欄▲5、假如對象的名稱為Myt一種控件是活動的，為了在屬性窗口中設(shè)置窗體的屬性8、假如要在文本框鍵入字符時(shí)，只顯示某個(gè)字符，假如(*),應(yīng)設(shè)置文本框的(B)屬性。11、要在窗口體Forn1內(nèi)顯示“myfrm”使用的語句是(C)AA、Form.captio對象的性質(zhì)和狀態(tài)特性稱為(C)rm”“文獻(xiàn)”菜單的“生成.exe文獻(xiàn)“編繹成名.exe后，將該可執(zhí)行文獻(xiàn)放到其他機(jī)器上不期的時(shí)間間隔為4秒，則屬性Interval的值為40.0.0令按鈕，打開一種窗口frml,請對如下事件過程填空。命令，打開選項(xiàng)對話框，然后選擇“編輯應(yīng)的事件過程代碼。(4)反復(fù)執(zhí)行(2)和(3),直到碰到END語句或單擊“結(jié)束”按鈕停把兩個(gè)命令按鈕的標(biāo)題分別設(shè)置為“隱藏文本框”和“顯示文本框程序設(shè)計(jì)”(字體大小為16)。程序運(yùn)行界面如圖所示。計(jì)”e=”16”2、設(shè)計(jì)一種計(jì)算程序。該程序顧客界面如圖2所示，由四個(gè)文本框：文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三個(gè)按鈕：命令按鈕1(command1)、命令按鈕2(command2)、命令按鈕3(command3)構(gòu)成。程序運(yùn)A態(tài)+1的值是(A)續(xù).C.兩種過程參數(shù)的傳遞方式不同樣.D.Sub過程的過程名不能返回值，而Function過程可以通過過程名返回值.11."X是不不不大于80的非負(fù)數(shù)",用VB體現(xiàn)式體現(xiàn)對的的是(C).△A..O≤XC.0<=xandx<80A.加號(+)B.減號(-)C.星號(*)D.感慨號(!)13a.假如14.下列可以用來存儲圖像供其他對象使rB.StatursBarC.ImA.ButtonClickB.Changor▲17.對于窗體級變量，下列說法中錯(cuò)誤的是(C).AA.所在窗體的各子程序都可以B.其他窗體的子程序不能訪問C.所在窗體發(fā)子程序不能訪問用Private定義的窗體級D.一定要在所在窗體的通用區(qū)內(nèi)定義1▲8.從一種字符串中的第3個(gè)字符開始，獲取5個(gè)字函數(shù)149.用下面的語句所定義的數(shù)組的元素的個(gè)數(shù)是(D).△DimA(-3To5)本功能。●4.要使數(shù)組的默認(rèn)下標(biāo)從“1開始，則應(yīng)與Function過程最主線的區(qū)別是Sub過程名無返回值，F(xiàn)unction過程名有返回值。10.使用Hide措施會隱藏被調(diào)用的窗體，不過在調(diào)用Hide措施之后不會把窗體卸載，▲12.將下列數(shù)學(xué)式子各條件寫成VisualBasic邏輯體現(xiàn)式。13.設(shè)A=2,B=3,C=4,D=5。體現(xiàn)式NotA<=C0r4*B^2AndB<>A+C的值為FPrintA;Spc(8);b;Space$(5);cAPrintc;Spc(3);”+”;Spc(3);c+daEndSub5(10個(gè)空格)15(7個(gè)空格)2010(8個(gè)空格)15(5個(gè)空格)20▲20(三個(gè)空格)+(三個(gè)空格)45A=3.4△B=3.4aText1.Text=a*四、程序設(shè)計(jì)題1、購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠措施，每位顧客一次購物(1)在100元以上者，按九五折優(yōu)惠；(2)在200元以上者，按九折優(yōu)惠；(3)300元以上者，按八折優(yōu)惠；(4)500元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一種命令按鈕，規(guī)定在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸入優(yōu)惠后的價(jià)格。程序運(yùn)行成果如圖解所示。IfVal(text1)>=500thentext2=Val(text1)*0.7ElseifVal(text1)>=300thentext2=Val(text1)*0.85ElseifVa1)>=100thentext2=val(text1)*0.95aEndif2、輸出100~200之間不能被3整除的的數(shù)，規(guī)定用Do語句的一種形式來實(shí)現(xiàn)，程序運(yùn)行成果如圖5所示。窗體的裝入事件中加入如下代碼：Printstr(i);space(5);aForI=15tol8aPri鈕，則程序作10和2的對應(yīng)計(jì)算，并把計(jì)算成果在文本框中顯示出來。如顧客選中加法單項(xiàng)選擇按鈕，則程序作10和2的相加，計(jì)算成果12在文本框中顯示出來。按結(jié)束，則退me5a、編寫輸入一種0~6數(shù)字，顯示中文對照輸出星期的Function過程。程序運(yùn)行成果如圖8所示。ALabell.caption=”星期天”+chr(13)+”(Sunday)”Label1.caption=”星期一”+chr(13)+”(monday)”ACase2ALabel1.caption=”星期二”+chr(13)+”(Tuesday)”aCase3Case4ALabell.caption=”星期四”+chr(13)+”(thursday)”Case6ALabel1.caption=”星期六”+chr(13)+”(saturday)”改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)行成果如圖9所示。A添Ifcommand3.caption=”修改確認(rèn)”then改”EndifAEndif作業(yè)31、VisibleBasic獻(xiàn)B.Unix文獻(xiàn)C.二進(jìn)制文獻(xiàn)D.隨機(jī)文獻(xiàn)A.在Dirl_Click事件中加入Dir1.Path=Drive1.DriB.在Driye1Click事件中加入Dir1.Path=Drivel.Drive△C.在Dir1_ck事件中加入Drivel.Path=Dir1.Drive▲D.在Dirl_Click事件中加入Drive性B.DrawWidth屬性C.Scale措施D.ScaleMode屬性8、如下的屬性和(200,200)到(500,500)B.(200,200)到(300,300)然后按De1鍵AB.執(zhí)行語句Picture1.picture=LoadPicture(“”)*C.執(zhí)行語句Picturel.picture=“D.選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵14、繪制多種形狀的直線，需要設(shè)置Line控件的(B)屬性。A.ShapeB.BordC.open"text.dat"forInputAs#1AD.open“text.dat”forWrite#1,recC.Put#l,recDD。會顯示磁盤的途徑19、下列數(shù)據(jù)對象模型*From學(xué)生基本狀況表”C.ADOrs.Execute“Select*FromFrom學(xué)生基本狀況表”21、VB中將變量xl申明為Exce1應(yīng)用程序?qū)ο蟮拇胧┦?A)A.DimxlAsExcel.ApplicationB.Dimxfilecopy“c:\command”,”d:\”。左上角坐標(biāo)為(-200,250),右下角坐標(biāo)為(300,-150),則X軸的正向向右,Y軸的正向向上_。7.Stretch屬性設(shè)置為_false_時(shí)，圖像框可自動變化大小以適應(yīng)其中的圖形.8.在圖片框Picturel中畫一種左上角在(500,500),邊長為500的紅色實(shí)心正方形的語句為_p_遠(yuǎn)程數(shù)據(jù)庫.▲三、程序設(shè)計(jì)題驅(qū)動器列表框Drive1的默認(rèn)驅(qū)動器設(shè)置為C盤，選擇Filel中所列確實(shí)圖片文獻(xiàn)(.Bmp和*jpg),則對應(yīng)的圖片顯示在圖片框Picturel中。程序運(yùn)行成果如圖10所示。解：根據(jù)圖10設(shè)計(jì)界面，文獻(xiàn)列表框的pattern屬性設(shè)置為：*.Bmp;*.jpg▲驅(qū)動Form1.scale(-2*3.14159,1)-(2*3.14159,-1)Form1.lForm1.line(0,1)-(0,-1)AForm1.currentx=0.2:form1.currentY=-0.1:print”0”AFOrml.currentx=-3.2:forml.currentY=-0.1:print”-pi”Forml.currentx=3.3:forml.currentY=-0.1:print”pi”Forml.currentx=-6.2:form1.currentY=-0.1:print”-2pi”Form1.currentx=5.7:form1.currentY=-0.1:print”2pi”Form1.currentx=0.2:form1.currentY=-0.5:print“-0.5”如圖添加代碼如下▲復(fù)選框的單擊事件代碼：aIfcheck1.value=lthenEndif實(shí)線、虛線、單項(xiàng)選擇框要弄成一種option1單項(xiàng)選擇框控件數(shù)組。單項(xiàng)選擇框單擊事件代4.使用Shape控件顯示幾種圖形，并可以設(shè)置圖形的邊框和填充效果等.程序運(yùn)行界面如圖13所示.首先按圖作出程序界面。形狀框架里的單項(xiàng)選擇框要做成option1控件數(shù)組，邊框類型框架里的單項(xiàng)選擇框最成option2控件數(shù)組，填充風(fēng)格框架里的單項(xiàng)選擇做成option3控Case2AShapel.borderstShape1.表顯示程序.程序的設(shè)計(jì)界面和運(yùn)行成果如圖14、圖15所示。表1▲學(xué)號姓名專業(yè)2023001張紅軟件專業(yè)2≈023003李強(qiáng)2023002王麗軟件專業(yè)A聲名對象變量ADOcn,用于創(chuàng)立與數(shù)據(jù)庫的連接會計(jì)專業(yè)AReadfromtable△PripDowhilenotADOrs.eofMSFlexgrid1.addttemstrtmpAADOrsmovenextALooLEDB;LSF;UserID=sa;password=;database=學(xué)生”ifADOcnisnothingthensetADOcn=newconnection