2012年對口高考VB試題

VB真題測試一.選擇題.在VisualBasic中，Print"12”+45語句執(zhí)行的結(jié)果是 ( )A.1245 B.57 C."12"+45 0.類型錯.在VisualBasic中，關(guān)于文件保存的說法正確的是 ( )A.只保存擴展名是.frm的文件B.只保存擴展名是.vbp的文件C.只保存擴展名是.bas的文件D.擴展名是.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表達式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)屬性是哪個選項 ( )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)表達式是 五、程序分析（本大題共2小題，每小題5分，共10分，讀程序并分析結(jié)果，請?zhí)顚懺诖痤}紙上）1.閱讀下面的VisualBasic程序，分析程序中n=n+1的執(zhí)行次數(shù)是DimmAsInteger,nAsIntegerDimjAsInteger,kAsIntegerm=3Forj=1TomStep1Fork=-jTo3Step2n=n+1Nextkm=4NextjPrintn六、寫出下列程序的運行結(jié)果(本大題共5小題，每小題5分，共25分，請?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窗體啟動后單擊命令按鈕，最后m的值是 。.如圖所示，圖中有一個文本框（名稱為T1）,兩個選項按鈕（名稱分別為Opl,Op2）,兩個復(fù)選框（名稱分別為Chl,Ch2）,兩個框架，一個命令按鈕（Commandl）,命令按鈕的單擊事件中代碼如下：提示：函數(shù)Instr（位置，字符串1,字符串2）的功能：返回字符串2在字符串1中的起始位置，如果找不到返回值是0,位置表示從第幾個字符開始查找。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窗體啟動后,先選中如圖所示的各選項,然后再單擊命令按鈕,此時文本框中顯示內(nèi)容是七、程序改錯（本大題共2小題，每題5分，共10分。每個程序有兩處錯誤，請在答題紙上寫出錯誤行代碼和修改后的正確代碼，改錯不扣分，請將答案填寫在答題紙上）.下面的程序是將一輸入的字符串進行分類賦值，方法：從字符串的最左端開始截取一字符，然后進行判斷，數(shù)字字符放入數(shù)組a中，將其它字符放入數(shù)組b中，然后繼續(xù)處理下一個字符，直至全部處理完，最后分類打印，程序中有兩處錯誤，請將錯誤行和正確的全行寫在答題紙相應(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.窗體中(如圖所示)有一定時器控件(名稱Timer1),每2秒鐘觸發(fā)一次Timer事件，有兩個標(biāo)簽用于提示后面的控件名稱，一文本框Text1,一滾動條(名稱HS1)。窗體啟動后(此圖為窗體剛啟動時的狀態(tài))，滾動框根據(jù)計時器事件向右移動，但當(dāng)單擊滾動框左端后，滾動框開始向左移動，當(dāng)單擊滾動框右端后，滾動框開始向右移動，文本框中的文字大小隨滾動條的值變化。窗體通用部分聲明了兩個變量，后面給出了三個事件過程。程序中共有兩處錯誤分布在三個事件過程中(每個事件過程中最多有一處錯誤)，請將錯誤行和正確行寫在答題紙相應(yīng)的橫線上。(VisualBasic題)(提示：Form_Activate()表示窗體變?yōu)榛顒哟绑w后觸發(fā)的事件)窗體通用部分聲明代碼：DimAAsInteger‘變量A用于確定滾動框向左(為0)還是向右(為1)滾動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個空，每空5分，共35分。按程序要求在答題紙上填入相應(yīng)的內(nèi)容，使程序完整正確，請將答案填寫在答題紙上)1.下面的程序前部分功能考生自己分析，后部分功能是輸入一數(shù)據(jù)，然后在數(shù)組中找此數(shù)據(jù)，若找不到則程序結(jié)束，若找到將數(shù)組元素下標(biāo)小于此數(shù)據(jù)下標(biāo)的數(shù)據(jù)由大到小排列并輸出，請在空白位置填寫正確的命令(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.下面程序可以打印一個九九表完整九行或部分行，思路是在窗體中加入兩個文本框，第一個文本框(text1)用于指定輸出九九表的起始行，第二個文本框用于指定輸出九九表的結(jié)束行，如在第一個文本框中輸入2,第二個文本框中輸入6,打印出如圖所示的2到6行。命令按鈕的單擊事件中有打印九九表的程序，請在空白位置填寫正確的命令(程序要求：第一個文本框數(shù)字必須比第二個文本框小，兩個文本框中不能為空)(VisualBasic題)。t*s=2et*s=2e￡22￡3d-S-￡***耳*起始行2結(jié)束行PPrivateSubCommand1_Click()DimaAsIntegerDimbAsIntegerIfText1.Text<>”"(3)Text2.Text<>""Thena=Textl.Textb=