VisualBasic（8）頁考試形式閉 2002年5院 專學 成績VisualBasic的使用目的 A開發Windows應用程 B圖像處C制作WAV文 D文字處eexyx

2

，則對應VisualBasic表達式 ABExp(x+y)+Sqr(Abs(x+y))/C(Exp(x+y)+Sqr(Abs(x+y)))/D(Exp(x+y)+Sqr(Abs(x+y)))/3“x A．x+y<10,x–y> B．x+y<10Andx–y>C．(x+y<10):(x–y)> D．x+y<10&x–y>Print“2*5”的輸出結果 D“100”名為sort的Sub子過程的形式參數為一數組，以下定義語句中正確的 PrivateSubsort（a（）asPrivateSubsort（a（10）asPrivateSubsort（a（10PrivateSubsort（ByvalA（）as ①全局變 B． D．數組重新時，原有的數組的內容將不保留VisualBasic的文件管理控件是 驅動器列表框 列表框、文件列表 列表框、組合文本框 列表框、文件列表驅動器列表框、框、文件列表以 Ctrl+C使 方法，可以將列表List1中所有項刪除掉 B． C． D．語句ForI=N1TON2STEPN3，在該循環體內有下列四條語句，其中 在多窗體的應用程序中，當前窗體模塊的Form_Click過程中包含如下語句，單 o顯示在當前窗體上。Form1.Print B．Me.Print C．Debug.Print“ D．Form2.Print Text1上。

B．顯示C．建立窗 假定變量Logic類型是Boolean，下面賦值語句 A．VBB．VB允許使用說明的變量，其類型都是Variant類

C．過程既可建在窗體模塊中，也可以建在標準模塊D．Cls在Vb程序設計中所產生的錯誤分為三類：語法錯誤、運行錯誤 邏 C．函 按鈕的Click。 PrivateSubform_click()DimaAsInteger,bAsFori=10To15Step2a=a+2*iNextiPrinta;ii=100DoWhilei>=70b=b+ii=i-7Printb;IEndSub OptionPrivateSubDimXAsInteger,YAsIntegerX=3:Y=4DoWhileX+Y<Y=Y+5:X=X+PrintIfY>12ThenExitDoPrintYEndSub運行下面程序，單擊命令按鈕Command1后，文本框Text1中的內容是 EndEnd每次搜索起點OptionPrivateSubDimPathAsString,searchAsStringDimFpAsString,FnAsStringPath="C:\ProgramFiles\Macromedia\Flash5\Flash.exe"CallSearch_Path(Path,Fp,Fn)EndPrivateSubSearch_Path(PAsString,FpAsString,FnAsString)DimNsAsLong,CtAsLongNs=Ct=Ns=InStr(Ct+1,P,"\")LoopUntilNs=0Fp=Left(P,Ct-Fn=Right(P,Len(P)-Ct)EndSub OptionPrivatexAsInteger:PublicyAsIntegerSubtest()DimyAsPrint"x2=";x,"y2=";yx=1:y=2Print"x3=";x,"y3=";yEndSubPrivateSubForm_Click()x=3:y=4Print"x1=";x,"y1=";yPrint"x4=";x,"y4=";yEndSub PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsa=5:b=8:c=Callsub1(a,b,c)Printa,b,cCallsub1(a,a+b+c,b)Printa,b,cCallsub1(a+b,b/a,a)Printa,b,cEndPrivateSubsub1(ByValxAsInteger,ByValyAsInteger,zAsInteger)z=x+y+z OptionExplicitFunctionTSub(xAsInteger)AsDimnumAsIntegerx=x+1PrintIfx=1Thennum=3x=x-num=TSub(x)*2+1EndIfPrintnum\3;TSub=numEndFunctionPrivateSubForm_Click()TSub3End (16)，B(2,3)的值是 (17)，B(3,1)的值是(18)。OptionPrivateSubDimiAsInteger,jAsDimA(3,3)AsInteger,B(3,3)AsIntegerFori=1To3Forj=1ToA(i,j)InputBox("A("&i&&j&Fori=1ToForj=1ToB(i,j)=(A(A(i,j),A(j,i))+2)Mod3+PrintB(i,EndSub PrivateSubValue(ByValXAsInteger,YAsInteger)X=X+Y=X+Print"X=";X, Y=";EndPrivateSubDimmAsInteger,nAsIntegerm=5:n=7Print"M=";m,"N=";各自總和，并在框(PictureBox)內顯示，框的名稱屬性為Picture1。OptionPrivateSubDimxAsInteger,s1AsInteger,s2AsIntegerDimn1AsInteger,n2AsInteger,iAsIntegerFori=1Tox=Int(Rnd*90)+If n1=n1+1s1=s1+x s2=s2+xEndIfNext End

"偶數和s2;"偶數個數=";n2,奇數和s1,"奇數個數 為素數，所以2333為超級素數。OptionPrivateSubDimiAsInteger,AsBooleanFori=1001To9999Step2Call IfThenPrintiEndIfEndSubPrivateSubSup_prime(ByValnAsInteger,FAsBoolean)DimPAsIntegerF=DoWhile IfPrime(n)Thenn=n ExitEndIfEndPublicFunctionPrime(PAsInteger)AsBooleanDimkAsIntegerIfP=1ExitFork=2ToIfPModk=0ThenExitFunctionNextk EndIfEndFunction1！+2！+3！+4！+5！的值。PrivateFunctionF(ByValMAsInteger)AsIntegerDimNAsIntegerN=1 DoWhileN<=MF=F*N EndFunctionPrivateSubDimSumAsInteger,iAsIntegerFori=1To5Sum Print"Sum=";SumEndSub4．C盤根下stu.txt文件中以下面的格式保存所有學生及班級信息本程序的功能…OptionExplicitOptionBase1PrivateSubDimstu()AsString,glass()AsString,iAsIntegerDimnAsInteger,nameAsString,kAsIntegerOpen"e:\123.txt"ForInputAs#11DoWhileNot n=n+1ReDimPreserve Input#11,stu(n),glass(n)name=InputBox("輸入欲查找的學生：")Callsearch(name,stu,k)If MsgBoxname&找到了！班級：&MsgBox無此人。End