大一下-筆試題庫程序設(shè)計(jì)課程試卷11共

VisualBasic課程試卷（11）9考試形式閉 2002年5控件的 3 把焦點(diǎn)移至按扭上, \、/、MOD、*四個(gè)運(yùn)算符中，優(yōu)先級(jí)最低的是（4

Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是（

VisualBasic認(rèn)為下列（ A1和 Aver和 Sum和 A1表達(dá)式INT(-17.8)+Sgn(17.8)的值是（ - - -

bd

對(duì)應(yīng)的VisualBasic表達(dá)式是（ 以下關(guān)于選項(xiàng)按扭的說法,正確的是（ 選項(xiàng)按扭的Enabled屬性用于決定該按扭是否被選中 選項(xiàng)按扭的Value屬性用于決定該按扭是否被選中 選項(xiàng)按扭的Checked屬性用于決定該按扭是否被選中 選項(xiàng)按扭的Visible屬性用于決定該按扭是否被選中 是（11 在代碼中任意一個(gè)命令按扭只需使用名稱Command1 通用過程可以通過執(zhí)行“工具”菜單中的（

可以在窗體模塊的通用段中 下面 下面的過程定義語句中合法的是（ SubProc1(ByValn()) SubProc1(n)AsInteger

1 加載后Image控件的尺寸與原圖的大小相比 VB的文件管理控件是（

隨機(jī)模式允許用戶在

ASCII 在語句PublicSubPrime(MAsInteger)中M是一個(gè)按（ 二 PrivateSubForm_click()x=5y=-IfNotx>0Thenx=y-3Elsey=x+3Printx-y;y-xEnd PrivateSubForm_click()n=0j=DoUntiln>2n=n+1j=j+n*(n+1)Printn;jEndSub PrivateSubForm_click()k=0Forj=1ToFori=1Tok=i+

Fori=1Tok=k+PrintkEndSub 運(yùn)行下面的程序，單擊窗體后在窗體上顯示的內(nèi)容是(24)APrivateSubDimxAsInteger,yAsIntegerx=2: y=10y=y 'Ax=x 'BLoopWhiley>0Printx;",";yEnd PrivateSubForm_Click()Dimm(2)AsIntegerFori=1To2m(i)=0k=Fori=1ToForj=1Tom(j)=m(i)+1Printm(k);End PublicFunctionmyfunc(mAsInteger,nAsInteger)AsIntegerDoWhilem<>nDoWhilem>m=m-nDoWhilem<n=n-mmyfunc=mEndPrivateSubForm_Click()Printmyfunc(24,End （28PrivateSubmysub()StaticsAsIntegerFori=1To10Step2s=s+iPrintEndPrivateSubForm_Click()CallmysubEnd （30（31PrivateSubForm_Click()Dima(3,3)AsIntegerForm=1To3Forn=1ToIfn=mOrn=3-m+1Thena(m,n)=1a(m,n)=EndForm=1ToForn=1ToPrinta(m,End （33（34（35PrivateSubTest(xAsDimiAsIntegerIfx<>0ThenCallTest(x-1)Fori=1ToxPrintx;NextiEndIfEndSubPrivateSubForm_click()Test3End三 10分。PrivateSubCommand1_Click()Max=0Min=Fori=1Toif( )thenmax=nif( )thenmin=ns=s+n p=s/Print最高分Max;最低分MinPrint"最后得分:";pEnd 12-22+32-42+……+（n-1）2-n2。PrivateSubCommand1_Click()s=0i=c=1s=s+c*i* loopwhile( Print"S=";sEnd PrivateSubCommand1_Click()DimA(6,6)AsIntegerFori=1ToForj=1ToIfi=j Endprint EndSub5:A4個(gè)數(shù)據(jù)、、、，輸入XXX1個(gè)PrivateSubCommand1_Click()Dima(4)Asa(1)=11:a(2)=22:a(3)=33:a(4)=x=Val(InputBox("請(qǐng)輸入X:")) ）Then("Fori=1To ）ThenExitIfi<5Forj= （ Fork=1ToPrint

MsgBox數(shù)據(jù)沒找到EndIfEndIfEnd 本程序用于驗(yàn)證任何一個(gè)大于6的偶數(shù)均可表示為兩個(gè)素?cái)?shù)之和例如14=3 待驗(yàn)證的偶數(shù)從文本框TxtInput輸入，所有滿足上述條件的素?cái)?shù)對(duì)都顯示在窗體上。OptionExplicitPrivateSubDimnAsInteger,iAsIntegern=Val(TxtInput.Text)Fori=3Ton-2Step2IfPrime(i)ThenIfn-i>=iAnd ）ThenPrintn;"=";i;"+";n-iEnd NextiEndSubPrivateFunctionPrime(nAsInteger)AsBooleanDimiAsInteger,AsBooleanPrime=Fori=2ToIfnModi=0Then（ NextIf=False End sum(n,k)=1k+2k+……nk.FunctionSum計(jì)算給定參數(shù)時(shí)函數(shù)的PrivateSubForm_Click()Printsum(3,2)EndPrivateFunctionsum(nAsInteger,kAsInteger)AsLongDimiAsInteger,sAsLongFori=1Tos=s+ EndPrivateFunctionpower(aAsInteger,bAsIn