VisualBasic（13）9考試形式閉 2002年5院 年 學(xué) 績(jī) C．DOS和 VisualBasic程序設(shè)計(jì)時(shí)常用的Print、move屬于 在VisualBasic中最基本的對(duì)象是 Ａ．Ｂ．窗體 B.C. D. B() B(,) B(1tom) 假定變量LOGIC類型是BOOLEAN,下面賦值語(yǔ)句 A．LOGIC='TRUE' C．LOGIC=#TRUE# 控件可 B．固C．添 B.C. D.控件 函 C．拖動(dòng)鼠 D．Ctrl Click、 B．Name、C．top、 按鈕的Click事件。 選項(xiàng)按鈕、B．復(fù)選框 B．2C．3 D．多 (22)，第三行的結(jié)果是(23)，第四行結(jié)果是(24)DimyAsIntegerPrivateSubTest()DimxAsPrint"x2=";x,"y2=";yx=2y=Print"x3=";x,"y3=";yEndSubPrivateSubDimxAsIntegerx=1y=Print"x1=";x,"y1=";yPrint"x4=";x,"y4=";End PrivateSubForm_Click()x=1y=Fori=1Tof=x+yx=yy=fPrintf;End （26，第二行結(jié)果PrivateSubForm_Click()x=0DoWhilex<>xVal(InputBoxX:"))yVal(InputBoxY:"))Ifx*y<x+yThenPrintx,yEnd PrivateSubs=t=u=Forx=1To3Fory=1ToxForz=yTos=s+t=t+1u=u+1Prints;t;uEndSub （29B語(yǔ)句有效，A語(yǔ)句被注釋時(shí)，單擊窗體，在窗體上顯示內(nèi)容是（30）PrivateFunctionFact(NAsInteger)AsLong N=0OrN=1ThenFact=1FactN*Fact(N1)PrintN; 'A語(yǔ)句EndPrint 'BEndPrivateSubForm_Click()DimFAsLongF=Fact(3)Print3;"!";FEnd （31（32PrivateSubchange(a()AsInteger,iAsInteger)c=a(i,UBound(a))Fork=UBound(a)-1To1Step-1a(i,k+1)=a(i,k)a(i,1)=cEndSubPrivateSubDima(3,3)AsInteger,iAsInteger,jAsInteger,kAsIntegerk=1Fori=1ToForj=1Toa(i,j)=kk=k+Fori=1ToCallchange(a,Fori=1ToForj=1ToPrinta(i,EndSub （34OptionDimA()AsInteger,iAsIntegerPrivateSubForm_Click()DimIAsIntegerForI=1To3 ‘A ‘BNextForI=1ToPrintA(I);NextIEnd 以下程序用于求1+3+32+33+……+310的PrivateSubForm_Click() t=ForI=1To s=s+tPrint"S=";sEndSub 列二維整型數(shù)組ab中。窗體模塊中的代碼實(shí)現(xiàn)單擊窗體時(shí)生成（0，10）56Sub ForI=1Tob(I)=Forj=1Tob(I)=b(I)+A(I,EndSubPrivateSubDimx(5,6)AsInteger,y(5)AsIntegerForI=1To5Forj=1Tox(I,j)=Int(Rnd*9+1)print( callasum(5,6,( ForI=1To5PrintEnd END為止PrivateSubOpen"C:Data.txt"ForOutputAs#3Text1.Text=""EndIfKeyAscii=13if( )="END"then EndIfEndIfEndSub x=x1f(x2)x2f(x1)f(x2)f(x1)f(xx1PrivateSub

（是一個(gè)很小的數(shù)xDimx1AsSingle,x2AsSingle,eAsSingle,xAsSinglee=0.00001x2=Iff(x1)*f(x2)>0MsgBox請(qǐng)重新輸入兩個(gè)點(diǎn)"ExitSubEndIf IfAbs(f(x))<eOrAbs(x2-x1)<eThen ElseIff(x)*f(x1)<0Then ElseIff(x)*f(x2)<0Then EndIftext3.Text=xEndPrivateFunctionf(xAsSingle)AsSingle End N3COM的所有書(shū)名顯示出PrivateSubnInputBox("Fori=1Tobookname=InputBox("請(qǐng)輸入書(shū)名：") Ifi>3if( )thenprintbooknameEndIfEnd PrivateSubDoWhileTrueexist=0xTrim(InputBox("aa之間的一個(gè)字母Ifx>="a"Andx<="z"Thenfori=0to( if )=xMsgBox字母已經(jīng)存在注意"exist=1ExitForEndIfifexist=0t