Visual-Basic程序設(shè)計形成性考核冊作業(yè)答案二

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Visual Bsdic程序設(shè)計形成性考核冊作業(yè)答案二一、選擇題1按照變量的作用域可將變量劃分為（ B ）。A、公有、私有、系統(tǒng) B、全局變量、模塊級變量、過程變量C、動態(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)于語句行，下列說法正確的

2、是（B）。一行只能寫一條語句一條語句可以分多行書寫每行的首字符必須大寫 長度不能超過255個字符表達式6+10 Mod 4*2+1的值是（A）11 C D.37.以下可以作為isual Basic 變量名的是（B）SIN B.CO1 C.COS(X) D.X(-1)8.表達式bs(-5)+Len(“ABCDE”)的值為（C）5ABCDE.5ABCDE C.10 D.09.在代碼編輯器中，如果一條語句太長，無法在一行內(nèi)寫下（不包括注釋），要折行書寫，可以在行末使用續(xù)行字符（A），表示下一行是當前行的繼續(xù)一個空格加一個下劃字符（）一個下劃字符（）直接回車 一個空格加一個字符（）10.Sub過程與F

3、unction過程最根本的區(qū)別是（D）Sub過程可以使用all語句或直接使用過程名調(diào)用，而Function過程不可以Function過程可以有參數(shù)，Sub過程不可以兩種過程參數(shù)的傳遞方式不同Sub過程的過程名不能返回值，而Function過程能夠通過過程名返回值11.是小于80的非負數(shù)，用VB表達式表示正確的是（C）. A.0X80 B.0=X80 C.0=x and x80 D.0=x Orx8012.在設(shè)計菜單時,如果要在菜單中加入一個菜單分隔條,則菜單分隔條的標題必須設(shè)置為(B )A.加號(+) B.減號(-) C.星號(*) D.感嘆號(!)13.如果要在程序中顯示一個彈出式菜單,那么

4、要調(diào)用Visual Basic中提供的方法是(D). A.Print B.Move C.Refresh D.PopupMenu14.下列可以用來存儲圖像供其他對象使用的控件是(C ). A.ToolBar B.StatursBar C.ImageList D.TreeView15.當單擊工具攔上的按扭時,會觸發(fā)的事件是(A ). A.ButtonClick B.Change C.Load D.KeyPress16.要利用公用對話框控件來顯示”打開文件”對話框,需要調(diào)用控件的(B )方法. A.ShowPrinter B.ShowOpen C.ShowSave D.ShowColor17.對于窗

5、體級變量,下列說法中錯誤的是(C ).A.所在窗體的各子程序都可以訪問B.其他窗體的子程序不能訪問C.所在窗體發(fā)子程序不能訪問用Private定義的窗體級變量D.一定要在所在窗體的通用區(qū)內(nèi)定義18.從一個字符串中的第3個字符開始,獲取5個字符,應(yīng)使用(B) A.Len函數(shù) B.Mid函數(shù) C.Left函數(shù) D.Right函數(shù)19.用下面的語句所定義的數(shù)組的元素的個數(shù)是(D ). DimA(-3 To 5)As Integer A.6 B.7 C.8 D.920.有如下程序段:Dim strl As String*5Strl=”Visual Basic”當該段程序被執(zhí)行完時,變量strl的值為(

6、B ). A.”Visual” B.”Visua” C.”V” D.”Visual Basic”二、填空題1菜單一般有_下拉式_和_彈出式_兩種基本類型。2通用對話框控件可顯示的常用對話框有_打開_、_保存_、_顏色_、_字體_、_打印_。3組合框具有_文本框_和_列表框_兩種控件的基本功能。4要使數(shù)組的默認下標從“1開始，則應(yīng)在窗體或標準模塊代碼的聲明部分使用語句_Option Base 1_。5調(diào)用Sub過程時，使用_call_語句,語句用于把程序控制傳送到一個Visual Basic的Sub過程。6若已建立了Form1和Form2兩個窗體，默認啟動窗體為Form1。通過_工程_菜單_屬性

7、_命令的_通用_選項卡，可將啟動窗體設(shè)置為Form2。在程序中若要顯示Form1窗體，則執(zhí)行_Form1.show_語句。7列表框中項目的序號是從_0_開始的。8Sub過程與Function過程最根本的區(qū)別是_Sub過程名無返回值，F(xiàn)unction過程名有返回值 。9VB的代碼存儲在模塊中。在VB中提供了三種類型的模塊：_類模塊_、_窗體模塊_和_標準模塊_。10使用Hide方法會隱藏被調(diào)用的窗體，但是在調(diào)用Hide方法之后不會把窗體_卸載_，被調(diào)用的窗體中的屬性等已處于_內(nèi)存中_。11將下列數(shù)學式子寫成VisualBasic表達式。 答：2*cos(a)*sin(a)/(2*a) 答：sqr

8、(s*(s-a)*(s-b)*(s-c) sin45:sin(45*2*3.1415/360)_12.將下列數(shù)學式子各條件寫成VisualBasic邏輯表達式。 1x12: 1=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。表達式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)進行的條件，可使用_Do whileloop_循環(huán)或_ whileWend_循環(huán)。

9、15以下語句的輸出結(jié)果是_3_。a%=3.14159Print a%三、閱讀下列程序，寫出程序運行結(jié)果。1、Private Sub Form_Click( ) Static Sum As Integer For I= 1 to 100 Sum=Sum+I Next IPrint Sum End Sub程序運行結(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);”+”;S

10、pc(3);c+d End Sub10(5個空格)15(7個空格)2010(8個空格)15(5個空格)2020(三個空格)+(三個空格)453、Private Sub Form_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

11、A=3.4B=3.4Text1.Text=aText2.Text=bEnd SubText1顯示3 、4Text2顯示35、Private Sub Form_Click() For I =1 to 5 Print Tab( 11 I ) For J =1 To I * 2 1 Print “*”; Next Next iEnd Sub * * * * *四、程序設(shè)計題1、購物優(yōu)惠程序。某商場為了加速促成商品流通，采用購物打折的優(yōu)惠辦法，每位顧客一次購物（1）在100元以上者，按九五折優(yōu)惠；（2）在200元以上者，按九折優(yōu)惠；（3）300元以上者，按八折優(yōu)惠；（4）500元以上者按七折優(yōu)惠。在窗

12、體上添加兩個文本框和一個命令按鈕，要求在Text1中輸入購物商品總金額，單擊命令按鈕，在Text2中輸入優(yōu)惠后的價格。程序運行結(jié)果如圖解所示。If Val(text1)=500 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語句的一

13、種形式來實現(xiàn)，程序運行結(jié)果如圖5所示。窗體的裝入事件中加入如下代碼：Dim a as integerA=100Do while a =200If (a mod 3) 0 thenList1.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)

14、;space(4);Next jPrint Next j4、設(shè)計一個計算程序。該程序用戶界面如圖7所示。要求程序運行后，用戶選中單擊選按鈕，則程序作10和2的相應(yīng)計算，并把計算結(jié)果在文本框中顯示出來。如用戶選中加法單選按鈕，則程序作10和2的相加，計算結(jié)果12在文本框中顯示出來。按結(jié)束，則退出。乘法單選按鈕的單擊事件中添加如下代碼：Text1=10*2除法單選按鈕中添加如下代碼：Text1=10/2加法單選按鈕中添加如下代碼：Text1=10+2減法單選按鈕中添加如下代碼：text1=10-2結(jié)束按鈕中代碼: end 或unload me5、編寫輸入一個06數(shù)字，顯示漢字對照輸出星期的Func

15、tion過程。程序運行結(jié)果如圖8所示。文本框的change事件中代碼如下:Select case val(text1)Case 0Label1.caption=”星期天”+chr(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 5Label

16、1.caption=”星期五”+chr(13)+”(firday)”Case 6Label1.caption=”星期六”+chr(13)+”(saturday)”End select6、編寫一個程序，當鼠標移到Picturel控件時，鼠標指針改變形狀；當在Picturel控件上單擊鼠標右鍵時，通過消息框顯示“You pressed right button”，并再次改變鼠標指針的形狀。Picture1_mouseupIf button=2 thenI=1Msgbox” you pressed right button”End if End sub7、列表框應(yīng)用程序。要求從文本框中輸入姓名，然后按“添加”按鈕，把姓名添加到列表框中；當選擇列表框中某一項時，按“刪除”按鈕，從列表框中刪除；當列表框中某一項時，按“修改”按鈕，把列表框中選取的項送往文本框且“修改”按鈕變?yōu)椤靶薷拇_認”。在文本框的內(nèi)容修改好后，按“修改確認”按鈕，再把文本框中修改后的信息送到列表框且“修改確認”按鈕變?yōu)椤靶薷摹?。程序運行結(jié)果如圖9所示。添加按鈕代碼：list1.additem text1