2012年3 計算機等級考試二級筆試試VisualBasic ） 外模 則由關(guān)系R和S得到關(guān)系T的操作是 ） D． ） 測 ） ） B．PAD圖C．?dāng)?shù)據(jù)流圖（DFD圖）D．程序流程 case ） C．x>=0and D．x>=0or D．程序運行期間，可以改變Name屬性值下面定義窗體級變量a的語句中錯誤的是 ）A．Dima% C．PrivateaAsInteger D．Statica% ）A． B．C． D． Dimarr（-2to2,0to3）AS ） SelectCaseCaseCaseIsCaseelseEnd

Ifx<0Elseifx<=5thenEndify=iif｛x<0，5，iif(x<=5，2*+1)｝D．Ifx<0ThenIfx<=5andx>=0theny=2*xIfx>5theny=x*x+1Print OptionBasePrivateSubDimaFori=4to1Step-1s=s+a(i)*xPrintsEndSub ） PrivateSubStaticxAsIntegerx=f(x+5)PrintxEndSubPrivateFunctionf(xAsInteger)AsIntegerf=x+xEnd ） 設(shè)計菜單是，菜單項的“有效”未選， 窗體上有一個名稱為CommonDialog1的通用 框，一個名稱為Command1 PrivateSubCommand1_Click()CommonDialog1.DefaultExt="doc"CommonDialog1.FileName="VB.txt"CommonDialog1.FilterIndex=1EndSub ） Dima(10)As ）A．PrivateSubp(aAs B．PrivateSubp(a()AsC．PrivateSubp(a(10)As D．PrivateSubp(a(n)As A．Listindex C．Text。PrivateSubText1_Change()End運行程序，在文本框Text1中原有字符之前輸入a，Text2中顯示的是 A． B． C． D．OptionBasePrivateSubCommand1_Click()Dimarr(10)ForEachaInarrIfa>50ThenSum=Sum+aEndIfNextaEndSub Nexta應(yīng)改為10arr中，從鍵盤輸入要刪除的數(shù)組元素的下標(biāo)，OptionBasePrivateSubCommand1_Click()Dimarr(10)ASIntegerFori=1to10arr(i)=int(Rnd*100)Printarr(i);Fori=x+1to10 Fori=1to10 Printarr(i);EndSub ) 列表框Dir1、文件列表框File1時，需要設(shè)置控件的 ）D．彈出式菜單通過窗體的Popup xAsStringyAsIntegerEndTypePrivateSubDimaAsstuPrintaEndSub ） 在窗體上畫兩個名稱分別為Text1、Text2的文本框，一個名稱為Lable1的 b所示。實現(xiàn)上述功能如下：圖 圖CallShowText(Text1)EndPrivateSubText2Change()CallShowText(Text2)EndPrivateSubshowText(TAsTextBox)EnbSub ）設(shè)有打開文件的語句為：Open“test.dat”ForRandomAs#1，要求把變量a中的數(shù)據(jù) Input B．Write C．Put D．Get在長度為n的順序 數(shù)為（ ） ）下面的事件過程執(zhí)行時，可以把Text1文本框中的內(nèi)容寫到文件“file1.txt“中去。請?zhí)頟ivateSubOpen“file1.txt”For（6 print（7 ），Text1.TextClose#1End設(shè)窗體上有一個名稱為Label1的。程序運行時，單擊鼠標(biāo)左鍵，再移動鼠標(biāo)，鼠標(biāo)的位置坐標(biāo)會實時地顯示在Label1中：單擊鼠標(biāo)右鍵則停止實時顯示，并將中內(nèi)容清除。下面的程序可實現(xiàn)這能，請?zhí)羁?。DimDownAsPrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，xAsSingle，YAsSingle)SelectCase（8 Case1Case2EndSelectEndSubIf（ ）（ ）=”X=”&X&”Y=”&Endif窗體上有List1、List2兩個列表框，程序運行時，在兩個列表框中分別選中1個項目，如圖a所示，單擊名稱為Command1的“交換”按鈕，則把選中的項目互換，互換后的位置不限，如圖b所示。下面的程序可實現(xiàn)這 PrivateSubIfList1.TextorList2.TextThenList1.AddItemList2.TextList2.RemoveItem（11 （ EndIfEndFork=1ToLen(Text1)IfNotfound(temp,ch)Thentemp=temp&（13）EndifNextText1=（14EndPrivateFunctionfound(strAsString,chAsString)AsBooleanForK=1ToLen(str) Found=（15 ExitFunctionEndIfNextEnd“abcd“foundstr中是否有字符chTrue，否則返回False