XXXX年電大-Visual-Basic程序設(shè)計形成性考核冊-參考答

《VisualBasic程序設(shè)計》形成性考核冊作業(yè)及答案《VisualBasic程序設(shè)計》形成性考核冊作業(yè)及答案是（B）。性，預(yù)先應(yīng)執(zhí)行的操作是（A）。直接顯示所需的幫助信息。其它機(jī)器上不能運行的主要原因是（D）。都不對具箱選項，使“工具箱”窗口顯示。文本框等都是對象。事件過程填空。Form1.Caption=”VB示例”答：可視化編程是指無須編程，僅通過直觀的操作式。件過程，當(dāng)這個事件過程執(zhí)行完后，系統(tǒng)又處于等待另一程序方式。答：對象是代碼和數(shù)據(jù)的封裝體。對象的操作通過與該對象有關(guān)的屬性、事件、方法來描述。屬性是一個對象的基本特性，每個對象都有它自己的屬性。方法是對象要執(zhí)行的動作。事件是在對象上所發(fā)生的事情。答：傳統(tǒng)的面向過程的應(yīng)用程序中，應(yīng)用程序自身碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定程。而事件驅(qū)動機(jī)制則由用戶來決定執(zhí)行的路線。這就是兩者的不同。答：事件驅(qū)動的工作過程如下1）啟動應(yīng)用程序，裝載控件等待事件的發(fā)生。（3）當(dāng)某個事件發(fā)生后，執(zhí)（2）和（3），直到遇到END語句或單擊“結(jié)束”按鈕停止程序的運行。解：“隱藏文本框”按鈕中的代碼為：Text1.Visible=F“顯示文本框”按鈕中的代碼為：Text1.Visible=TrueText1.Text=”VB程序設(shè)計”Text1.FontSize=”16”），戶按清除按鈕，則清除文本框中顯示的內(nèi)容鈕則退出。解：command1中的代碼為：text1=””：text2=””：text3=””：tecommand2中的代碼為：text4=(val(Text1)+答：“計算”按鈕的代碼：text4=val(Text1)*val(Text2)*val(Text3)“清除”按鈕的代碼：text1=””：text2=””：text3=””：text4=””A、ValB、FixC、AscD、Chr4.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（B）。A.9B.11C.1D.37.以下可以作為VisualBasic變量名的是（B）.8.表達(dá)式Abs(-5)+Len(“ABCDE”)的值為（C）.9.在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括），以在行末使用續(xù)行字符（A表示下一行是當(dāng)前行的繼A.一個空格加一個下劃字符(_)B.一個下劃字符(_)C.直接回車D.一個空格加一個字符(-)10.Sub過程與Function過程最根本的區(qū)別是（D）.A.Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以.11."X是小于80的非負(fù)數(shù)用VB表達(dá)式表示正確的是（C）.A..0≤X<80B.0<=XC.0<=xandx<80D.0<=12.在設(shè)計菜單時,如果要在菜單中加入一個菜單分隔A.加號(+)B.減號(-)C.星號(*)D.感嘆號A.PrintB.MoveC.RefreshD.PopupMA.ToolBarB.StatursBarC.ImageListD.TreeVA.ButtonClickB.ChangeC.LoadD.KeyPr16.要利用公用對話框控件來顯示”打開文件”對話框,需要調(diào)A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowCol3．組合框具有__文本框_和__列表框_兩種控件的基本功能。程。準(zhǔn)模塊_。用的窗體中的屬性等已處于_內(nèi)存中_。三、閱讀下列程序，寫出程序運行結(jié)果。程序運行結(jié)果為：1+2+…….+99+100=PrintA;Spc(5);b;SpcPrintA;Spc(8);b;Space$Printc;Spc(3);”+”;Spc(3PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%Nextj%Nexti%Next*以上者，按八折優(yōu)惠4）500元以上者按七折優(yōu)惠。序運行結(jié)果如圖解所示。IfVal(text1)>=500thentext2=Val(text1)*0.7ElseifVal(text1)>=300thentext2=Val(text1)*0.85ElseifVal(text1)>=200thentext2=val(text1)*0.9Elseifval(text1)>=100thentext2=val(text1)*0.95Endif如圖5所示。窗體的裝入事件中加入如下代碼：EndifPrintstr(i*j);spacNextjPrintNextj則程序作10和2的相應(yīng)計算，并則程序作10和2的相加，計算結(jié)果12在文乘法單選按鈕的單擊事件中添加如下代碼：除法單選按鈕中添加如下代碼：加法單選按鈕中添加如下代碼：減法單選按鈕中添加如下代碼：text1示。Label1.caption=”星期天”+chr(13)+”(Sunday)”Label1.caption=”星期一”+chr(13)+”(monday)”Label1.caption=”星期二”+chr(13)+”(Tuesday)”Label1.caption=”星期三”+chr(13)+”(wednesday)”Label1.caption=”星期四”+chr(13)+”(thursday)”Label1.caption=”星期五”+chr(13)+”(firday)”Label1.caption=”星期六”+chr(13)+”(saturday)”鼠標(biāo)右鍵時，通過消息框顯示“YoupresseIfbutton=2thenMsgbox”youpressedrightbutton”Endif當(dāng)選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當(dāng)列表框中某一項時，按“修改”程序運行結(jié)果如圖9所示。添加按鈕代碼：list1.additemtext1.Text1.text=””刪除:iflist1.text<>””thenList1.removeitem=list1.listEndif修改:Ifcommand3.caption=“修改”thenCommand3.caption=”修改確認(rèn)”Ifcommand3.caption=”修改確認(rèn)”thenList1.list=list1.listindex>=text1Command3.caption=”修改”EndifEndif入dir1.Path=file1.Path代碼。入file1.Path=dir1.Path代碼。file1.Path=file1.fileName代碼。file1.Path=dir1.Path代碼。A.(0,0)B.直線起點C.A200,200）到(500,500)B.（200,200）到(300,300)C.（200,200）到(700,700)D.（300,300）到(500,500)A.DrawstyleB.BorderstyleC.DrawWidC．執(zhí)行語句Picture1.picture=“”A.open“text.dat”forwrB.open“text.dat”fC.open“text.datD.open“text.dat”forRA.Print#1,recB.Write#1,recC.PutA只包含擴(kuò)展文件名為”*.bat”的文件B。第一A．DAOB.RDOA．ADOrs.New“Select*From學(xué)生基本情況表”B．ADOrs.Open“Select*From學(xué)生基本情況表”C．ADOrs.Execute“Select*From學(xué)生基本情況表”A．DimxlAsExcel.ApplicationB.DimxlAsExcC.DimxlAsExcel.WorksheetD.DimxlAsExcel.W為filecopy“c:\”,”d:\”3.在VisualBasic程 open”SEQOLD.DAT”for7.Stretch屬性設(shè)置為_false_時,圖像框可自動改變大小以適應(yīng)其中的圖形._picture1.line(500,500)-step(500,500),vbred,BF。9.設(shè)CurrentX=50,CurrentY=100,執(zhí)行指令”line(100,20)-Step(300,500)”后,Cur10.使用ADO模型時,可通過_ActiveConn11.VB中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫和外部數(shù)據(jù)庫_三種類型.是_ADOrs(“符號”)_.等三類不返回結(jié)果集的SQL語句.fromTabel1Where學(xué)號=’”+Str1+”’”后,StrSQL的值等于_”select.*=’001’”_.），picture1.picture=loadpicturefile1.filename所示。如圖窗體的單擊事件中添加如下代碼：Form1.scale(-2*3.14159,1)-(Form1.line(-2*3.14159,0)-(2*3.141Form1.currentx=0.2：form1.currentY=-0.1Form1.currentx=-3.2：form1.currentY=-0.1:pForm1.currentx=3.3：form1.currentY=-0.1:Form1.currentx=-6.2：form1.currentY=-0.1:prForm1.currentx=5.7：form1.currentY=-0.1:pForm1.currentx=0.2：form1.currentY=0.5:pForm1.currentx=0.2：form1.currentY=-0.5:prNextI3,使用Line控件顯示直線,并且可以顯示直線的線寬和線型.程復(fù)選框的單擊事件代碼：Ifcheck1.value=1thenLine1.borderwidth=4Endif實線、虛線、單選框要弄成一個option1單選框控件數(shù)組。單選框單擊事4.使用Shape控件顯示幾種圖形,并可以設(shè)置圖形示.首先按圖作出程序界面。形狀框架里的單選框要做成option1控選框最成option2控件數(shù)組，填充風(fēng)格框架里的單選做成option3控5.使用SQLServer或Access建立名稱為”學(xué)生的數(shù)據(jù)庫,并在其中創(chuàng)建”students”的數(shù)據(jù)庫表,其PrivateADOcnAsconnePrivatesubreadfromtable()DimADOrsAsnewrecoADOrs.activeconnection=ADADOrs.open“select*fromstudentsorderby“學(xué)號”MSFlexgrid1.cols=3Strtmp=“學(xué)號”+vbtab+“姓名”+vbtab+“專業(yè)”MSFlexgrid1.additemsDowhilenotADOrs.eofStrtmp=ADOrs(“學(xué)號”)+vbtab+ADOrs(“姓名”)+vbtMSFlexgrid1.addttemsMSFlexgrid1.fixedcolstrDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=學(xué)生”ifADOcnisnothingthensetADOcn=newconnectEndifPrivatesubcommand1_cl二、填空題。發(fā)送數(shù)據(jù)，則通常使用該控件的senddata方法。據(jù)了。三、問答題。Socket在計算機(jī)提供了一個通信端口，可以通過要對Socket接口進(jìn)行數(shù)據(jù)的讀寫操作就可以了。（B）使用LISTRN方法使用服務(wù)器進(jìn)入偵聽狀態(tài)，等待客戶機(jī)程序的連接請求。件得到一個參數(shù)REQUESTID。狀態(tài)，此時應(yīng)首先使用CLOSE方法關(guān)閉服務(wù)器，然后再調(diào)用ACCEPT方法。（E）當(dāng)服務(wù)器程序接收到數(shù)據(jù)時，會產(chǎn)生DATAARRIVAL事GETDATA方法接收數(shù)據(jù)。（A）客戶程序首先應(yīng)設(shè)置好REMOTEHOST屬性，用來指向運行（B）設(shè)置REMOTEPORT屬性，用來指向服務(wù)器程序和偵聽端口號。（C）使用CONNECT方法向服務(wù)器提出連接請求。（D）如果服務(wù)器接受上述連接請求，客戶機(jī)程序會產(chǎn)生CONNE此事件中編寫程序，比如使用MSGBOX函數(shù)向用戶提示“連接已成功”之類的信息。（E）連接成功之后，就可以根據(jù)需要使用SENDDATA方法向服（F）當(dāng)客戶機(jī)程序接收到數(shù)據(jù)時，會產(chǎn)生DATAARRIVA收數(shù)據(jù)。四、程序設(shè)計題。‘隨機(jī)生成一組數(shù)據(jù)Nextc‘排序IFA(c)>A(j)ThenT=A(j)A(j)=A(c)A(j)=T＇此處有錯，應(yīng)為A（CT，實現(xiàn)EndIf＇A（C）和A（J）的交換NextNext‘在窗體上輸出結(jié)果Nextc應(yīng)用程序組成，能夠?qū)崿F(xiàn)網(wǎng)絡(luò)中兩臺計算機(jī)間的通話任務(wù)。解：如下界面的設(shè)計中，若不說明，各對象均采用默認(rèn)的名稱。Control并將其選中。如果沒有找到，通常是由于VB安裝不安裝其中的Mswinsck.cad壓縮包?！巴顺觥薄Ｓ脕盹@示服務(wù)器的IP地址和需收發(fā)的信息。各控件及事件代碼如下：UnloadMetxtserverip.Text=Winsockserver.LocaWinsockserver.SendDatatxtsend.PrivateSubWinsockserver_ConnectionRequest(ByValWinsockserver.AcceptrequePrivateSubWinsockserver_DataArrival(ByValbyWinsockserver.GetDatamytxtreceive.Text=mys“退出”和“連接聊天服務(wù)器”。各控件及事件代碼如下：UnloadMeWinsockclient.RemoteHost=txtserverIP.txtclientIP.Text=Winsockclient.LocaWinsockclient.SendDatatxtsend.MsgBox"你成功地與聊天室服務(wù)器進(jìn)行了聯(lián)接",vbInformationPrivateSubWinsockclient_DataArrival(ByValbWinsockclient.GetDatamytxtreceive.Text=mysVisualBasic程序設(shè)計形成性考核格式是（B）。屬性，預(yù)先應(yīng)執(zhí)行的操作是（A）。體的標(biāo)題欄原因都不對項，使“工具箱”窗口顯示。文本框等都是對象。 7、欲設(shè)置定時的時間間隔為4秒，則屬性Inte以下事件過程填空。 鼠標(biāo)移動等。一個對象響應(yīng)的事件可以有多個，用戶不能建立新的事件。事件Form1.Caption=”VB示例” 命令，打開選項對話框，然后選擇“編輯器”選項卡中的自動語法檢測 Interval屬性設(shè)置，其單位為答：可視化編程是指無須編程，僅通過直觀的操作方式即可完成界面的設(shè)計工程方式。事件過程，當(dāng)這個事件過程執(zhí)行完后，系統(tǒng)又處于等待另一個事件發(fā)生的狀態(tài)件驅(qū)動程序方式。答：對象是代碼和數(shù)據(jù)的封裝體。對象的操作通過與該對象有關(guān)的屬性、事件述。屬性是一個對象的基本特性，每個對象都有它自己的方法是對象要執(zhí)行的動作。事件是在對象上所發(fā)生的事情。答：傳統(tǒng)的面向過程的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行那一部分代碼按行代碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，用戶無的執(zhí)行流程。而事件驅(qū)動機(jī)制則由用戶來決定執(zhí)行的路線。這就是兩者的不同。答：事件驅(qū)動的工作過程如下1）啟動應(yīng)用程序，裝載和顯示窗體。（2）窗體或窗體上的控件等待事件的發(fā)生。（3）當(dāng)某個事件發(fā)生后，執(zhí)行其對應(yīng)的事件重復(fù)執(zhí)行（2）和（3），直到遇到END語句或單擊“結(jié)束”按鈕停止程序的運行。如圖所示。解：“隱藏文本框”按鈕中的代碼為：Text1.Visible=“顯示文本框”按鈕中的代碼為：Text1.Visible=TrueText1.Text=”VB程序設(shè)計”Text1.FontSize=”16”），（command1）、命令按鈕2（command2）、命令按鈕3（command3）組成。程序用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計算按鈕，則計算三退出按鈕則退出。解：command1中的代碼為：text1=””：text2=””：text3=””：tcommand2中的代碼為：text4=(val(Text1答：“計算”按鈕的代碼：text4=val(Text1)*val(Text2)*val(Text3“清除”按鈕的代碼：text1=””：text2=””：text3=””：text4=””A、ValB、FixC、AscD、Chr4.把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（B）。A.9B.11C.1D.37.以下可以作為VisualBasic變量名的是（B）.8.表達(dá)式Abs(-5)+Len(“ABCDE”)的值為（C）.9.在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用續(xù)行字符（A表示下一行是當(dāng)前A.一個空格加一個下劃字符(_)B.一個下劃字符(_)（－）10.Sub過程與Function過程最根本的區(qū)別是（D）.A.Sub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以.11."X是小于80的非負(fù)數(shù)＂，用VB表達(dá)式表示正確的是（C）.A..0≤X<80B.0<=XC.0<=xandx<80D.0<12.在設(shè)計菜單時,如果要在菜單中加入一個菜單分A.加號(+)B.減號(-)C.星號(*)D.感嘆號A.PrintB.MoveC.RefreshD.PopupMA.ToolBarB.StatursBarC.ImageListD.TreeVA.ButtonClickB.ChangeC.LoadD.KeyPr16.要利用公用對話框控件來顯示”打開文件”對話框,需要調(diào)A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColA.所在窗體的各子程序都可以訪問A.”Visual”B.”Visua”C.”V”D.”VisualBasic”_。值。_標(biāo)準(zhǔn)模塊_。被調(diào)用的窗體中的屬性等已處于_內(nèi)存中_。三、閱讀下列程序，寫出程序運行結(jié)果。PrintA;Spc(5);b;SpcPrintA;Spc(8);b;Space$Printc;Spc(3);”+”;Spc(3PrintLTrim(Str(i%))+“*”+LTrim(Str(j%))+“=”;i%Nextj%Nexti% Next*300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗體上添加兩個文本框和后的價格。程序運行結(jié)果如圖解所示。IfVal(text1)>=500thentext2=Val(text1)*0.7ElseifVal(text1)>=300thentext2=Val(text1)*0.85ElseifVal(text1)>=200thentext2=val(text1)*0.9Elseifval(text1)>=100thentext2=val(text1)*0.95Endif結(jié)果如圖5所示。窗體的裝入事件中加入如下代碼：EndifNextiPrintstr(i*j);spacNextjNextj選按鈕，則程序作10和2的相加，計算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。乘法單選按鈕的單擊事件中添加如下代碼：加法單選按鈕中添加如下代碼：減法單選按鈕中添加如下代碼：text1所示。Label1.caption=”星期天”+chr(13)+”(Sunday)”Label1.caption=”星期一”+chr(13)+”(monday)”Label1.caption=”星期二”+chr(13)+”(Tuesday)”Label1.caption=”星期三”+chr(13)+”(wednesday)”Label1.caption=”星期四”+chr(13)+”(thursday)”Label1.caption=”星期五”+chr(13)+”(firday)”Label1.caption=”星期六”+chr(13)+”(saturday)”Ifbutton=2thenMsgbox”youpressedrightbutton”Endif添加按鈕代碼：list1.additemtext1.Text1.text=””刪除:iflist1.text<>””thenList1.removeitem=list1.lisEndif修改:Ifcommand3.caption=“修改”thenCommand3.caption=”修改確認(rèn)”Ifcommand3.caption=”修改確認(rèn)”thenList1.list=list1.listindex>=text1.tCommand3.caption=”修改”EndifEndif中加入file1.Path=dir1.入file1.Path=dir1.Path代碼。A.(0,0)B.直線起點C.直A200,200）到(500,500)B.（200,200）到(300,300)C.（200,200）到(700,700)D.（300,300）到(500,500)A.DrawstyleB.BordC．執(zhí)行語句Picture1.picture=“”A.open“text.dat”forwrB.open“text.dat”C.open“text.daD.open“text.dat”forRA.Print#1,recB.Write#1,recC.PutA只包含擴(kuò)展文件名為”*.bat”的文件B。第一個bat文件A．ADOrs.New“Select*From學(xué)生基本情況表”B．ADOrs.Open“Select*From學(xué)生基本情況表”C．ADOrs.Execute“Select*From學(xué)生基本情況表”A．DimxlAsExcel.ApplicationB.DimxlAsExcC.DimxlAsExcel.WorksheetD.DimxlAsExcel.W為filecopy“c:\”,”d:\” open”SEQOLD.DAT”for7.Stretch屬性設(shè)置為_false_時,圖像框可自動改變大小以適應(yīng)其中的圖形.8.在圖片框Picture1中畫一個左上角在(500,500),邊長為500的紅色實心正方形的語句為_picture1.line(500,500)-step(500,500),vbred,BF。9.設(shè)CurrentX=50,CurrentY=100,執(zhí)行指令”line(100,20)-Step(300,500)”后,Current=_(400,520)_.10.使用ADO模型時,可通過_ActiveConnect_屬性建立Recordset和Connection對象的連接.11.VB中將數(shù)據(jù)庫分為本地數(shù)據(jù)庫、遠(yuǎn)程數(shù)據(jù)庫和外部數(shù)據(jù)庫_三種類型.12.采用ADO模型時,當(dāng)使用Op句是_ADOrs(“符號”)_.等三類不返回結(jié)果集的SQL語句.fromTabel1Where學(xué)號=’”+Str1+”’”后,StrSQL的值等于_”select.*fromtabel1where學(xué)號=’001’”_.picture1.picture=loadpicturefile1.filename如圖窗體的單擊事件中添加如下代碼：Form1.scale(-2*3.14159,1)-(Form1.line(-2*3.14159,0)-(2*3.141Form1.currentx=0.2：form1.currentY=-0.Form1.currentx=-3.2：form1.currentY=-0.1:Form1.currentx=3.3：form1.currentY=-0.1Form1.currentx=-6.2：form1.currentY=-0.1:pForm1.currentx=5.7：form1.currentY=-0.1:Form1.currentx=0.2：form1.currentY=0.5:Form1.currentx=0.2：form1.currentY=-0.5:pForm1.pset(I,cos(INextI復(fù)選框的單擊事件代碼：Ifcheck1.value=1thenLine1.borderwidth=4Endif實線、虛線、單選框要弄成一個option1單選框控件數(shù)組。單選框單擊事件代4.使用Shape控件顯示幾種圖形,并可以設(shè)所示.首先按圖作出程序界面。形狀框架里的單選框要做成option單選框最成option2控件數(shù)組，填充風(fēng)格框架里的單選做成option3控件數(shù)組。5.使用SQLServer或Access建立名稱為”學(xué)生的數(shù)據(jù)庫,并在其中創(chuàng)建”students”的數(shù)據(jù)庫表,其結(jié)構(gòu)及初始記錄如表1所示.使用PrivateADOcnAsconnecPrivatesubreadfromtable()DimADOrsAsnewrecoADOrs.activeconnection=ADADOrs.open“select*fromstudentsorderby“學(xué)號”MSFlexgrid1.cols=3Strtmp=“學(xué)號”+vbtab+“姓名”+vbtab+“專業(yè)”MSFlexgrid1.additemsDowhilenotADOrs.eofStrtmp=ADOrs(“學(xué)號”)+vbtab+ADOrs(“姓名”)+vbMSFlexgrid1.addttemsMSFlexgrid1.fixedcolstrDB=”provider=SQLOLEDB;LSF;UserID=sa;password=;database=學(xué)生”ifADOcnisnothingthensetADOcn=newconnectionEndifPrivatesubcommand1_cliUnloadme二、填空題。要發(fā)送數(shù)據(jù)，則通常使用該控件的senddata方法。6、Winsock控件的BytesReceived屬性返回接受到些數(shù)據(jù)了。三、問答題。Socket在計算機(jī)提供了一個通信端口，可以通過這個端口與任何一個也同時具有Sock只需要對Socket接口進(jìn)行數(shù)據(jù)的讀寫操作就可以了。（2）分離受懷疑的程序要其他應(yīng)用和諧沒有使用過的值均可，但習(xí)慣上應(yīng)大于1000（B）使用LISTRN方法使用服務(wù)器進(jìn)入偵聽狀態(tài)，等待客戶機(jī)程序的連接請求。（C）客戶機(jī)程序發(fā)出連接請求后，將觸發(fā)服務(wù)器程序的CONNECTIONREQUEST事件，（D）服務(wù)器程序使用ACCEPT方法接受客戶機(jī)程序的R