[計(jì)算機(jī)二級vb考試分值]計(jì)算機(jī)二級VB考試題及答案不論從事何種工作，如果要想做出高效、實(shí)效，務(wù)必先從自身的工作總結(jié)計(jì)劃開始。有了計(jì)劃，才不致于使自己思想迷茫、頭計(jì)算機(jī)二級VB考及答案

1.設(shè)有如下程序段：x=2Forc=1To4Step2x=x+cNextc運(yùn)行以上程序后，x的值是(A)(單)A.6B.7C.8D.92.以下敘述中錯(cuò)誤的是(A)(單)A.在KeyPress事件過程中不能識(shí)別鍵盤鍵的按下與釋放B.在KeyPress事件過程中不能識(shí)別回車鍵C.在KeyDown和KeyUp事件過程中，從鍵盤輸入的字母"A"和字母"a"對應(yīng)的KeyCode視作相同的字母D.在KeyDown和KeyUp事件過程中，從大鍵盤上輸入的"1"和從右側(cè)小鍵盤上輸入的"1"被視作不同的字符3.執(zhí)行如下兩條語句，窗體上顯示的是(C)(單)A=9.8596PrintFormat(a,"000.00")A.0,009.86B.9.86C.009.86D.0,009.864.在窗體上畫一個(gè)名稱為CommandDialog1的通用對話框，一個(gè)名稱為Command1的命令按鈕。然后編寫如下事件過PrivateSubCommand1_Click()CommonDialog1.FileName=""CommonDialog1.Filter="Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"CommonDialog1.FilterIndex=1CommonDialog1.DialogTitle="VBTest"CommonDialog1.Action=1EndSub對于這個(gè)程序，以下敘述中錯(cuò)誤的是(D)(單)A.該對話框被設(shè)置為"打開"對話框B.在該對話框中指定的文件名為空C.該對話框的標(biāo)題為VBTestD.在該對話框中指定的默認(rèn)文件類型為文本文件(*.Txt)5.設(shè)一個(gè)工程由兩個(gè)窗體組成，其名稱分別為Form1和Form2，在Form1上有一個(gè)名稱為Command1的命令按鈕。窗體Form1的程序代碼如下：PrivateSubCommand1_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=Iif(x>10,100,-100)f.Showf.Caption=yEndSub運(yùn)行以上程序，正確的結(jié)果是(B)(單)A.Form1的Caption屬性值為100B.Form2的Caption屬性值為-100C.Form1的Caption屬性值為-100D.Form2的Caption屬性值為1006.在窗體上畫一個(gè)名稱為Command1的命令按鈕，并編寫如下程序：PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的內(nèi)容是(D)(單)A.105B.125C.107D.1277.OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=3Ifn<10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fort=1Tonb(t)=Rnd*100Ifb(t)/2=b(t)2Thenj=j+1c(j)=b(t)EndIfNexttPrintjEndSub以下敘述中錯(cuò)誤的是(C)(單)A.數(shù)組b中的數(shù)范圍為0-100B.c數(shù)組下標(biāo)的下界從1開始C.GetArray過程的參數(shù)n是按值傳送的D.語句Ifb(t)/2=b(t)2Then是判斷數(shù)組b中元素的值是否為整數(shù)8.在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Forc=1ToUbound(a)a(c)=a(c)+c-1NextcPrinta(3)EndSub程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是(B)(單)A.4B.5C.6D.79.閱讀程序：OptionBase1PrivateSubForm_Click()DimarrDimSum%Sum=0arr=Array(1,3,5,7,9)Fort=1To5Sum=Sum+arr(t)NexttPrintSumEndSub程序運(yùn)行后，單擊窗體，輸入結(jié)果為(B)(單)A.5B.9C.25D.1510.在窗體上畫一個(gè)名稱為File1的文件列表框，并編寫如下程序：PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下關(guān)于該程序的敘述中，錯(cuò)誤的是(A)(單)A.x沒有實(shí)際作用，因此可以將該語句寫為：CallShell(File1,FileName,1)B.雙擊文件列表框中的文件，將觸發(fā)該事件過程C.要執(zhí)行的文件的名字通過File1.FileName指定D.File1中顯示的是當(dāng)前驅(qū)動(dòng)器、當(dāng)前目錄下的文件11.在窗體上畫一個(gè)名稱為Label1、標(biāo)題為"VisualBasic考試"的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為"開始"和"停止"的命令按鈕，然后畫一個(gè)名稱為Timer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500。編寫如下程PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.Left<Form1.WidthThenLabel1.Left=Label1.Left+20ElseLabel1.Left=0EndIfEndSub程序運(yùn)行后，單擊"開始"按鈕，標(biāo)簽在窗體中移動(dòng)。對于這個(gè)程序，以下敘述中錯(cuò)誤的是(A)(單)A.標(biāo)簽的移動(dòng)方向?yàn)樽杂蚁蜃驜.單擊"停止"按鈕后再單擊"開始"按鈕，標(biāo)簽從停止的位置繼續(xù)移動(dòng)C.當(dāng)標(biāo)簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動(dòng)D.標(biāo)簽按指定的時(shí)間時(shí)隔移動(dòng)12.規(guī)范地說，VB是一種(A)的開發(fā)工具(單)A.面向?qū)ο驜.面向用戶C.面向屏幕D.面向窗體13.VB6設(shè)計(jì)界面包含多個(gè)視窗，控制這些視窗顯示或關(guān)閉的命令包含在(D)下拉菜單中(單)A.文件B.工程C.編輯D.視圖14下面(D)操作不是激活或顯示屬性列表框的操作(單)A.按快捷鍵F4B.點(diǎn)擊工具欄中的"屬性列表框"按鈕C.選擇"視圖"下拉菜單的"屬性窗口"項(xiàng)D.雙擊窗體中的某一對象15.VisualBasic程序中分隔各語句的字符是(B)(單)A.′B.:D._16.假定窗體的名稱(Name屬性)為Form1，則把窗體的標(biāo)題設(shè)置為"VBTest"的語句為(B)(單)A.Form1="VBTest"B.Caption="VBTest"C.Form1.Text="VBTest"D.Form1.Name="VBTest"17.下列不能打開代碼窗口的操作是(D)(單)A.雙擊窗體上的某個(gè)控件