大一下-笔试题库VisualBasic程序设计课程试卷17共

VisualBasic（17）页考试形式闭 2002年5院 年 学 绩一. 只有一个和一个出在下 FormListBox

FormPictureBox

DimARedimA

RedimPreserveADimA(5To 逻 B.语C.函 D.运 属性设置为True时，用户按下<ESC>键可以激发对应命令按钮的Click事件。

属性设置

x和y不能同时为零的逻辑表达式 x=0Andx=0Ory<>0Andx<>0Or

x<>0Orx=0Xor A.B.C.D.多窗体程序由多个窗体组成在缺省情况下，VB在执行应用程序时总是把 Frm1

StyleGraphicsStylePicture Print

PictureGraphics二. PrivateSubDimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10StepForj=1ToIfj>5Thenk=k+4:ExitFork=k+1Printi,kIfi>8ThenExitPrinti,kEndSub ，五行 PrivateSubDimiAsInteger,X(3) AsInteger,YAsIntegerX(3)=98:X(2)=54:X(1)=76Fori=1ToY=Int(X(i)\SelectCaseCasePrint优秀"Case7To8Print良好"Case6Print及格"CaseElsePrint不及格EndEndSubB OptionPrivateSubForm_Click()DimFAsLongPrint3;"!=";F=Fact(3)Print"=";EndPrivateFunctionFact(NAsInteger)AsLongIfN=0OrN=1ThenFact=Fact=N*Fact(N-PrintN; ‘AEndPrintN; ‘BEnd OptionPrivateSubDimmstAsString,mst1AsString,mst2AsStringDimiAsIntegermst1=Fori=Len(mst1)To1Step-mst2=UCase(Mid(mst1,i,mst2=mst2&LCase(Mid(mst1,i-1,1))mst=mst&mst2PrintEndSub 第三行 OptionPrivateSubDima(3,3)AsInteger,iAsInteger,jAsInteger,kAsIntegerk=1Fori=1ToForj=1Toa(i,j)=kk=k+Fori=1ToCallChange(a,Fori=1ToForj=1ToPrinta(i,EndSub

PrivateSubChange(a()AsInteger,iAsDimkAsInteger,cAsIntegerc=a(i,UBound(a))Fork=UBound(a)-1To1Step-1a(i,k+1)=a(i,k)a(i,1)=cEndSubPrivateSubDimssAsString,dAsLongss=“1A2”d=Printss;"-->";dEndSubPrivateFunctionCv(sAsString)AsDimnAsInteger,iAsInteger,ssAsString*DimpAsLong,kAsLong,acAsIntegern= p=16^nFori=1Top=p/ss= SelectCasessCase k=k+p*Val(ss)Case"A"To"F"ac=Asc(ss)-Asc("A")+ _(18)_ EndSelectNexti _(19) End随机产生25个的互不相同的两位整数，以5行5列的形式显示在框Picture1中；Picture2中，如图所示。OptionPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimx()AsInteger, CallSjs(x)Fori=1ToPicture1.Printx(i);CallJH(x,Fori=1ToForj=1ToEndSub

PrivateSubSjs(A()AsDimiAsInteger,jAsInteger,AsBoolean,xAsIntegeri=1ReDimA(i)x=Rnd*89+10Forj=1ToIfx=A(j) =False:ExitIfThenA(i)=xi=i+EndLoopWhile EndSubPrivateSubJH(A()AsInteger, DimmaxAsIntegerDimiAsInteger,jAsInteger,nAsIntegerFori=1To5Forj=1To

B(i,j)=A(n)Fori=1To :n=Forj=1ToIfB(i,j)>maxmax=B(i,

EndEndSub

B(i,1)=OptionPrivateSubForm_Click()Dima(9)AsIntegerDimiAsInteger,nAsIntegerDimchAsString,iLineAsStringOpen“d:\data.txt”aFor As#1DoWhile LineInput#1,iLineFori=1To ch=Mid(iLine,i,I