VisualBasic程序設(shè)計(jì)形成性考核冊作業(yè)及答案

1、Visual Basic程序設(shè)計(jì)形成性考核冊作業(yè)及答案2012年Visual Basic程序設(shè)計(jì)形成性考核冊作業(yè)及答案作業(yè)1 一、選擇題1、在設(shè)計(jì)應(yīng)用程序時(shí)，可以查看到應(yīng)用程序工程所有組成部分的窗口是（D）。 A、窗體設(shè)計(jì) B、代碼 C、屬性 D、工程資源管理器窗口2、窗體的load事件的觸發(fā)時(shí)機(jī)是（B）。A、用戶單擊窗體時(shí) B、窗體被加載時(shí) C、窗體顯示之后 D、窗體卸載時(shí)3、與傳統(tǒng)的程序設(shè)計(jì)語言相比，Visual Basic 最突出的特點(diǎn)是（C）。 A、結(jié)構(gòu)化程序設(shè)計(jì) B、程序開發(fā)環(huán)境 C、事件驅(qū)動(dòng)編程機(jī)制 D、程序調(diào)試技術(shù)4、VB6.0集成開發(fā)環(huán)境的主窗口中不包括（C）。 A、標(biāo)題欄 B

2、、菜單欄 C、狀態(tài)欄 D、工具欄5、如果對象的名稱為Mytext ,而且對象有一個(gè)屬性Text，那么在代碼中引用該屬性的正確格式是（B）。 A、 text.Mytext B、Mytext.Text C、Mytext.(Text) D、Mytext*Text6、下列可以激活屬性窗口的操作是（D）。 A、用鼠標(biāo)雙擊窗體的任何部位 B、執(zhí)行“工程“菜單中的”屬性窗口“命令 C、按Ctrl+F4 D、按F47、假定已在窗體上畫了多個(gè)控件，并有一個(gè)控件是活動(dòng)的，為了在屬性窗口中設(shè)置窗體的屬性，預(yù)先應(yīng)執(zhí)行的操作是（A）。 A、單擊窗體上沒有控件的地方 B、單擊任一個(gè)控件 C、不執(zhí)行任何操作 D、雙擊窗體的

3、標(biāo)題欄8、如果要在文本框鍵入字符時(shí)，只顯示某個(gè)字符，如果（*），應(yīng)設(shè)置文本框的（B）屬性。 A 、Caption B、PasswordChar C、Text D、Char9、如果想要在文本框中的內(nèi)容在運(yùn)行時(shí)不能編輯，需要文本框的（A）屬性設(shè)置為True.A Locked B、MultiLine C、TabStop DVisible10 對于定時(shí)器（Tiner）控制，設(shè)置其定時(shí)是否開啟的屬性是（C）A、Index B、Tag C、Enabled D、Left11、要在窗口體Fornl 內(nèi)顯示“myfrm”使用的語句是（ C）A、Form.caption=“myfrm”B、Fornl.captio

4、n=“myfrm”C、forml.print“myfrm”D、form.print“myfrm”12、對象的性質(zhì)和狀態(tài)特征稱為（C）A、事件 B、方法 C、屬性 D、類13、下列正確的賦值語句是（B）A、x+y=20 B、y=x+20 C、3x=y D、s=14、當(dāng)使用上下文相關(guān)的幫助時(shí)，選擇要幫助的內(nèi)容，然后按（D）鍵，就可出現(xiàn)MSDN窗口直接顯示所需的幫助信息。 A、Help B、F10 C、Ese D、F115、將調(diào)試通過的工程經(jīng)“文件”菜單的“生成.exe文件“編繹成名.exe后，將該可執(zhí)行文件放到其它機(jī)器上不能運(yùn)行的主要原因是（D）。A、運(yùn)行的機(jī)器上無VB系統(tǒng) B、缺少.frm 窗體

5、文件 C、該執(zhí)行文件有病毒 D、以上原因都不對二、填空題1、當(dāng)進(jìn)入VB集成開發(fā)環(huán)境后，發(fā)現(xiàn)沒有顯示“工具箱”窗口。應(yīng)選擇 視圖 菜單的 工具箱 選項(xiàng)，使“工具箱”窗口顯示。2、在VB中，事件過程名由 對象名 和 事件名 構(gòu)成。3、工程文件的擴(kuò)展名是 vbp ，窗體文件擴(kuò)展名是 frm 。4、對象時(shí)代碼和數(shù)據(jù)的集合，例如，Visual Basic 中的 窗體 、 按鈕 、 文本框 等都是對象。5、對象的方法用于 實(shí)施某種操作功能 。當(dāng)方法不需要任何參數(shù)并且也沒有返回值，調(diào)用對象的方法的格式為 對象名.方法名 。例如對窗體Forml 使用Show 方法，應(yīng)寫成 form1.show 。6、要使文本

6、框顯示滾動(dòng)條，需要將其 ScrollBars 屬性設(shè)置為 3 。7、欲設(shè)置定時(shí)的時(shí)間間隔為4秒，則屬性Interval 的值為 4000 。8、要使標(biāo)簽框的大小隨Caption屬性做自動(dòng)調(diào)整，應(yīng)將 AutoSize 屬性設(shè)置為 True 。9、通過 窗體布局窗口 可以在設(shè)計(jì)時(shí)直觀地調(diào)整窗體在屏幕的位置。10、要想在代碼中給名為 txtshow 的文框賦予文本：GOOD WORK！時(shí)，應(yīng)當(dāng)編寫的語句是 txtshow.text=” GOOD WORK！” 。11、若命令按鈕的名稱為Cmdopen，程序要求單擊以上命令按鈕，打開一個(gè)窗口frml,請對以下事件過程填空。Private Sub Cmd

7、open click() Frm1.show End Sud12、事件就是對象上所發(fā)生的事情，Visual Basic中的事件如 單擊 、 裝入 、鼠標(biāo)移動(dòng) 等。一個(gè)對象響應(yīng)的事件可以有 多 個(gè)，用戶不能建立新的事件。事件過程是指 響應(yīng)某個(gè)事件后所執(zhí)行的代碼 。假設(shè)某一事件過程如下：Private Sub cmd1_Click() Form1.Caption=”VB示例”End Sub則響應(yīng)過程的對象名是 cmd1 ，事件名是 Click 。 13、對象的方法用于 在對象上實(shí)施某種操作功能 。當(dāng)方法不需要任何參數(shù)并且也沒有返回值，調(diào)用對象的方法格式為 對象名.方法名 ，例如，對窗體Form1

8、使用Show 方法，應(yīng)寫成 Form1 .Show 。14、為了在編寫代碼時(shí)能自動(dòng)語法檢查，必須執(zhí)行 工具 菜單中的 選項(xiàng) 命令，打開 選項(xiàng) 對話框，然后選擇“編輯器”選項(xiàng)卡中的 自動(dòng)語法檢測 。15、定時(shí)器（Timer）控件可識(shí)別的事件是 Timer ，了生該事件的時(shí)間間隔定時(shí)由定時(shí)器的 Interval 屬性設(shè)置，其單位為 毫秒 。 三、問答題1、什么是可視化編程和事件驅(qū)動(dòng)？ 答：可視化編程是指無須編程，僅通過直觀的操作方式即可完成界面的設(shè)計(jì)工作的這種編程方式。當(dāng)VB的應(yīng)用程序運(yùn)行后，系統(tǒng)處于等待狀態(tài)，當(dāng)某個(gè)事件發(fā)生后，程序就去執(zhí)行此事件的事件過程，當(dāng)這個(gè)事件過程執(zhí)行完后，系統(tǒng)又處于等待另

9、一個(gè)事件發(fā)生的狀態(tài)，這就是事件驅(qū)動(dòng)程序方式。2、對象、屬性、事件和文件之間的關(guān)系如何？答：對象是代碼和數(shù)據(jù)的封裝體。對象的操作通過與該對象有關(guān)的屬性、事件、方法來描述。屬性是一個(gè)對象的基本特性，每個(gè)對象都有它自己的屬性。方法是對象要執(zhí)行的動(dòng)作。事件是在對象上所發(fā)生的事情。3、簡述事件驅(qū)動(dòng)機(jī)制與傳統(tǒng)編程方式的不同。答：傳統(tǒng)的面向過程的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行那一部分代碼按何種順序執(zhí)行代碼，程序從第一行代碼開始執(zhí)行并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，用戶無法改變程序的執(zhí)行流程。而事件驅(qū)動(dòng)機(jī)制則由用戶來決定執(zhí)行的路線。這就是兩者的不同。4、簡述事件驅(qū)動(dòng)的工作過程。答：事件驅(qū)動(dòng)的工作過程如下：（1

10、）啟動(dòng)應(yīng)用程序，裝載和顯示窗體。（2）窗體或窗體上的控件等待事件的發(fā)生。（3）當(dāng)某個(gè)事件發(fā)生后，執(zhí)行其對應(yīng)的事件過程代碼。（4）重復(fù)執(zhí)行（2）和（3），直到遇到END語句或單擊“結(jié)束”按鈕停止程序的運(yùn)行。四、程序設(shè)計(jì)題1、在窗體上添加一個(gè)文本框和兩個(gè)命令按鈕，并把兩個(gè)命令按鈕的標(biāo)題分別設(shè)置為“隱藏文本框”和“顯示文本框”。當(dāng)單擊第一個(gè)命令按鈕時(shí)，文本框消失；而當(dāng)單擊第二個(gè)命令按鈕時(shí)，文本框重新出現(xiàn)，并在文本框中顯示“VB程序設(shè)計(jì)”（字體大小為16）。程序運(yùn)行界面如圖所示。圖1解：“隱藏文本框”按鈕中的代碼為：Text1.Visible=False“顯示文本框” 按鈕中的代碼為：Text1.Vi

11、sible=True Text1.Text=”VB程序設(shè)計(jì)” Text1.FontSize=”16”2、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖2所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command3）組成。程序運(yùn)行后，用戶按清除按鈕，則清除文本框中顯示的內(nèi)容，按計(jì)算按鈕，則計(jì)算三科平均成績。單擊退出按鈕則退出。解：command1中的代碼為：text1=”： text2=”： text3=”： text4=”command2中的代碼

12、為：text4=(val(Text1)+ val(Text2)+ val(Text3)/3command2中的代碼為：End3、編寫一收款計(jì)算程序。要求用戶輸入商品的“單價(jià)”、“數(shù)量”和“折扣”后，單擊“計(jì)算”按鈕顯示“應(yīng)付款”，單擊“清除”按鈕，清除文本框中所有的數(shù)據(jù)。程序運(yùn)行界面如圖3所示。答：“計(jì)算”按鈕的代碼：text4=val(Text1)* val(Text2)* val(Text3)/100“清除”按鈕的代碼：text1=”： text2=”： text3=”： text4=”作業(yè)2 一、選擇題1按照變量的作用域可將變量劃分為（ B ）。A、公有、私有、系統(tǒng) B、全局變量、模塊級(jí)

13、變量、過程變量C、動(dòng)態(tài)、常數(shù)、靜態(tài) D、Public、Private、Protected2. 可獲得字符的ASCII碼的函數(shù)是（C）。、Val、Fix、Asc 、Chr3、要退出Do.Loop循環(huán)，可使用的語句的（D）語句。A、Exit B、Exit For C、End Do D、Exit Do4. 把數(shù)值型轉(zhuǎn)換為字符串型需要使用的函數(shù)是（B）。A、Val B、Str C、Asc D、Chr5.關(guān)于語句行，下列說法正確的是（B）。一行只能寫一條語句一條語句可以分多行書寫每行的首字符必須大寫 長度不能超過255個(gè)字符表達(dá)式6+10 Mod 4*2+1的值是（A）11 C D.37.以下可以作為i

14、sual Basic 變量名的是（B）SIN B.CO1 C.COS(X) D.X(-1)8.表達(dá)式bs(-5)+Len(“ABCDE”)的值為（C）5ABCDE.5ABCDE C.10 D.09.在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用續(xù)行字符（A），表示下一行是當(dāng)前行的繼續(xù)一個(gè)空格加一個(gè)下劃字符（）一個(gè)下劃字符（）直接回車 一個(gè)空格加一個(gè)字符（）10.Sub過程與Function過程最根本的區(qū)別是（D）Sub過程可以使用all語句或直接使用過程名調(diào)用，而Function過程不可以Function過程可以有參數(shù)，Sub過程不可以兩種過程參數(shù)

15、的傳遞方式不同Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值11.是小于80的非負(fù)數(shù)，用VB表達(dá)式表示正確的是（C）. A.0X80 B.0=X80 C.0=x and x80 D.0=x Orx8012.在設(shè)計(jì)菜單時(shí),如果要在菜單中加入一個(gè)菜單分隔條,則菜單分隔條的標(biāo)題必須設(shè)置為(B )A.加號(hào)(+) B.減號(hào)(-) C.星號(hào)(*) D.感嘆號(hào)(!)13.如果要在程序中顯示一個(gè)彈出式菜單,那么要調(diào)用Visual Basic中提供的方法是(D). A.Print B.Move C.Refresh D.PopupMenu14.下列可以用來存儲(chǔ)圖像供其他對象使用的控件是(

16、C ). A.ToolBar B.StatursBar C.ImageList D.TreeView15.當(dāng)單擊工具攔上的按扭時(shí),會(huì)觸發(fā)的事件是(A ). A.ButtonClick B.Change C.Load D.KeyPress16.要利用公用對話框控件來顯示”打開文件”對話框,需要調(diào)用控件的(B )方法. A.ShowPrinter B.ShowOpen C.ShowSave D.ShowColor17.對于窗體級(jí)變量,下列說法中錯(cuò)誤的是(C ).A.所在窗體的各子程序都可以訪問B.其他窗體的子程序不能訪問C.所在窗體發(fā)子程序不能訪問用Private定義的窗體級(jí)變量D.一定要在所在窗

17、體的通用區(qū)內(nèi)定義18.從一個(gè)字符串中的第3個(gè)字符開始,獲取5個(gè)字符,應(yīng)使用(B) A.Len函數(shù) B.Mid函數(shù) C.Left函數(shù) D.Right函數(shù)19.用下面的語句所定義的數(shù)組的元素的個(gè)數(shù)是(D ). DimA(-3 To 5)As Integer A.6 B.7 C.8 D.920.有如下程序段:Dim strl As String*5Strl=”Visual Basic”當(dāng)該段程序被執(zhí)行完時(shí),變量strl的值為(B ). A.”Visual” B.”Visua” C.”V” D.”Visual Basic”二、填空題1菜單一般有_下拉式_和_彈出式_兩種基本類型。2通用對話框控件可顯示

18、的常用對話框有_打開_、_保存_、_顏色_、_字體_、_打印_。3組合框具有_文本框_和_列表框_兩種控件的基本功能。4要使數(shù)組的默認(rèn)下標(biāo)從“1開始，則應(yīng)在窗體或標(biāo)準(zhǔn)模塊代碼的聲明部分使用語句_Option Base 1_。5調(diào)用Sub過程時(shí)，使用_call_語句,語句用于把程序控制傳送到一個(gè)Visual Basic的Sub過程。6若已建立了Form1和Form2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為Form1。通過_工程_菜單_屬性_命令的_通用_選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Form2。在程序中若要顯示Form1窗體，則執(zhí)行_Form1.show_語句。7列表框中項(xiàng)目的序號(hào)是從_0_開始的。8Sub過程與F

19、unction過程最根本的區(qū)別是_Sub過程名無返回值，F(xiàn)unction過程名有返回值 。9VB的代碼存儲(chǔ)在模塊中。在VB中提供了三種類型的模塊：_類模塊_、_窗體模塊_和_標(biāo)準(zhǔn)模塊_。10使用Hide方法會(huì)隱藏被調(diào)用的窗體，但是在調(diào)用Hide方法之后不會(huì)把窗體_卸載_，被調(diào)用的窗體中的屬性等已處于_內(nèi)存中_。11將下列數(shù)學(xué)式子寫成VisualBasic表達(dá)式。 答：2*cos(a)*sin(a)/(2*a) 答：sqr(s*(s-a)*(s-b)*(s-c) sin45:sin(45*2*3.1415/360)_12.將下列數(shù)學(xué)式子各條件寫成VisualBasic邏輯表達(dá)式。 1x12: 1

20、=x and x=C OR (a-c)=0 and b=0) or (a=0 and b=0)13設(shè)A=2，B=3，C=4，D=5。表達(dá)式Not A=C Or4*B2 And BA+C的值為_False_。14在Visual Basic語言中有三種形式的循環(huán)結(jié)構(gòu)。其中，若循環(huán)的次數(shù)可以事先確定，可使用_Fornext_循環(huán)；若要求先判斷循環(huán)進(jìn)行的條件，可使用_Do whileloop_循環(huán)或_ whileWend_循環(huán)。15以下語句的輸出結(jié)果是_3_。a%=3.14159Print a%三、閱讀下列程序，寫出程序運(yùn)行結(jié)果。1、Private Sub Form_Click( ) Static S

21、um As Integer For I= 1 to 100 Sum=Sum+I Next IPrint Sum End Sub程序運(yùn)行結(jié)果為：1+2+.+99+100=50502、private Sub Form_Click( ) A=10: b=15:c=20:d=25 Print A;Spc(5);b;Spc(7);c Print A;Spc(8);b;Space$(5);c Print c;Spc(3);”+”;Spc(3);c+d End Sub10(5個(gè)空格)15(7個(gè)空格)2010(8個(gè)空格)15(5個(gè)空格)2020(三個(gè)空格)+(三個(gè)空格)453、Private Sub Form

22、_click( ) For i% =1 to3 Forj% = 1 to i Print L Trim(Str(i%)+ “*”+L Trim(Str(j%)+ “=”;i% * j%; Next j% PrintNext i%End Sub1*1= 12*1= 2 2*2= 43*1= 3 3*2= 6 3*3= 9 4、Private Sub Command1_Click( ) Dim a,b As Integer A=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1顯示3 、4Text2顯示35、Private Sub Form_Click() F

23、or I =1 to 5 Print Tab( 11 I ) For J =1 To I * 2 1 Print “*”; Next Next iEnd Sub * * * * *四、程序設(shè)計(jì)題1、購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗體上添加兩個(gè)文本框和一個(gè)命令按鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸入優(yōu)惠后的價(jià)格。程序運(yùn)行結(jié)果如圖解所示。If Val(text1)=500

24、 then text2=Val(text1)*0.7Else if Val(text1)=300 then text2=Val(text1)*0.85 Else if Val(text1)=200 then text2=val(text1)*0.9 Else if val(text1)=100 then text2=val(text1)*0.95End if 2、輸出100200之間不能被3整除的的數(shù)，要求用Do語句的一種形式來實(shí)現(xiàn)，程序運(yùn)行結(jié)果如圖5所示。窗體的裝入事件中加入如下代碼：Dim a as integerA=100Do while a =200If (a mod 3) 0 the

25、nList1.additen str(a)End ifA=a+1loop3、編寫程序，打印如下的乘積表：Dim I ,j as integerPrint”*”:space(5):For i=3 to 12 step 3Print str(i);space(5);Next iPrintFor I = 15 to18Print str(i);space(3);For j=3 to 12 step3Print str(i*j);space(4);Next jPrint Next j4、設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖7所示。要求程序運(yùn)行后，用戶選中單擊選按鈕，則程序作10和2的相應(yīng)計(jì)算，并把計(jì)算

26、結(jié)果在文本框中顯示出來。如用戶選中加法單選按鈕，則程序作10和2的相加，計(jì)算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。乘法單選按鈕的單擊事件中添加如下代碼：Text1=10*2除法單選按鈕中添加如下代碼：Text1=10/2加法單選按鈕中添加如下代碼：Text1=10+2減法單選按鈕中添加如下代碼：text1=10-2結(jié)束按鈕中代碼: end 或unload me5、編寫輸入一個(gè)06數(shù)字，顯示漢字對照輸出星期的Function過程。程序運(yùn)行結(jié)果如圖8所示。文本框的change事件中代碼如下:Select case val(text1)Case 0Label1.caption=”星期天”+ch

27、r(13)+”(Sunday)”Case 1Label1.caption=”星期一”+chr(13)+”(monday)”Case2Label1.caption=”星期二”+chr(13)+”(Tuesday)”Case 3Label1.caption=”星期三”+chr(13)+”(wednesday)”Case 4Label1.caption=”星期四”+chr(13)+”(thursday)”Case 5Label1.caption=”星期五”+chr(13)+”(firday)”Case 6Label1.caption=”星期六”+chr(13)+”(saturday)”End sel

28、ect6、編寫一個(gè)程序，當(dāng)鼠標(biāo)移到Picturel控件時(shí)，鼠標(biāo)指針改變形狀；當(dāng)在Picturel控件上單擊鼠標(biāo)右鍵時(shí)，通過消息框顯示“You pressed right button”，并再次改變鼠標(biāo)指針的形狀。Picture1_mouseupIf button=2 thenI=1Msgbox” you pressed right button”End if End sub7、列表框應(yīng)用程序。要求從文本框中輸入姓名，然后按“添加”按鈕，把姓名添加到列表框中；當(dāng)選擇列表框中某一項(xiàng)時(shí)，按“刪除”按鈕，從列表框中刪除；當(dāng)列表框中某一項(xiàng)時(shí)，按“修改”按鈕，把列表框中選取的項(xiàng)送往文本框且“修改”按鈕變?yōu)?/p>

29、“修改確認(rèn)”。在文本框的內(nèi)容修改好后，按“修改確認(rèn)”按鈕，再把文本框中修改后的信息送到列表框且“修改確認(rèn)”按鈕變?yōu)椤靶薷摹?。程序運(yùn)行結(jié)果如圖9所示。添加按鈕代碼：list1.additem text1.textText1.text=”刪除: if list1.text” thenList1.removeitem =list1.listindexEnd if修改:If command3.caption=“修改” thenText1.text=list1.textCommand3.caption=”修改確認(rèn)”ElseIf command3.caption=”修改確認(rèn)” thenList1.list

30、=list1.listindex=text1.textCommand3.caption=”修改”End ifEnd if作業(yè)3 一、選擇題1、Visible Basic根據(jù)計(jì)算機(jī)訪問文件的方式將文件分成三類，其中不包括（B）A順序文件 B. Unix文件 C. 二進(jìn)制文件 D. 隨機(jī)文件2、隨機(jī)文件進(jìn)行文件讀取的單位是（B）A字節(jié) B。記錄 C。整個(gè)文件 D。字符3、為了使目錄路徑列表框Dir1的內(nèi)容符合驅(qū)動(dòng)器列表框Drive1的選擇，應(yīng)當(dāng)（B）。A 在Dir1_Click事件中加入Dir1.Path=Drive1.DriveB 在Drive1_Click事件中加入Dir1.Path=Driv

31、e1.DriveC 在Dir1_Click事件中加入Drive1.Path= Dir1.DriveD在Dir1_Click事件中加入Drive1.Path= Dir1.Drive4、為了使drive1驅(qū)動(dòng)器列表框、dir1目錄路徑列表框和file1文件列表框能同步協(xié)調(diào)工作，需要在（B）A drive1的Change事件過程中加入drive1.Drive=dir1.Path，在dir1的Change事件過程中加入dir1.Path=file1.Path代碼。B drive1的Change事件過程中加入dir1.Path = drive1.Drive，在dir1的Change事件過程中加入file

32、1.Path =dir1.Path代碼。C dir1的Change事件過程中加入dir1.Path = drive1.Drive，在file1的Click事件過程中加入file1.Path =file1.fileName代碼。Ddir1的Change事件過程中加入dir1.Path = drive1.Drive，在file1的Click事件過程中加入file1.Path =dir1.Path代碼。5、下面關(guān)于順序文件的描述正確的是（A）A 每條記錄的長度必須相同B 可通過編程對文件中的某條記錄方便地修改C 數(shù)據(jù)只能以ASCII碼形式存放在文件中，所以可通過文本編輯軟件顯示D文件的組織結(jié)構(gòu)復(fù)雜6

33、、KILL語句在VB語言中的功能是（C）。A清內(nèi)存 B。清病毒 C。刪除磁盤上的文件 D。清屏幕7、可用來改變坐標(biāo)度量單位的是（D）A. Drawstyle屬性 B. DrawWidth屬性 C. Scale方法 D. ScaleMode屬性8、以下的屬性和方法中，可重定義坐標(biāo)系的是（C）ADrawstyle屬性 B.DrawWidth屬性 C. Scale D. ScaleMode屬性9、當(dāng)用Line方法畫直線后，當(dāng)前坐標(biāo)在（C）A.(0,0) B.直線起點(diǎn) C. 直線終點(diǎn) D. 容器的中心10、Line (200, 200)-Step( 500, 500)將在窗體（C）畫一直線。A（200

34、, 200）到(500, 500) B. （200, 200）到(300, 300)C. （200, 200）到(700, 700) D. （300, 300）到(500, 500)11、設(shè)置對象的邊框類型的屬性是（B）。A. Drawstyle B. Borderstyle C. DrawWidth D. ScaleMode12、為了清除圖片框Picture1中的圖形，應(yīng)采取的正確方法是（B）A 選擇圖片框，然后按Del鍵B 執(zhí)行語句Picture1.picture=LoadPicture(“”)C 執(zhí)行語句Picture1.picture= “”D選擇圖片框，在屬性窗口中選擇Picture

35、屬性條，然后按回車鍵13、繪制多種形狀的圖形，需要設(shè)置Shape控件的（A）屬性。 AShape B.Borderstyle C. FillStyle D. Style14、繪制多種形狀的直線，需要設(shè)置Line控件的（B）屬性。 AShape B.Borderstyle C. FillStyle D. Style15、如果準(zhǔn)備讀文件，打開順序文件“text.dat”的正確語句是（C）A. open “text.dat” for write As #1B. open “text.dat” for Binary As #1C. open “text.dat” for Input As #1D. o

36、pen “text.dat” for Random As #116、如果準(zhǔn)備向隨機(jī)文件中寫入數(shù)據(jù)，正確的語句是（C）A. Print #1, rec B. Write #1, rec C. Put #1, rec D. Get #1, rec17、下列“CommandDialog1”控件程序代碼，CommandDialog1.Action=1，代表（B）A文件另存為 B. 打開文件 C. 色彩 D. 打印18、FileFilter.Pattern=”*.bat” 程序代碼執(zhí)行后，會(huì)顯示（A）。A 只包含擴(kuò)展文件名為”*.bat”的文件 B。 第一個(gè)bat文件C 包含所有的文件 D。 會(huì)顯示磁盤

37、的路徑19、下列數(shù)據(jù)對象模型中采用OLE DB訪問數(shù)據(jù)庫的是（C）。A DAO B. RDO C. ADO D. RDO和ADO20. 設(shè)ADOrs為Recordset對象，從“學(xué)生基本情況表”中獲取所有記錄的語句是（B）A ADOrs.New “Select * From 學(xué)生基本情況表”B ADOrs.Open “Select * From 學(xué)生基本情況表”C ADOrs.Execute “Select * From 學(xué)生基本情況表”DADOrs. Select “Select * From 學(xué)生基本情況表”21、VB中將變量xl聲明為Excel應(yīng)用程序?qū)ο蟮姆椒ㄊ牵ˋ）A Dim xl

38、As Excel.Application B. Dim xl As Excel.WorkbookC. Dim xl As Excel.Worksheet D. Dim xl As Excel.Worksheets二、填空題1、如果要新建一個(gè)順序文件，用Open語句時(shí)，操作方式關(guān)鍵詞是 output 。2在Visual Basic程序中實(shí)現(xiàn)復(fù)制文件“C：”到D:盤根目錄下的語句為 filecopy “c:”,”d:” 。3. 在Visual Basic程序中實(shí)現(xiàn)刪除文件”D:tem.tmp”的語句為_kill ”d:tem.tmp” 。4.按文件號(hào)為1打開順序文件SEQNEW.DAT,用于寫入數(shù)

39、據(jù),語句為_open ”SEQNEW.DAT” for output as # 1 。5.按文件號(hào)為2打開順序文件SEQOLD.DAT,用于從該文件讀出數(shù)據(jù),語句為_open ”SEQOLD.DAT” for input as #2 。6.若窗體的左上角坐標(biāo)為(-200,250),右下角坐標(biāo)為(300,-150),則X軸的正向向 右 ，Y軸的正向向 上_。7.Stretch屬性設(shè)置為_false_時(shí),圖像框可自動(dòng)改變大小以適應(yīng)其中的圖形.8.在圖片框Picture1中畫一個(gè)左上角在(500,500),邊長為500的紅色實(shí)心正方形的語句為_picture1.line (500,500)-step

40、(500,500), vbred , BF 。9.設(shè) CurrentX=50,CurrentY=100,執(zhí)行指令”line(100,20)-Step(300,500)”后,Current=_(400,520)_.10.使用ADO模型時(shí),可通過_ActiveConnect_屬性建立Recordset和Connection對象的連接.11.VB中將數(shù)據(jù)庫分為本地?cái)?shù)據(jù)庫、 遠(yuǎn)程數(shù)據(jù)庫和_外部數(shù)據(jù)庫_三種類型.12.采用ADO模型時(shí),當(dāng)使用Open方法打開一個(gè)記錄集后,與ADOrs.Fields(“學(xué)號(hào)”)等效的語句是_ADOrs(“符號(hào)”)_.13.ADO模型中一般可通過Connection對象的E

41、xecute方法執(zhí)行_增加_、_刪除_、_修改_等三類不返回結(jié)果集的SQL語句.14.設(shè)StrSQL、Str1為字符串變量,其中Str1的值為”001”,那么執(zhí)行賦值語句StrSQL=”Select * from Tabel1 Where學(xué)號(hào)=”+Str1+”后,StrSQL的值等于_”select. * from tabel1 where 學(xué)號(hào)=001”_.15.在VB中,將Foxpro稱為外部數(shù)據(jù)庫,Access稱為_本地?cái)?shù)據(jù)庫_，SQL Server稱為_遠(yuǎn)程數(shù)據(jù)庫_.三、程序設(shè)計(jì)題1、在窗體上建立一個(gè)驅(qū)動(dòng)器列表框、目錄列表框、文件列表框、圖片框。要求程序運(yùn)行后，驅(qū)動(dòng)器列表框Drive1

42、的默認(rèn)驅(qū)動(dòng)器設(shè)置為C盤，選擇File1中所列的確圖片文件（*.Bmp和*.jpg），則相應(yīng)的圖片顯示在圖片框Picture1中。程序運(yùn)行結(jié)果如圖10所示。解：依據(jù)圖10設(shè)計(jì)界面，文件列表框的pattern屬性設(shè)置為：*.Bmp ; *.jpg驅(qū)動(dòng)器列表框的change事件中添加如下代碼：chdrive drive1.drivedir1.path=drive1.drive目錄列表框的change事件中添加如下代碼：chdir dir1.pathfile1.path=dir1.path文件列表框的click事件中添加如下代碼： picture1.picture=loadpicture file1.

43、filename2余弦曲線的方程為y=cosx，畫出x從-2到2的確余弦曲線，并在坐標(biāo)軸上標(biāo)出刻度，如圖11所示。如圖窗體的單擊事件中添加如下代碼：Form1.scale ( -2*3.14159,1)- (2*3.14159, -1)Form1.line (-2*3.14159,0)- (2*3.14159,0)Form1.line (0,1)-(0,-1)Form1.currentx =0.2：form1.currentY= -0.1:print ”0”Form1.currentx =-3.2：form1.currentY= -0.1:print ”-pi”Form1.currentx =

44、3.3：form1.currentY= -0.1:print ”pi”Form1.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”Form1.currentx =0.2：form1.currentY= -0.5:print ”-0.5”For I =-6.282 to 6.282 step 0.08Form1.pset(I, cos(I) Ne

45、xt I3,使用Line控件顯示直線,并且可以顯示直線的線寬和線型.程序運(yùn)行界面如圖12所示.如圖 添加代碼如下復(fù)選框的單擊事件代碼：If check1.value =1 then Line1.border width =4ElseLine1.border width = 1End if實(shí)線、虛線、單選框要弄成一個(gè)option1單選框控件數(shù)組。單選框單擊事件代碼：Select case indexCase 0Line1.borderstyle = 1Case 1Line1.borderstyle = 2Case 2Line1.borderstyle = 3End select4.使用Shape

46、控件顯示幾種圖形,并可以設(shè)置圖形的邊框和填充效果等.程序運(yùn)行界面如圖13所示.首先按圖作出程序界面。形狀框架里的單選框要做成option1控件數(shù)組，邊框類型框架里的單選框最成option2控件數(shù)組，填充風(fēng)格框架里的單選做成option3控件數(shù)組。Option 1單擊事件代碼如下：Select case indexCase 0Shape1.shape = 0Case 1Shape1.shape = 1Case 2Shape1.shape = 3Case 3Shape1.shape = 4End selectOption 2單擊事件代碼如下:Select case indexCase 0Shape

47、1.borderstyle = 0Case 1Shape1. borderstyle = 2Case 2Shape1. borderstyle = 1Case 3Shape1. borderstyle = 3 Case 4Shape1. borderstyle =4End selectOption 3單擊事件代碼如下:Select case indexCase 0Shape1.fillstyle = 1Case 1Shape1. fillstyle = 1Case 2Shape1. fillstyle = 3Case 3Shape1. fillstyle = 6End select5.使用SQ

48、L Server或Access建立名稱為”學(xué)生的數(shù)據(jù)庫,并在其中創(chuàng)建”students”的數(shù)據(jù)庫表,其結(jié)構(gòu)及初始記錄如表1所示.使用ADO對象和MSFlexGrid控件設(shè)計(jì)數(shù)據(jù)庫列表顯示程序.程序的設(shè)計(jì)界面和運(yùn)行結(jié)果如圖14、圖15所示。 表1學(xué)號(hào) 姓名 專業(yè)2004001 張紅 軟件專業(yè)2004003 李強(qiáng) 會(huì)計(jì)專業(yè)2004002 王麗 軟件專業(yè)聲名對象變量ADOcn，用于創(chuàng)建與數(shù)據(jù)庫的連接Private ADOcn As connectionReadfromtablePrivate sub readfromtable( )Dim strtmp As stringDim ADOrs As n

49、ew recordsetADOrs.activeconnection =ADOcnADOrs.open “select*from students order by “學(xué)號(hào)”MSFlexgrid1.clearMSFlexgrid1.rows = 0MSFlexgrid1.cols = 3Strtmp = “學(xué)號(hào)”+vbtab+“姓名”+vbtab+“專業(yè)”MSFlexgrid1.additem strtmpDo while not ADOrs.eofStrtmp=ADOrs(“學(xué)號(hào)”)+vbtab+ADOrs(“ 姓名”)+vbtab+ADOrs(“專業(yè)”)MSFlexgrid1.addtte

50、m strtmpADOrs movenextLoopMSFlexgrid1.fixedcols = 0MSFlexgrid1.fixedrows = 1End subPrivate sub form_load()Dim strDB As stringstrDB=”provider=SQLOLEDB;LSF;User ID=sa;password=;database=學(xué)生”if ADOcn is nothing thenset ADOcn=new connectionADOcn.open strDBEnd ifReadfrom tableEnd subPrivate sub command1_c

51、lick()Unload meEnd sub作業(yè)4 一、選擇題1、WinsockServer.LocalPort=10001語句的含義是（ A ）。A、設(shè)置偵聽端口 B、設(shè)置計(jì)算機(jī)IP地址 C、設(shè)置中斷地址 D、設(shè)置通訊協(xié)議2、當(dāng)Winsock控件處于關(guān)閉狀態(tài)時(shí)，其State屬性的值是（ B ）。A、1 B、0 C、2 D、63、相對于UDP協(xié)議而言，TCP協(xié)議是一種（ A ）。A、面向連接的協(xié)議 B、無連接協(xié)議 C、計(jì)算機(jī)間不建立連接 D、適用于傳送少量數(shù)據(jù)4、VB程序中通常不會(huì)產(chǎn)生錯(cuò)誤提示的（ D ）。A、編譯錯(cuò)誤 B、實(shí)時(shí)錯(cuò)誤 C、運(yùn)行時(shí)錯(cuò)誤 D、邏輯錯(cuò)誤5、VB程序的編譯錯(cuò)誤一般可通過VB集成環(huán)境的何種設(shè)置，自動(dòng)檢測（ B ）。A、要求變量聲明 B、自動(dòng)語法檢測 C、自動(dòng)顯示快速信息量 D、根本無法自動(dòng)檢測6、VB程序中設(shè)置斷點(diǎn)的按鍵是（ C ）。A、F5鍵 B、F6鍵 C、F9鍵 D、F10鍵 7、On Error Go To ErrLB語句中，ErrLB的含義是（ A ）。A、行標(biāo)識(shí)號(hào) B、SUB過程名 C、FUNCTION過程名 D、錯(cuò)誤號(hào)8、Err對象中，用來表示錯(cuò)誤描述的屬性是（ B ）。A、ErrNo B、Description C、Number D、Source二、填空題