07759visual basic程序設(shè)計(jì)2012年10月試卷

07759#VisualBasic程序設(shè)計(jì)試題第17頁（共17頁）絕密★考試結(jié)束前浙江省2012年10月高等教育自學(xué)考試VisualBasic程序設(shè)計(jì)試題課程代碼：07759本試卷分A、B卷，使用2003年版本教材的考生請做A卷，并將答題紙上卷別“A”涂黑；使用2012年版本教材的考生請做B卷，并將答題紙上卷別“B”涂黑。不涂或全涂，均以B卷記分。請考生按規(guī)定用筆將所有試題的答案涂、寫在答題紙上。A卷選擇題部分注意事項(xiàng)：1.答題前，考生務(wù)必將自己的考試課程名稱、姓名、準(zhǔn)考證號用黑色字跡的簽字筆或鋼筆填寫在答題紙規(guī)定的位置上。2.每小題選出答案后，用2B鉛筆把答題紙上對應(yīng)題目的答案標(biāo)號涂黑。如需改動，用橡皮擦干凈后，再選涂其他答案標(biāo)號。不能答在試題卷上。一、單項(xiàng)選擇題(本大題共10小題，每小題1分，共10分)在每小題列出的四個備選項(xiàng)中只有一個是符合題目要求的。錯選、多選或未選均無分。1.標(biāo)簽框控件標(biāo)題、文本框控件顯示文本的對齊方式由屬性決定。A.WordWrap B.AutoSizeC.Alignment D.Style2.文本框中選定的文本的長度，由屬性來反映。A.Seltext B.SellenghtC.Text D.Caption3.由“Fori=1To10Step-2”決定的循環(huán)結(jié)構(gòu)被執(zhí)行次。A.4 B.5C.6 D.04.執(zhí)行For循環(huán)結(jié)構(gòu)中的語句可結(jié)束該循環(huán)。A.ExitFor B.BreakForC.Break D.Exit5.讓復(fù)選框控件的事件過程不響應(yīng)事件，可修改控件的屬性。A.Appearance B.CaptionC.Enabled D.Tabstop6.列表框控件List1中，所有的表項(xiàng)的總數(shù)可以表示為A.List1.ListCount B.List1.ListCount-1C.List1.AddItem D.List1.DataField7.設(shè)置或使用屬性或方法，可以改變?nèi)萜鞯淖鴺?biāo)單位。A.DrawStyle B.ClsC.ScaleMode D.DrawWidth8.形狀控件所顯示的圖形不可能是A.圓 B.橢圓C.圓角正方形 D.等邊三角形9.語句“Circle(1000,1000),800,,,,2”中，最后的數(shù)字2表示A.橢圓的縱軸和橫軸長度比 B.橢圓的橫軸和縱軸長度比C.同心圓的半徑比 D.圓弧兩半徑間的夾角10.在設(shè)計(jì)菜單時為創(chuàng)建分隔欄，要在菜單編輯器該菜單項(xiàng)的中輸入單一字符“-”。A.名稱欄 B.標(biāo)題欄C.索引欄 D.顯示區(qū)二、判斷題（本大題共10小題，每小題1分，共10分）判斷下列各題，在答題紙相應(yīng)位置正確的涂“A”，錯誤的涂“B”。11.在窗體Load事件中的語句“Print"你好！"”，可以在窗體上顯示“你好！”。12.VB的Long類型數(shù)據(jù)只能精確表示其數(shù)值范圍內(nèi)的任何整數(shù)。13.窗體的ScaleTop、ScaleWidth屬性為數(shù)值，其單位長度只能是緹。14.決定對象可用性的屬性是Visible，決定對象可見性的屬性是Enabled。15.代碼窗口內(nèi)的不同過程中都聲明了同名的變量，他們是同一變量。16.在用戶停止拖動滾動框時，發(fā)生滾動條控件的Scroll事件。17.通用對話框的Color屬性返回的是通過對話所選擇的顏色值。18.在VB6.0中利用菜單編輯器，還可以設(shè)計(jì)彈出式菜單。19.驅(qū)動器列表框控件的ListCount屬性是只讀屬性。20.VB忽略用INPUT方式打開一個不存在的磁盤文件。非選擇題部分注意事項(xiàng)：用黑色字跡的簽字筆或鋼筆將答案寫在答題紙上，不能答在試題卷上。三、填空題(本大題共8小題，每小題2分，共16分)21.VB的常量&056所表示的十進(jìn)制數(shù)為。22.將數(shù)學(xué)式a·x2＋b·x＋c寫作VB算術(shù)表達(dá)式為。23.判斷X是否是大于100的奇數(shù)，寫作VB的邏輯表達(dá)式為。24.刪除字符串s兩端空格的賦值語句寫作。25.在過程中（能/不能）聲明全局變量。26.定時器控件InterVal屬性的最大值是。27.控件的Cls方法（可以/不可以）清除控件中用LoadPicture方法加載的圖象。28.數(shù)據(jù)綁定控件的屬性返回或設(shè)置控件將要綁定到的字段名。四、程序填空題(本大題共3小題，共22分)閱讀下列各程序，根據(jù)程序說明在每小題提供的若干可選答案中挑選一個正確答案。29.【程序說明】單擊窗體后輸入n，計(jì)算并顯示表達(dá)式的值。1-+-+……+（-1）n-1/n【程序】PrivateSubForm_Click()DimsAsSingle,nAsInteger,iAsInteger,fAsIntegern=InputBox(″n=″)s=0.5∶(1)Fori=(2)f=-f∶(3)NextiPrintsEndSub【供選擇的答案】(1)A.f=0 B.f=1C.f=2 D.f=-1(2)A.0Ton B.1TonC.2Ton D.3Ton(3)A.s=s+f B.s=s+f/iC.s=s-f D.s=s+f*i30.【程序說明】自定義Sub過程s2，將一維數(shù)組中n個元素按值從小到大重新排序?！境绦颉縋rivateSubs2(x()AsSingle,nAsInteger)DimiAsInteger,jAsInteger,kAsInteger,tAsSingleFori=(1)(2)Forj=i+1TonIf(3)Thenk=jNextjt=x(i)∶(4)∶a(k)=tNextiEndSub【供選擇的答案】(1)A.1Ton-1 B.1TonC.0Ton D.1Ton+1(2)A.k=j B.j=kC.i=k D.k=i(3)A.x(j)<x(k) B.x(j)>x(k)C.x(j)<>x(k) D.x(j)=x(k)(4)A.x(k)=a(i) B.x(i)=a(k)C.x(i)=a(j) D.x(j)=a(i)31.【程序說明】文件e:\su.txt中順序存放1～100間的素?cái)?shù)，下列程序輸入n（必須大于1且小于100，否則重新輸入）后用在文件中查找是否有與n相同數(shù)的方法判斷n是否是素?cái)?shù)?！境绦颉縋rivateSubCommand1_Click()DimnAsInteger,mAsIntegerOpen″e:\su.txt″ForInputAs#1DoInputBox(″n=″)LoopWhile(1)DoWhile(2)Input#1,mIf(3)ThenExitDoLoopIf(4)ThenPrintn;″不是素?cái)?shù)″ElsePrintn;″是素?cái)?shù)″Close#1EndSub【供選擇的答案】(1)A.n>2Andn<100 B.n<2Orn>=100C.n<2Orn<100 D.n<100(2)A.NotEof(1) B.m<>nC.Eof(1) D.m=n(3)A.m<>n B.m=nC.m<n D.m>=n(4)A.NotEof(1) B.m<>0C.Eof(1) D.m=n五、程序閱讀題（本大題共3小題，共22分）閱讀下列程序并回答問題，在每小題提供的若干可選答案中挑選一個正確答案。32.【程序】PrivateSubCommand1_Click()DimaAsLong,bAsLong,rAsLonga=InputBox(″a=″)∶b=InputBox(″b=″)Whileb<>0r=aModb∶a=b∶b=rWendText1.Text=aEndSub【供選擇的答案】(1)單擊Command1后輸入4和6，文本框中顯示A.4 B.6C.2 D.3(2)單擊Command1后輸入3和5，文本框中顯示A.1 B.3C.5 D.15(3)單擊Command1后輸入24和16，文本框中顯示A.16 B.8C.24 D.6(4)單擊Command1后輸入40和96，文本框中顯示A.96 B.16C.40 D.833.【程序】PrivateSubForm_Load()Timer1.Enabled=False∶Timer1.Interval=500EndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()Form1.Cls∶Form1.FontSize=Form1.FontSize+8Print″變化″Timer1.Interval=Timer1.Interval/1.5EndSub【供選擇的答案】(1)單擊Command1后，窗體上顯示字體的變化規(guī)律是A.字越來越大、變化速度越來越慢 B.字越來越小、變化速度越來越慢C.字越來越大、變化速度越來越快 D.字越來越小、變化速度越來越快(2)單擊Command1后的過程中，若窗體顯示的字體變化停止了，原因是A.字體過小 B.窗體高度不夠C.Interval為0 D.窗體寬度不夠(3)單擊Command1后的過程中，若顯示實(shí)時錯誤信息“溢出”，原因是A.字體過小 B.字體過大C.Interval值太小 D.Interval值太大34.【程序】DimflagAsIntegerPrivateSubForm_Load()Timer1.Enabled=FalseTimer1.Interval=50Shape1.FillStyle=0Shape1.FillColor=RGB(255,0,0)P1.Scale(-5,100)-(5,0)Shape1.Shape=3Shape1.Top=100Shape1.Left=-Shape1.Width/2flag=-1EndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfShape1.Top<Shape1.HeightThenflag=1IfShape1.Top>100Thenflag=-1Shape1.Top=Shape1.Top+flagEndSub【供選擇的答案】(1)圖片框控件P1中的形狀控件Shape1是球形。A.黃色、空心 B.紅色、實(shí)心C.紅色、空心 D.黃色、實(shí)心(2)窗體加載后按Command1按鈕前，小球是在圖片框控件p1的位置。A.下方、居中 B.左上角C.右下角 D.上方、居中(3)單擊Command1后，起初小球的狀態(tài)是A.始終靜止 B.自上向下移動C.自下向上移動 D.自右向左移動(4)單擊Command1后，小球的運(yùn)動狀態(tài)是A.始終靜止 B.上下移動C.左右移動 D.沿四周轉(zhuǎn)動六、程序設(shè)計(jì)題(本大題共2小題，每小題10分，共20分)35.編制事件過程Command1_Click，輸入x后用SelectCase語句按下式計(jì)算并顯示y值。y=36.編制事件過程Command1_Click，輸入n和n個數(shù)后，計(jì)算這n個數(shù)的和并輸出。B卷選擇題部分注意事項(xiàng)：1.答題前，考生務(wù)必將自己的考試課程名稱、姓名、準(zhǔn)考證號用黑色字跡的簽字筆或鋼筆填寫在答題紙規(guī)定的位置上。2.每小題選出答案后，用2B鉛筆把答題紙上對應(yīng)題目的答案標(biāo)號涂黑。如需改動，用橡皮擦干凈后，再選涂其他答案標(biāo)號。不能答在試題卷上。一、單項(xiàng)選擇題(本大題共10小題，每小題2分，共20分)在每小題列出的四個備選項(xiàng)中只有一個是符合題目要求的。錯選、多選或未選均無分。1.VisualBasic系統(tǒng)中工程文件的擴(kuò)展名是A.frm B.batC.bas D.vbp2.在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某個控件時，所打開的窗口是Ａ.工程資源管理器窗口 Ｂ.工具箱窗口Ｃ.代碼窗口 Ｄ.屬性窗口3.設(shè)有如下程序段：x=2Fori=1To10Step2x=x+iNexti運(yùn)行以上程序后，x的值是A.26 B.27C.38 D.574.決定Shape控件所繪制的幾何圖形的填充樣式的屬性是A.Shape屬性 B.FillStyle屬性C.BorderStyle屬性 D.FillColor屬性5.用來確定窗體離屏幕的左上角的位置的屬性是A.Height和Width B.Height或WidthC.Left和Top D.Left或Top6.執(zhí)行語句Open″c:\Test.dat″ForInputAs#1后，對文件Test.dat中的數(shù)據(jù)能夠執(zhí)行的操作是A.只能寫，不能讀 B.只能讀，不能寫C.既可以讀，也可以寫 D.不能讀，不能寫7.用下面語句定義的數(shù)組的元素個數(shù)是DimA(-3To5)AsIntegerA.6 B.7C.8 D.98.以下關(guān)于函數(shù)過程的敘述中，正確的是A.函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B.在函數(shù)過程中，過程的返回值可以有多個C.當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以傳址方式傳遞D.如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型9.引用列表框List1最后一個數(shù)據(jù)項(xiàng)，應(yīng)使用的語句是A.List1.List(List1.ListCount） B.List1.List(ListCount)C.List1.List(List1.ListCount-1） D.List1.List(ListCount-1)10.在用菜單編輯器設(shè)計(jì)菜單時，必須輸入的項(xiàng)是A.標(biāo)題 B.快捷鍵C.索引 D.名稱二、判斷題（本大題共10小題，每小題1分，共10分）判斷下列各題，在答題紙相應(yīng)位置正確的涂“A”，錯誤的涂“B”。11.類用于指一組相似的對象，對象是某種類的一個具體實(shí)例。12.變量名只能由字母、數(shù)字和下劃線組成。13.在VisualBasic中，當(dāng)需要對程序設(shè)置斷點(diǎn)時，一般通過stop語句實(shí)現(xiàn)。14.圖片框的Image屬性用來返回或設(shè)置控件要加載的圖形。15.VisualBasic缺省的數(shù)組下標(biāo)的下界為0，但通過OptionBase語句可以修改缺省值。16.直線控件的BorderWidth屬性決定直線控件所繪制的幾何圖形的寬度。17.調(diào)用Sub過程要返回一個值，因此可以像內(nèi)部函數(shù)一樣在表達(dá)式中使用。18.當(dāng)窗體的Enabled屬性為False時，通過鼠標(biāo)和鍵盤對窗體的操作將被禁止。19.驅(qū)動器列表框的Drive屬性可以通過屬性窗口設(shè)置。20.當(dāng)用戶單擊命令按鈕時，就觸發(fā)了按鈕的Click事件。非選擇題部分注意事項(xiàng)：用黑色字跡的簽字筆或鋼筆將答案寫在答題紙上，不能答在試題卷上。三、程序填空題(本大題共3小題，共22分)閱讀下列各程序，根據(jù)程序說明在每小題提供的若干可選答案中挑選一個正確答案。21.【程序說明】生成n個200到300之間的隨機(jī)整數(shù)，輸出其中能被3整除的數(shù)并求出它們的和?！境绦颉縋rivateSubCommandl_C1ick()Dimn,x,SAsIntegern=Val(InputBox(″″))Fori＝(1)x＝(2)If(3)=0ThenPrintxS＝S+(4)EndIfNextiPrint“Sum＝”；SEndSub【供選擇的答案】（1）A.1Ton B.nTo1C.0Ton D.nTo0（2）A.Int(Rnd*200+100) B.Int(Rnd*100+200)C.Int(Rnd*100)+200 D.Int(Rnd*200)+100（3）A.x\3 B.n\3C.xMod3 D.nMod3(4)A.x\3 B.xC.n D.i22.【程序說明】用Array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。【程序】OptionBase1PrivateSubCommand1_Click()DimMaxasIntegerDimarr1(8)asIntegerFori=(1)arr1(i)=Val(InputBox(″請輸入一個整數(shù)″))Nexti(2)Fori=1To8If(3)Then(4)NextiPrint″最大值是:″;MaxEndSub【供選擇的答案】(1)A.i=0To7 B.i=7To0step-1C.i=8To1step-1 D.i=0To8(2)A.Max=arr1(0) B.Max=arr1(1)C.Max=arr1(8) D.Max=arr1(7)(3)A.arr1(i)<Max B.arr1(i)>MaxC.arr1(i)<>Max D.arr1(i)=Max(4)A.Max=arr1(i) B.arr1(i)=MaxC.Max=arr1(i-1) D.arr1(i-1)=Max23.【程序說明】在窗體上畫一個列表框、一個命令按鈕和一個標(biāo)簽，其名稱分別為List1、Command1和Label1，通過屬性窗口把列表框中的項(xiàng)目設(shè)置為：″第一個項(xiàng)目″、″第二個項(xiàng)目″、″第三個項(xiàng)目″、″第四個項(xiàng)目″。程序運(yùn)行后，在列表框中選擇一個項(xiàng)目，然后單擊命令按鈕，即可將所選擇的項(xiàng)目刪除，并在標(biāo)簽中顯示列表框當(dāng)前的項(xiàng)目數(shù)，運(yùn)行情況如圖所示(選擇″第三個項(xiàng)目″的情況)?！境绦颉縋rivateSubCommand1_Click()IfList1.ListIndex>=(1)ThenList1.RemoveItem(2)Label1.Caption=(3)ElseMsgBox″請選擇要刪除的項(xiàng)目″EndIfEndSub【供選擇的答案】(1)A.-1 B.0C.1 D.List1.ListCount(2)A.List1.List(0) B.List1.ListIndexC.List1.ListCount D.List1.Selected(3)A.List1.Text B.List1.ListCountC.List1.ListIndex D.List1.Selected四、程序閱讀題(本大題共3小題，共22分)閱讀下列各程序并回答問題，在每小題提供的若干可選答案中挑選一個正確答案。24.【程序】PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub【問題與供選擇的答案】（1）程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果為A.105 B.125C.107 D.127(2)第二次單擊命令按鈕，輸出結(jié)果為A.105 B.125C.127 D.129(3)如果把StaticyAsInteger改為DimyAsInteger，則單擊命令按鈕，輸出結(jié)果為A.105 B.107C.125 D.127(4)如果把f1的參數(shù)定義改為：ByValx1AsInteger,y1AsInteger，則單擊命令按鈕，輸出結(jié)果為A.105 B.125C.107 D.12725.【程序】PrivateSubCommand1_Click()DiminDataAsStringText1.Text=″″Open″.\smtext1.dat″forinputAs#1Input#1,inDataPrintinDataClose#1EndSub【問題與供選擇的答案】(1)這段程序的作用是A.把當(dāng)前目錄下的順序文件smtext1.dat的內(nèi)容讀入內(nèi)存B.把inData中的數(shù)據(jù)寫入當(dāng)前目錄下的順序文件smtext1.datC.把當(dāng)前目錄下的順序文件smtext1.dat的內(nèi)容讀入內(nèi)存，并顯示在窗體上D.把當(dāng)前目錄下的順序文件smtext1.dat的內(nèi)容讀入內(nèi)存，并在文本框Text1中顯示出來(2)如果smtext1.dat文件中的內(nèi)容如下圖所示，則單擊命令按鈕Command1時，顯示的結(jié)果為A.張三 B.張三8575C.張三8575 D.張三8575李四7890李四7890(3)如果smtext1.dat文件中的內(nèi)容如下圖所示，則單擊命令按鈕Command1時,顯示的結(jié)果為A.張三 B.張三8575C.張三8575 D.張三8575李四7890李四7890(4)如果smtext1.dat文件中的內(nèi)容如題（3）圖所示，并且將程序中“Input#1,inData”語句改為“LineInput#1,inData”，則單擊命令按鈕Command1時，顯示的結(jié)果為A.張三 B.“張