程序設(shè)計復(fù)習(xí)材料vb第二次考試

VB第二次考試題 dimA(-3to5)asinteger Dimarr(3To5,-2to2)3、用Dim(1,3to7,10)的是一 A：Dim語句B：static語句C：public語句D：ReDim6、在VB中傳遞參數(shù)的方法 方式Command1，PrivateSubDimbAsIntegerb=b+1End運行程序，三次單擊命令按鈕后，變量b的值是 Command1，PrivateSubDimbAsIntegerb=b+1End運行程序，三次單擊命令按鈕后，變量b的值是 SubS1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=EndPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=b=S1a,Print"a=";a;"b=";bEndSub A：a=30b=B：a=30b=C：a=10b=D：a=10b= DimA(1to5)ForI=1ToA(I)=I*NextPrintA(I-1)A：5B：C：D：11、設(shè)執(zhí)行以下程序段時依次輸入1、3、5，執(zhí)行結(jié)果為 Dima(1to4)AsInteger,b(1to4)AsIntegerForK=0Toa(K1Val(InputBox("請輸入數(shù)據(jù)"))b(3-K)=a(K+1)NextKPrintb(K)A：B：C：D：OptionBase0PrivateSubForm_Click()DimaDimiAsa=Array(1,2,3,4,5,6,7,8,Fori=0ToPrinta(5-EndSub A：321B：432C：543D：654FunctionFunc(ByValxAsInteger,yAsInteger)y=x*Ify>0Func=Func=EndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=b=c=Func(a,b)Print"a=";aPrint"b=";bPrint"c=";cEnd A：a=b=c=B：a=b=c=C：a=b=c=D：a=b=c= Combo 17、Sub過程與Function過程最根本的區(qū)別 A：SubCallFunctionB：Function過程可以有參數(shù)，SubD：SubFunction過程能通過過程名返回值如下過程：PrivateSubCommand1_Click()Dimarray1(10,10)AsIntegerDimi,jAsIntegerFori=1ToForj=2Toarray1(i,j)=i+jNextjNextEndSub A：PrivateSubEndSubB：PrivateSubEndSubC：PrivateSubList1_Click()EndD：PrivateSubList1_Click()End、設(shè)組合 bo1中有3個項目，則以下能刪除最后一項的語句 21、在窗體上畫一個名稱為List1的列表框，為了對列表框中的每個項目都能進(jìn)行處理，應(yīng) C：Fori=1ToD：Fori=1To 、窗體上 OptionBaseDima()AsInteger,mAsIntegerPrivateSubReDima(m)EndPrivateSubCommand2_Click()ReDima(m)End PrivateSubDima(1to10)AsInteger,maxAsIntegerFork=1To10NextkFork=1ToIfa(k)>maxThenEndIfNextkPrintmaxEndSub AIfa(k)>maxThenIfa(k)<maxThenBmax=a(k)a(k)=maxC2個循環(huán)語句Fork=1To10改為Fork=2To10Dmax=0max=a(10) PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndPrivateSubswap(ByValaAsInteger,ByValbAsInteger)End Aswap過程的語句錯誤，應(yīng)改為：Callswapa,bB：輸出語句錯誤，應(yīng)改為：Printa","b"D：swap3后單擊Command1按鈕，就刪除選中的項，確的過程是 A：PrivateSubEndSubB：Pr