2012年對(duì)口高考VB試題

VB真題測(cè)試一.選擇題.在VisualBasic中，Print"12”+45語句執(zhí)行的結(jié)果是 ( )A.1245 B.57 C."12"+45 0.類型錯(cuò).在VisualBasic中，關(guān)于文件保存的說法正確的是 ( )A.只保存擴(kuò)展名是.frm的文件B.只保存擴(kuò)展名是.vbp的文件C.只保存擴(kuò)展名是.bas的文件D.擴(kuò)展名是.frm,.vbp,.bas這三類文件都可以保存TOC\o"1-5"\h\z.在VisualBasic中，設(shè)置窗體Form1的標(biāo)題為“VB程序窗體”的指令是 ( )A.F=”VB程序窗體〃 B.Form1.top=”VB程序窗體〃C.Form1.caption=”VB程序窗體〃 D.Form1.topic=”VB程序窗體〃.讀下面VisualBasic程序，最后一行輸出結(jié)果是 ( )a=-262:b=5c=Len(Str(a)+Str(b))PrintcA.4 B.5 C.6 D.7.設(shè)a=2:b=4:c=7:d=8VisualBasic表達(dá)式Nota<bOrc=9Andd<>9的值是 ( )A.1 B.-1 C.True D.False.在VisualBasic中，向圖片框(picture1)裝入圖片(〃c:\a.jpg”)正確的語句是.( )picture1.Picture=Load(”c:\a.jpg”)picture1.Picture.Load(”c:\a.jpg”)picture1.Picture=Loadpicture(”c:\a.jpg”)picture1.Picture=Loadpicture.Load(”c:\a.jpg”)TOC\o"1-5"\h\z.在VisualBasic中，關(guān)于控件說法不正確的是 ( )A.可以創(chuàng)建控件數(shù)組 B.控件都有名稱C.控件都有單擊事件 D.用Visible屬性可以改變某些控件的可見性.下面VisualBasic中數(shù)據(jù)中，表示1978年10月20日正確的格式是 ( )A.10-20-1978B.10/20/1978C.#1978.10.20# D.#10-20-1978#.VisualBasic中文本框的默認(rèn)屬性是哪個(gè)選項(xiàng) ( )A.Caption B.Text C.SelText D.Selstart.在VisualBasic中，下面關(guān)于雙擊窗體要觸發(fā)的事件說法正確的是 ( )A.只觸發(fā)Click事件 B.只觸發(fā)DblClick事件C.可以觸發(fā)Click和DblClick事件 D.可以觸發(fā)Load和DblClick事件二、判斷題.在VisualBasic中，write#語句是把數(shù)據(jù)寫入順序文件中，print#語句是把順序文件中的內(nèi)容打印出來。( )三、填空題在VisualzBasic中）獲得命令按鈕的標(biāo)題使用的屬性是。代數(shù)式3X7+1+x莊VisualBasic中的相應(yīng)表達(dá)式是 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結(jié)果，請(qǐng)?zhí)顚懺诖痤}紙上）1.閱讀下面的VisualBasic程序，分析程序中n=n+1的執(zhí)行次數(shù)是DimmAsInteger,nAsIntegerDimjAsInteger,kAsIntegerm=3Forj=1TomStep1Fork=-jTo3Step2n=n+1Nextkm=4NextjPrintn六、寫出下列程序的運(yùn)行結(jié)果(本大題共5小題，每小題5分，共25分，請(qǐng)?zhí)顚懺诖痤}紙上).窗體中有一命令按鈕，此按鈕單擊事件程序如下：PrivateSubCommand1_Click()DimmAsIntegerDimaAsIntegerDimbAsIntegera=1:b=2:m=0m=vb1(a,b)m=m+a+bPrintmEndSub函數(shù)：Functionvb1(wAsInteger,ByValnAsInteger)w=100:n=200vb1=w+nEndFunction窗體啟動(dòng)后單擊命令按鈕，最后m的值是 。.如圖所示，圖中有一個(gè)文本框（名稱為T1）,兩個(gè)選項(xiàng)按鈕（名稱分別為Opl,Op2）,兩個(gè)復(fù)選框（名稱分別為Chl,Ch2）,兩個(gè)框架，一個(gè)命令按鈕（Commandl）,命令按鈕的單擊事件中代碼如下：提示：函數(shù)Instr（位置，字符串1,字符串2）的功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0,位置表示從第幾個(gè)字符開始查找。PrivateSubCommand1_Click()Tl.Text=""IfOp1.Value=TrueThenT1.Text=T1.Text+Mid(Op1.Caption,InStr(1,LCase(Op1.Value),"true"),2)EndIfIfOp2.Value=TrueThenT1.Text=T1.Text+Mid(Op2.Caption,InStr(1,LCase(Op2.Value),"true"),2)EndIfT1.Text=T1.Text+Mid(Ch1.Caption,1,Ch1.Value+1)T1.Text=T1.Text+Mid(Ch2.Caption,1,Ch2.Value+1)EndSub窗體啟動(dòng)后,先選中如圖所示的各選項(xiàng),然后再單擊命令按鈕,此時(shí)文本框中顯示內(nèi)容是七、程序改錯(cuò)（本大題共2小題，每題5分，共10分。每個(gè)程序有兩處錯(cuò)誤，請(qǐng)?jiān)诖痤}紙上寫出錯(cuò)誤行代碼和修改后的正確代碼，改錯(cuò)不扣分，請(qǐng)將答案填寫在答題紙上）.下面的程序是將一輸入的字符串進(jìn)行分類賦值，方法：從字符串的最左端開始截取一字符，然后進(jìn)行判斷，數(shù)字字符放入數(shù)組a中，將其它字符放入數(shù)組b中，然后繼續(xù)處理下一個(gè)字符，直至全部處理完，最后分類打印，程序中有兩處錯(cuò)誤，請(qǐng)將錯(cuò)誤行和正確的全行寫在答題紙相應(yīng)的橫線上。（VisualBasic題）Dima（100）AsIntegerDimb（100）AsIntegerDimcAsStringDimiAsIntegerDimjAsIntegerDimkAsIntegerDimmAsIntegerDimwAsStringc=InputBox("c=",〃〃，〃〃)k=Len(c)Fori=1Tokw=Right(c,1)c=Right(c,k-1)Ifw>="0"Andw<="9"Thena(j)=w:j=j+1Elseb(m)=Asc(w):m=m+1EndIfc=c-wNextiPrintFori=0Toj-1Printa(i);NextiPrintFori=0Tom-1PrintChr(b(i));NextiPrint.窗體中(如圖所示)有一定時(shí)器控件(名稱Timer1),每2秒鐘觸發(fā)一次Timer事件，有兩個(gè)標(biāo)簽用于提示后面的控件名稱，一文本框Text1,一滾動(dòng)條(名稱HS1)。窗體啟動(dòng)后(此圖為窗體剛啟動(dòng)時(shí)的狀態(tài))，滾動(dòng)框根據(jù)計(jì)時(shí)器事件向右移動(dòng)，但當(dāng)單擊滾動(dòng)框左端后，滾動(dòng)框開始向左移動(dòng)，當(dāng)單擊滾動(dòng)框右端后，滾動(dòng)框開始向右移動(dòng)，文本框中的文字大小隨滾動(dòng)條的值變化。窗體通用部分聲明了兩個(gè)變量，后面給出了三個(gè)事件過程。程序中共有兩處錯(cuò)誤分布在三個(gè)事件過程中(每個(gè)事件過程中最多有一處錯(cuò)誤)，請(qǐng)將錯(cuò)誤行和正確行寫在答題紙相應(yīng)的橫線上。(VisualBasic題)(提示：Form_Activate()表示窗體變?yōu)榛顒?dòng)窗體后觸發(fā)的事件)窗體通用部分聲明代碼：DimAAsInteger‘變量A用于確定滾動(dòng)框向左(為0)還是向右(為1)滾動(dòng)DimWAsIntegerPrivateSubForm_Activate()W=HS1.ValueA=0EndSubPrivateSubHS1_Change()IfW<HS1.ValueThenA=0ElseA=1EndIfW=HS1.ValueEndSubPrivateSubTimer1_Timer()IfText1.FontSize<10ThenText1.FontSize=11IfText1.FontSize>80ThenText1.FontSize=79IfA=1ThenText1.FontSize=Text1.FontSize+1ElseText1.FontSize=Text1.FontSize-1EndIfEndSub八、程序填空(本大題共7個(gè)空，每空5分，共35分。按程序要求在答題紙上填入相應(yīng)的內(nèi)容，使程序完整正確，請(qǐng)將答案填寫在答題紙上)1.下面的程序前部分功能考生自己分析，后部分功能是輸入一數(shù)據(jù)，然后在數(shù)組中找此數(shù)據(jù)，若找不到則程序結(jié)束，若找到將數(shù)組元素下標(biāo)小于此數(shù)據(jù)下標(biāo)的數(shù)據(jù)由大到小排列并輸出，請(qǐng)?jiān)诳瞻孜恢锰顚懻_的命令(VisualBasic題)。Dima(9)AsIntegerDimiAsIntegerDimtAsIntegera(0)=20+Int(Rnd*91)

Fori=1To9t=20+Int(Rnd*91)Ift<a(i-1)Theni=i-1Elsea(i)=tEndIfNextiFori=0To9Printa(i);NextiPrintt=InputBox("inputt=","")Fori=0To9Ift=(1)ThenExitForEndIfNextiIfi=10ThenEnd=i-1Fork=0Toi/(2)t=a(k)a(k)=a(i-k)a(i-k)=tNextkFori=0To9Printa(i);Nexti.下面程序可以打印一個(gè)九九表完整九行或部分行，思路是在窗體中加入兩個(gè)文本框，第一個(gè)文本框(text1)用于指定輸出九九表的起始行，第二個(gè)文本框用于指定輸出九九表的結(jié)束行，如在第一個(gè)文本框中輸入2,第二個(gè)文本框中輸入6,打印出如圖所示的2到6行。命令按鈕的單擊事件中有打印九九表的程序，請(qǐng)?jiān)诳瞻孜恢锰顚懻_的命令(程序要求：第一個(gè)文本框數(shù)字必須比第二個(gè)文本框小，兩個(gè)文本框中不能為空)(VisualBasic題)。t*s=2et*s=2e￡22￡3d-S-￡***耳*起始行2結(jié)束行PPrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerIfText1.Text<>”"(3)Text2.Text<>""Thena=Textl.Textb=