一．填空題（11016.0“BASICBASIC6.0”,8,5)一．填空題（11016.0“BASICBASIC6.0”,8,5)((b-a+1)*Rnd+a)123001000.5)*100表達(dá)式：TrueOrNot5–34（TrueYear4100（YearMod4=0AndyearMod100<>0除了在設(shè)計(jì)階段通過修改Picture屬性裝載圖形外還可以使（Lo icture）在程序運(yùn)行期間，用戶在文本框輸入的內(nèi)容，存放到文本框的（Text）8.A(1)=4,A(2)=2,A(3)=1,A(4)=3A(A(1)+A(2)-A(4))的值為(1)。Textchange用的方法是（SetFocus二．單項(xiàng)選擇題（1.530"Basic（2．cds=sr:r=+b)"xyz66"d)xyz66"xyz66" False（c False（c為A1AndA2OrTrueOrNot（7–3<=4NotA1AndNotd)NotA1EqvNotxThent=t*a)Ifx>yThen "c)IfxMod3=2Then?xa)SelectCase"y=2*x-1: cSelectCaseCase1,3,5CaseIsx<=1EndCase1Or3CaseIs>10EndSelectc)Select5xCaseIs<=0CaseIs>0Endd)SelectCaseCasex>=1Andx<=CaseIs>10End5Dimk%Dountilk=0c)318.(…… …LoopLoopWhileDimk%Dountilk=0c)318.(…… …LoopLoopWhileLoopUntil9．下面程序段中循環(huán)語(yǔ)句的循環(huán)次數(shù)是（bForTo1Step-xa)xb)c)d)10．Text1ca)Text1.Value=c)Text1.PasswordChar=b)Text1.Text=d)Text1.Caption=11．要把窗體縮小為其大小的一半（非最大化狀態(tài)下，可使用以下（b）Form1=Form1.Width=Form1.Width/2:Form1.Height=Form1.Height/2Form1.Left=Form1.Left/2:Form1.Top=Form1.Top/2Form1.Size=Form1.Size/212.da)b)c)d)13．Value2ca)d）GotFocusLostFocusb)d)a)b)To２a)b)c)d)17.aTypeyearAs EndTypenameAssexAsString*1birthdayAsAs所表示職工的出生日期是“196817.aTypeyearAs EndTypenameAssexAsString*1birthdayAsAs所表示職工的出生日期是“19686（d關(guān)于變量，不正確的說法是(C)。（ b)d)261．PrivateDimxAsForx=1Toeger,y10StepSelectCasex*2CaseIs<8y=x+Casey=xCase8y=xCasey=xEndSelect x,yNextxEndSub*2*3+1479xeger,yxy=xCase8y=xCasey=xEndSelect x,yNextxEndSub*2*3+1479xeger,yx==x2+*xyeger,yxP==Px,yEndSubDima%,x=1:y1:a=DoUntila>IfaMod2=1Theny=y*ax=x*aEndIfa=a+1 “x=”;x,”y=”;End4．Privatey=DimA(1ForxIfeger,1ToA(x)x5A(x)x*2Mod24640…NextxForx1ToA(x)a=a+1 “x=”;x,”y=”;End4．Privatey=DimA(1ForxIfeger,1ToA(x)x5A(x)x*2Mod24640…NextxForx1ToA(x)=Next+641…ForToIfxModNextxEnd63054714yxasx=1yDoWhiley<28y=y+xIfy>20Then2Exit3……Ify>25ThenExitForNextx x,End四．程序填空題（22011*2*…*n>10000nPrivateSubDimn%,t&n=0:t= n+ 四．程序填空題（22011*2*…*n>10000nPrivateSubDimn%,t&n=0:t= n+ nt=Endt<=Tab(8);nnPrivateSubDimFori=0To IfiMod2=0List1.ListCount-EndNextEnd PrivateSubEndPrivateSubMerge(A%(),B%(),na%,ByValnb%,ByValDimiAs eger,jAsi=1:j=1:kDoWhilei<=naeger,1j<=If ThenA(i)<C(k)=i=i+C(k)=j=j+1EndIf DoWhilei<= k=k+C(k)=k=iC(k)=i=i+C(k)=j=j+1EndIf DoWhilei<= k=k+C(k)=k=i=iDo++11j<= k=k+1j=j+EndSubMergena，nbncA，BCC(k)=Privates=score!,"d:\file1.dat"For NotInput ifscore>maxThenmax=score maxClose#3End1．PrivateDimA(20)eger,xeger