Visual Basic程序設(shè)計(jì)課后習(xí)題答案

填空題

習(xí)題1VisualBasic是一種面向 的可視化程序設(shè)計(jì)語言，采取了 的編程制。VisualBasic的對象主要分為 和 兩大類。在VisualBasic中，用來描述一個對象外部特征的量稱之為對象的 。在VisualBasic中，設(shè)置或修改一個對象的屬性的方法有兩種，它們分別是： 和 。在VisualBasic中，每個對象一般都能感知和接收多個不同的事件，并能對這些事件作出響應(yīng)，其響應(yīng)方式就是通過調(diào)用執(zhí)行一個與之相對應(yīng)的 來實(shí)現(xiàn)的在VisualBasic中事件過程的名字由 、 和 所構(gòu)成。VisualBasic的集成開發(fā)環(huán)境主要由6個部分組成，它們分別是： 、、 、 、 、 。簡答題VisualBasic的特點(diǎn)什么是對象的屬性、事件和方法？VisualBasic???習(xí)題2“ASDF”&O78“1234.5”&H123#2004/10/7#TrueT100#-1123!π345.54#下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？Name“120”“name”n“ASDF”&O78“1234.5”&H123#2004/10/7#TrueT100#-1123!π345.54#下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？Name“120”“name”nFalse#11/12/2004#ff“11/16/99”12.345cj下列符號中，哪些可以是VisualBasic的合法變量名？A123a12_3123_aa,123a123IntegerXYZFalseSin(x)變量名sinxπ4把下列數(shù)學(xué)表達(dá)式寫成VisualBasic表達(dá)式：0x 3y（1）|xy10x 3y

b24acb24acb（3）

xy1111

（4）

xyxy1

e10

ln10（5）（6）寫出下列表達(dá)式的值：（1）123+23Mod10\7+Asc("A")（2）Int(68.555*100+0.5)/100（3）#11/22/2004#-10（4）"ZXY"&123&"abc"a=7，b=3，c=4，求下列表達(dá)式的值：（1）a+3*c （2）a^2/4（3）a/2+3\2 （4）aMod3+b^3/c\5寫出下列函數(shù)的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("VisualBasic（5）Int(Abs(99-100)/2) （6）Sgn(7*3+2)（7）LCase("HellowVB!") （8）Mid("HellowVB!",4,3)（9）Left("HellowVB!",3) （10）Val("1623個")（11）Str(-459.55) （12）UCase("VisualBasic")選擇題可以同時刪除字符串前導(dǎo)和尾部空格的函數(shù)是 。A.Ltrim B.Rtrim C.Trim D.Mid函數(shù)Int(Rnd(1)*是在哪個范圍產(chǎn)生隨機(jī)整數(shù) 。A.(0,1) B.(0,9) C.(1,10) D.(1,9)數(shù)學(xué)式子sin25o寫成VisualBasic表達(dá)式是 。A.Sin25 B.Sin(25) C.Sin(25o) D.Sin(25*3.14/180)（4）表達(dá)式16/4–2^3*8/4Mod5\2的值是 。A.14 B.4 C.20 D.2（5）數(shù)學(xué)關(guān)系式3x10表示成正確的VB表達(dá)式為 。A.3<=x<10 B.x>=3AndC.x>=3Orx<10 D.3<=xAnd<10（6）已知A=”12345678”，則表達(dá)式Val(Left(a,4)+Mid(a,4,的值是 。A.123456 B.123445 C.8 D.6表達(dá)式Len("123程序設(shè)計(jì)ABC")的值是 。A.10 B.14 C.20 D.17表達(dá)式LenB("123程序設(shè)計(jì)ABC")的值是 。A.10 B.14 C.20 D.17下面正確的賦值語句是 。A.x+y=30 B.y=x+30 C.y=π*r*r D.3y=x+1為了給三個變量賦初值1，正確的賦值語句是 。A.x=1:y=1:z=1 B.x=1,y=1,z=1 C.x=y=z=1 D.x,y,z=1賦值語句g=123+Mid("123456",3,執(zhí)行后，變量g中的值是 。A.“12334” B.123 C.12334 D.157（12）賦值語句g=123&Mid("123456",3,執(zhí)行后，變量g中的值是 。A.“12334” B.123 C.12334 D.157如果x是一個正實(shí)數(shù)，對x的第3位小數(shù)四舍五入的表達(dá)式是 。A.0.01*Int(x+0.005) B.0.01*Int(100*(x+0.005))C.0.01*Int(100*(x+0.05)) D.0.01*Int(x+0.05)下列哪組語句可以將變量a，b的值互換 。A.a=b:b=a B.a=a+b:b=a-b:a=a-bC.a=c:c=b:b=a D.a=(a+b)/2:b=(a-b)/2下列四個字符串進(jìn)行比較，最小的是 。A.“9977” B.“B123” C.“Basic” D.“DATA”下列邏輯表達(dá)式中，其值為True的是 。A.“b”>“ABC” B.>“THE” C.9>“H” D.“A”>“a”表達(dá)式a+b=c是 。賦值表達(dá)式 B.字符表達(dá)式 C.算術(shù)表達(dá)式 D.關(guān)系表達(dá)式在下列表達(dá)式中，非法的是 。A.a=b+c B.a>b+c C.a≠b>c D.a<b+c語句PrintFormat(“HELLO”,“<”)的輸出結(jié)果是 。A.HELLO B.hello C.He D.heMsgBox函數(shù)的返回值的類型是 。整數(shù) B.字符串 C.邏輯值 D.日期用語句DimA(-3to5)AsLong定義的數(shù)組元素個數(shù)是 。A.7 B.8 C.9 D.10用語句DimA(3,-3toto6)AsLong定義的數(shù)組元素個數(shù)是 。A.12 B.27 C.64 D.80程序閱讀題（１）執(zhí)行下面程序段后，變量c$的值為 。aVisualBasicb我們"c$=b&"喜歡"&UCase(Mid(a,10,5))（２）執(zhí)行下面程序顯示的結(jié)果是 。PrivateSubForm_Click()DimxAsx=Int(Rnd)+4SelectCasexCase5Print優(yōu)秀Case4Print良好Case3Print"及格"CaseElsePrint"不及格"EndSelectEndSub（３）執(zhí)行下面程序段后，變量ｘ的值為 。DimxAsx=5Fori=1To20Stepx=x+i\5Nexti（４）執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimxAsIntegerFori=1To3Forj=1ToiFork=jTo3x=x+NextkNextjNextiPrintxEndSub（５）執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimxAsx=0DoWhilex<50x=(x+2)*(x+n=n+1LoopPrint"x=";x;"n=";EndSub（６）執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimxAsInteger,aAsx=0Forj=1Toa=a+jNextjx=jPrintx,aEndSub（７）以下程序的循環(huán)次數(shù)是 。Forj=8To35StepPrintj;Nextj（８）執(zhí)行下面程序輸入４后，程序輸出的結(jié)果是 。PrivateSubx=InputBox(x)Ifx^2<15Theny=1/xIfx^2>15Theny=x^2+PrintyEndSub（９）執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimsumAsIntegersum%=19sum=2.23Printsum%;EndSub（10）執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba=100Dos=s+aa=a+LoopUntila>PrintaEndSub(11)執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba="ABCD"b="efgh"c=LCase(a)d=Printc+dEndSub執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubx=2:y=4:z=6x=y:y=z:z=Printx;y;zEndSub執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimcountAsIntegercount=0Whilecount<20count=count+WendPrintEndSub執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba="*":b="$"Fork=1To3x=Str(Len(a)+k)&Printx;NextkEndSub執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubk=0:a=0DoWhilek<k=k+2k=k*k+a=a+kLoopPrintaEndSub執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimM(10)AsLong,N(10)Asi=3Fort=1ToM(t)=tN(i)=2*i+NexttPrintN(i);EndSubA.3 11 B.3 15 C.11 13 D.15 3執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDima()a=Array(1,2,3,4)j=1Fori=3To0Steps=s+a(i)*jj=j*NextiPrintsEndSubA.1234 B.4321 C.12 D.34執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimM(10)Fork=1ToM(k)=11-kNextx=6PrintM(2+EndSubA.2 B.3 C.4 D.5執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()Dima(10)AsInteger,p(3)Ask=5Fori=1Toa(i)=iNextiFori=1Top(i)=a(i*i)NextiFori=1To3k=k+p(i)*NextiPrintkEndSubA.33 B.28 C.35 D.37執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()Dima(10,10)AsFori=2To4Forj=4Toa(i,j)=i*jNextjNextiPrinta(2,5)+a(3,4)+a(4,5)EndSubA.22 B.42 C.32 D.52填空題填空，使得程序運(yùn)行后，能在窗體上打印如圖所示的圖案。PrivateSubPrintFori=1To4PrintTab(8-Forj=1To8Print"*";（1）PrintNextiEnd10個（1~100）5整除的數(shù)并求其和，請用正確的內(nèi)容填空。PrivateSubForm_Click()DimsumAsInteger,xAsFori=1To10x=Int(Rnd*100+1)If （2） =0sum=sum+xPrint"x=";EndIfNextiIfsum<>0ThenPrint"sum=";EndIfEndSub用正確的內(nèi)容填空，使得以下程序能夠找出50數(shù)。PrivateSubForm_Click()DimaAsInteger,bAsDimcAsSingleFora=1ToForb=aToc=Sqr(a^2+b^2)If （3） ThenPrinta,b,NextbNextaEndSub（4）用正確的內(nèi)容填空，使得以下程序能夠計(jì)算1+1/3+1/5++1/(2N+1)1/(2N+1)。PrivateSubsum=1:n=1Don=n+2temp=1/sum=sum+tempIftemp<0.00001Then （4） LoopPrint"N=";nPrint"sum=";sumEndSub77位評委對某選手的打能正確運(yùn)行。PrivateSubsum=0Fori=1To7cj&i&錄入Ifi1ThenMax=Min=cjElseIfMin>cjMin=cjElseIfMax<cjMax=cjEndEndIfsum=sum+Nextiaver= （5） Print"該選手的成績?yōu)椋?,averEndSub50內(nèi)容填空。PrivateSubDima(1To6)AsIntegerRandomizeFori=1Ton= （6） a(n)=a(n)+NextiFori=1To6Printi;點(diǎn)出現(xiàn)a(i);次NextiEndSub編程題1~10035同時整除的數(shù)打印出來，并統(tǒng)計(jì)其個數(shù)。140.7516億。100~2003整除的自然數(shù)。（4） s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。編寫程序計(jì)算S10-5Print輸出計(jì)算結(jié)果。其中：S11

1

(1)k112 3 4 K假設(shè)某項(xiàng)稅收的規(guī)定如下：500元以內(nèi)，免征；500～10005003%；10004%；20005%試編程實(shí)現(xiàn)上述操作。編寫程序，用InputBox3個正整數(shù)，打印其中最大的數(shù)。編寫程序，任意輸入三個整數(shù)A，B，C，按由大到小順序把它們打印出來。x3 x5 x2n1編寫程序，計(jì)算絕對值小于10-8

sinxx

(1)n

(2n1)!

直到第n項(xiàng)的分別編寫兩個程序，在窗體上分別打印出如下所示的圖形。編寫程序，輸出10006、36=1+2+36是完數(shù)。一只小球從10408次落地時，共計(jì)經(jīng)過了多少米？1008178+17=2517-8=9都是平方數(shù)，則817就稱為自然數(shù)對。100~999之間的所有“水仙花數(shù)153編寫程序，在窗體上打印下圖所示的“數(shù)字金字塔50出所有可能的兌換方案。編寫程序，建立并輸出一個10×10的矩陣，該矩陣兩條對角線上的元素為10。一、選擇題

習(xí)題3窗體的標(biāo)題條顯示內(nèi)容由窗體對象( )屬性決定。A.BackColor B.BackStyle C.Text D.Caption窗體的示意圖標(biāo)可( )屬性來設(shè)置。A.Picture B.Image C.Icon D.MouseIcon若要取消窗體的最大化功能，則可設(shè)( )屬性為False來實(shí)現(xiàn)。A.ControlBox B.MinButton C.MaxButton D.Enabled窗體的風(fēng)格由窗體對象( 屬性來設(shè)置。A.BackStyle B.BorderStyle C.WindowState D.FillStyle若要以程序代碼方式設(shè)置在窗體中顯示文本的字體大小，則可用窗體對象( )屬來實(shí)現(xiàn)。A.FontName B.Font C.FontSize D.FontBold若要設(shè)置文本的顯示顏色，則可( )屬性來實(shí)現(xiàn)。A.BackColor B.ForeColor C.FillColor D.BackStyle若要使用窗體啟動時，位于屏幕的中間，則可通( )屬性來設(shè)置。A.Top B.Left C.StartUpPosition D.WindowState若要禁止窗體被移動，則可設(shè)置窗體( )屬性為False來實(shí)現(xiàn)。A.Move B.Moveable C.MinButton D.ControlBox若要將窗體隱藏起來，則實(shí)現(xiàn)的方法( )A.Hide B.UnLoad C.Show D.WindowState(10)命令鈕的標(biāo)題文字( )屬性來設(shè)置。A.Text B.Caption C.Name D.(名)(11)命令按鈕標(biāo)題文字的下劃線，可通( )符號來設(shè)置A.＼＜ B.& C._ D＼＞若要將某命令按鈕設(shè)置為默認(rèn)命令鈕，則可設(shè)( )屬性為True來實(shí)現(xiàn)。A.Value B.Cancel C.Default D.Enable (13)若要設(shè)置命令鈕的工具提示，則可通( )屬性來設(shè)置。A.Caption B.Text C.Value D.ToolTipText若要使用某命令按鈕獲得控制焦點(diǎn)，則可使( )方法來設(shè)置。A.Refresh B.SetFocus C.GotFocus D.()屬性的取值來實(shí)現(xiàn)。A.Visible B.Enabled C.Default D.Value在運(yùn)行時，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令按鈕對象( 性為True來實(shí)現(xiàn)。A.Enabled B.Value C.Default D.(17)標(biāo)簽框的邊框，( )屬性的設(shè)置值決定。A.BorderStyle B.BackStyle C.BackColor D.AutoSize若要使用標(biāo)簽框的大小自動與所顯示的文本相適應(yīng)，則可通過設(shè)置( )屬性的值True來實(shí)現(xiàn)。A.AutoSize B.Alignment C.Appearance D.Visible若要設(shè)置或返回文本框中的文本，則可通過文本框?qū)ο? 屬性來實(shí)現(xiàn)。A.Caption B.Text C.(名稱) D.Name若要使用文本框成為只讀文本框，可通過設(shè)( )屬性值為True來實(shí)現(xiàn)。A.ReadOnly B.Lock C.Locked D.Enabled(21)若要設(shè)置定時器控件的定時時間，可通( 屬性來設(shè)置A.Interval B.Value C.Enabled D. Text若要多列顯示列表項(xiàng)，可通過設(shè)置列表框?qū)ο? 屬性來實(shí)現(xiàn)。A.Columns B.MultiSelect C.Style D.(23)若要獲知當(dāng)前列表項(xiàng)的數(shù)目，可通過訪( )屬性來實(shí)現(xiàn)。A.List B.ListIndex C.ListCount D.Text若要向列表框新增列表項(xiàng)，則可使用的方法( )。A.Add B.Remove C.Clear D.AddItem若要清除列表框的內(nèi)容，可使( )方法來實(shí)現(xiàn)。A.Add B.Remove C.Clear D.AddItem(26)在3種不同風(fēng)格的組合框中，用戶不能輸入數(shù)據(jù)的組合框( A.下拉式組合框 B.簡單組合框 C.下拉式列表框復(fù)選框或單選框的當(dāng)前狀態(tài)通( 屬性來設(shè)置或訪問。A.Value B. Checked C.Selected D.(28)下列控件中，沒有Caption屬性的( )。A.框架 B.列表框 C.復(fù)選框 D.單選按鈕復(fù)選框的Value屬性為1時，表( )。復(fù)選框未被選中 B.復(fù)選框被選中C.復(fù)選框內(nèi)有灰色的勾 D.復(fù)選框操作錯誤用來設(shè)置粗字體的屬性( )。A.FontItalic B.FontName C.FontBold D.FontSize將數(shù)據(jù)項(xiàng)“China”添加到列表框List1中，成為第一項(xiàng)應(yīng)使( 語句。A.List1.AddItem“China”,0 B.List1.AddItem“China”,1C.List1.AddItem0,“China” D.List1.AddItem1,“China”Interval1000，Enabled計(jì)算機(jī)將發(fā)出（）Beep聲。PrivateSubTimer1_Timer()Fori=1ToBeepNextiEndSubA.1000次 B.10000次 C.5次 D.以上都不對如果每0.5秒產(chǎn)生一個計(jì)時器事件，那么時鐘控件的Interval屬性應(yīng)設(shè)為（ 。A.5 B.50 C.500 D.5000將命令按鈕Command1的標(biāo)題復(fù)制到文本框控件作為顯示文本，應(yīng)執(zhí)行（ 。A.Text1=Command1 B.Text1=Command1.CaptionC.Text1.text=Command1.Caption D.Text1.Text=CStr(Command1)表示滾動條控件取值范圍最大值的屬性是（ 。A.Max B.LargeChange C.Value D.Max-Min二、填空題復(fù)選框的 屬性設(shè)置為2-Grayed時，將變?yōu)榛疑?，禁止用戶使用。VisualBasic中有一種控件組合了文本框和列表框的特點(diǎn)，這種控件是 。為了在程序運(yùn)行時把d:\pic文件夾中的圖形文件a.jpg裝入圖片框Picture1，所使用的句為 。計(jì)時器控件能有規(guī)律地以一定的時間間隔觸發(fā) 事件并執(zhí)行該事件過程中程序代碼。若要求輸入密碼時文本框中只顯示*號，則應(yīng)當(dāng)在文本框的屬性窗口中設(shè)置 性。圖像框和圖片框在使用時有所不同這兩個控件中能作為容器容納其它控件的是 。單擊滾動條邊的箭頭時，滾動條默認(rèn)滾動值為1，為了實(shí)現(xiàn)單擊滾動條邊的箭頭時，動條的滾動值為2，需要將其 屬性設(shè)置為。滾動條響應(yīng)的重要事件有 和Change，滾動條產(chǎn)生 Change事件是因改變了。列表框中的 和 屬性是數(shù)組。Command1Text1Command1為禁用（灰色Command1變?yōu)榭捎谩Ｕ堅(jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_ Command1.Enabled=TrueEndSub三、編程題FormLoadInputbox33MsgBox顯示出來。(TEXT1)中書輸入圓的半徑值后，單擊“計(jì)算面積”按鈕(COMMAND2)框(TEXT2)中。請將控件的相關(guān)事件代碼編寫出來，以完成上述各功能。下圖所示的界面，在圖示的文本框中輸入33個文本框中。GoodBy設(shè)計(jì)一程序界面如圖示，程序運(yùn)行時，拖動滾動條便可以改變顏色區(qū)的背景色。的初始時間，點(diǎn)擊“開始倒計(jì)時”按鈕就開始倒計(jì)時。名時，這個城市名顯示在右側(cè)列表框中設(shè)計(jì)如下圖所示的程序界面，實(shí)現(xiàn)計(jì)算兩個整數(shù)的最大公約數(shù)功能。除、冪次方及余數(shù)。當(dāng)用戶輸入數(shù)據(jù)時，會馬上更新運(yùn)算結(jié)果，界面如下圖所示：輸入兩點(diǎn)坐標(biāo)，在圖片框中顯示兩點(diǎn)的連線并計(jì)算兩點(diǎn)間的距離。習(xí)題41程序閱讀題Sub過程：SubS(xAsSingle,yAst=xx=t/yy=tModEndSub在窗體上添加一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimaAsSingleDimbAsa=5:b=4Sa,bPrinta,EndSub程序運(yùn)行時，單擊命令按鈕得到的結(jié)果是 。A.5,4 B.1,1 C.1.25,4 D.1.25,1在在窗體上添加一個命令按鈕Command1和一個文本框過程：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsx=5y=7z=0Text1.Text=Callp1(x,y,z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsc=a+bEndSub程序運(yùn)行后，單擊命令按鈕得到的結(jié)果是 。A.0 B.12 C.Str(z) D.沒有顯示假定有以下函數(shù)過程：FunctionFun(SAsString)AsDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+NextiFun=s1EndFunction在窗體上添加一個命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=InputBox("請輸入一個字符串")str2=Fun(str1)Printstr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中輸入字符串a(chǎn)bcdeg，單擊確定鈕后程序在窗體上輸出結(jié)果為 。A.abcdefg B.gfedcba C.ABCDEFG D.GFEDCBACommand1Label1Label2簽，然后編寫如下事件過程：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:y=3Callproc(X,y)Label1.Caption=XLabel2.Caption=yEndSubSubproc(ByValaAsInteger,ByValbAsInteger)X=a*y=b+bEndSub程序運(yùn)行后，單擊命令按鈕，則兩個標(biāo)簽中顯示的內(nèi)容分別是 。A.5和3 B.25和3 C.25和6 D.5和6（5）下列程序輸出結(jié)果為 。PrivateSubCommand1_Click()Fori=1To10GetValueiNextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByValaAsStaticSAsIntegerS=S+aGetValue=SEndFunctionA.10 B.65 C.66 D.11（6）以下程序的運(yùn)行結(jié)果是： 。Functionf(mAsInteger)Asb=1StaticcAsb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsa=2Sum=0Fori=1To3Sum=Sum+NextiPrintSumEndSubA.24 B.12 C.28 D.32（7）以下程序的運(yùn)行結(jié)果是： 。DimxAsInteger,yAsInteger,zAsSubs1(aAsInteger,bAsInteger)DimcAsa=2*ab=b+c=a+bEndSubSubs2(aAsInteger,ByValbAsInteger)DimcAsa=2*ab=b+c=a+bEndSubPrivateSubCommand1_Click()x=4y=4z=6Calls1(x,y)Printx+y+Calls2(x,y)Printx+y+zEndSubA.24 28 B.20 28 C.20 18 D.20 20（8）以下程序的運(yùn)行結(jié)果是： 。Subs1(b()AsInteger)Fori=1Tob(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1Toa(i)=i+5Nextis1a()Fori=1ToPrinta(i);NextiEndSubA.6789 B.12141618 C.2468 D.12342填空題Form1Form2Form1Form1上有一命令按鈕Command1體Form2，請將程序補(bǔ)充完整。PrivateSubCommand1_Click()Form1Form2.EndSubform1form2，一個標(biāo)準(zhǔn)模塊module1，設(shè)在form1aamodule1bb。Subaa(x,y,z)z=x*x+y*EndSubSubbb(x,y,z)z=x^3+y^EndSubform1text3text4中，請?zhí)羁胀瓿烧{(diào)用語句。PrivateSubCommand1_Click()a=Val(Text1.Text)b=CallText3.Text=c1bbText4.Text=c2EndSubform1CommonDialog1，程序運(yùn)行時，首先使用CommonDialog1打開一個標(biāo)準(zhǔn)顏色對話框，用于設(shè)置對象顏色，其次使用CommonDialog1PrivateSubForm_Load()CommonDialog1.Action=3Text1.BackColor=CommonDialog1.ColorCommonDialog1. =4Text1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1. EndSub編寫一個求最大公約數(shù)的函數(shù)，并調(diào)用該函數(shù)，程序如下：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsx=96y=64z=PrintzEndSubFunctiongcd(ByValaAsInteger,ByValbAsInteger)AsDimrAsIntegerDoWhileb<>r=aModba=b:Loopgcd=aEndFunction已知菲波納契數(shù)列具有如下遞推關(guān)系：f1f21fnfnfn2PrivateSubCommand1_Click()

n3a%=x=fib(a)PrintxEndSubFunctionSelectCasen%Case1fib=1Case2fib=1CaseElsefib=EndSelectEndFunction已知函數(shù)sum(kn)

2k

nkPrivateSubCommand1_Click()DimkAsInteger,iAsInteger,sAsn=5k=1Fori=1Tons=s+pow( NextiSum=sPrintEndSubFunctionpow(aAsInteger,bAsInteger)AsDimiAsInteger,tAsLongt=1Fori=1ToaNextipow=EndFunction3編程題0～6數(shù)字，顯示漢英對照輸出星期的函數(shù)過程。Function過程。輸入一個數(shù)，判斷其奇偶性。編寫求兩數(shù)中的較大數(shù)的函數(shù)過程，求多個數(shù)的較大數(shù)。編寫計(jì)算契比雪夫多項(xiàng)式的Function過程，其定義如下：n0T(n,x)x n12xT(nx)t(nx) n2選擇題

習(xí)題5菜單編輯器中，哪一個選項(xiàng)輸入希望在菜單欄上顯示的文本（）標(biāo)題 B.名稱 C.索引 D.訪問鍵下面哪個屬性可以控制菜單項(xiàng)可見或不可見（）A.Hide B.Checked C.Visible D.Enabled下面說法不正確的（）下拉菜單和彈出式菜單都是由菜單編輯器創(chuàng)建的5級子菜單下拉菜單中的菜單項(xiàng)不可以作為彈出式菜單顯示控制下拉菜單項(xiàng)是否可用，由菜單編輯器中的有效屬性設(shè)置菜單控件只有一個事件（）A.MouseUp B.Click C.DBClick D.KeyPress下面說法不正確的是（）頂層菜單不允許設(shè)置快捷鍵&符號。MenuTerm.EnableFlase將使該菜單項(xiàng)失效。填空題VisualBasic中的菜單可分為 菜單和 菜單。如要在菜單中設(shè)計(jì)分隔線，則應(yīng)將菜單項(xiàng)的標(biāo)題設(shè)置為 。想要顯示一彈出式菜單，可使用 方法。有些菜單項(xiàng)被點(diǎn)擊后將顯示一個對話框，通常在這些菜單項(xiàng)后有 。菜單中的“熱鍵”可通過在熱鍵字母前插入 符號實(shí)現(xiàn)?？赏ㄟ^快捷鍵 打開菜單編輯器。編程題2，AutoSizeTrue，BorderStyle屬1，F(xiàn)ontSize201000時間選項(xiàng)時，標(biāo)簽框內(nèi)顯示時間(表5-5各菜單項(xiàng)屬性菜單項(xiàng)名稱菜單項(xiàng)名稱電子日歷mnuElec....黑色mnuFblack....當(dāng)前日期mnuDate....紅色mnuFred....系統(tǒng)時間mnuTime....綠色mnuFgreen日歷背景mnuBcolor字體大小mnuSize....黑色mnuBblace....12mnu12....紅色mnuBred....20mnu20....綠色字體顏色mnuBgreenmnuFcolor....30mnu30程序的窗體設(shè)計(jì)和運(yùn)行界面如5-10和5-11所示：5-10程序窗體設(shè)計(jì)界面圖5-11程序運(yùn)行界面這里是幾位名人的簡介：金庸：著名武俠小說家，其作品具有的讀者數(shù)量，鮮有出其右者，代表作有《射雕英雄傳》、《天龍八部》等。路遙：著名作家，茅盾文學(xué)獎獲得者，代表作有《平凡的世界》和《人生》等。王火：作家，以長篇小說《戰(zhàn)爭與人》獲茅盾文學(xué)獎，但卻少被人所知道，一直居住在少被文壇關(guān)注的成都。貝聿銘：世界級建筑大師，設(shè)計(jì)過世界各地很多標(biāo)志性建筑，其中廣為人知是香港的中銀大廈。建立一個彈出式菜單，包含4個菜單項(xiàng)，分別為“金庸程序運(yùn)行后，單擊彈出菜單中的某個菜單項(xiàng)，在標(biāo)簽中顯示相應(yīng)的名字，而文本框中顯示該名MultiLineTrue，F(xiàn)ontSize20。習(xí) 題6選擇題Open”Rizhi.dat”ForOutputAs#1功能說明錯誤的是（）”Rizhi.dat””Rizhi.dat”不存在，則建立一個新文件Open“Sample.datForRandom#1Len50中的數(shù)據(jù)能夠進(jìn)行的操作是（）只能寫不能讀 B.只能讀不能寫C.即可以讀，也可以寫 D.不能讀，也不能寫VB中的數(shù)據(jù)文件類型（）順序文件 B.數(shù)據(jù)庫文件C.隨機(jī)文件 D.二進(jìn)制文件下列說法錯誤的是（）Write#OutputAppend方式打開Open語句打開一個文件時，對同一個文件可以用幾個不同的文件號打開OutputAppend方式打開文件時，不用將文件關(guān)閉，就能重新打開文件Append下面幾個關(guān)鍵字均表示文件的打開方式，只能進(jìn)行讀不能寫的是（）A.Input B.Output C.Random D.Append下列哪個不是寫文件語句（）A.Put B.Print# C.Write# D.OutputDrive屬性將激活（）事件A.Change B.Scroll C.KeyDown D.KeyUpDrive1Dir1File1文件列表框同步協(xié)調(diào)工作（）Drive1ChangeDir1.PathDir1ChangeFile1.PathDir1.Path代碼Drive1的Change事件過程中加入Dir1.Path=Dir1.PatDir1的ChangeFile1.PathDrive1.Drive代碼Dir1ChangeDir1.PathDrive1ChangeFile1.PathFile1.FileName代碼Dir1ChangeDir1.PathDrive1ChangeFile1.PathDir1.Path代碼程序閱讀題寫出程序運(yùn)行結(jié)果PrivateSubCommand1_Click(Dima（20）AsIntegern\”rts#1Fori=2To8Forj=1ToPrint#1,NextjNextiClose#1Open"d:\Data.txt"ForInputAsk=0WhileNotk=k+1Input#2,aWendClose#2Fori=2Tok/Printa(i)NextIEndSub執(zhí)行以下程序后，Prime.dat文件中的內(nèi)容為PrivateSubForm_Click()DimnumAsInteger,dat1AsInteger,dat2AsDimswitAsBooleanOpen"d:\prime.dat"ForOutputAsnum=0Fordat1=2Toswit=TrueFordat2=2ToSqr(dat1)If(dat1Moddat2)=0swit=FalseExitEndIfNextdat2IfswitThennum=num+1Write#1,第num;個數(shù)EndIfNextClose#1EndSub3．編程題編寫程序，建立一順序文件，輸入某公司銷售記錄，每次從鍵盤上輸入一種商品部內(nèi)容。6student.dat習(xí) 題7選擇題利用可視化數(shù)據(jù)管理器彈出菜單中選擇（）命令，即可添加記錄。設(shè)計(jì) B.打開 C.新建表 D.修改Data控件的哪一個屬性為設(shè)置訪問的數(shù)據(jù)表的名稱（）A.DatabaseName B.connect C.Recordsource D.RecordsettypeDataActiveX綁定控件A.DBListBox B.DbcomboBox C.DBGrid D.ImageList記錄集中移動記錄到上一條記錄的方法是（）A.MoveFirst B.Updata C.MoveNext D.MovePrevious將新記錄集添加到記錄集后，保存更新結(jié)果使用的方法是（）A.AddNew B.Updata C.CancelUpdata D.Refresh能從一個或多個數(shù)據(jù)表中取出字段，但只能瀏覽的記錄集對象是（）表類型 B.動態(tài)集類型 C.快照型 D.都不對將一文本框與數(shù)據(jù)控件相關(guān)聯(lián)需要設(shè)定文本框的（）屬性A.Recordsource B.DataField C.DataSource D.RecordsetType詢語句（）Select*FromStudentWhere 姓名=“李？峰”Select*FromStudentWhere 姓名=“李*”Select*FromStudentWhere 姓名=“李*”And姓名=“*強(qiáng)“Select*FromStudentWhere 姓名Like“李*”應(yīng)用題查詢和增加等操作。VB的可視化數(shù)據(jù)管理器建立下面的數(shù)據(jù)表：學(xué)號名稱性別年齡特長030112李萬能男19唱歌031235陳 香女19街舞030456蔡令軍男19電腦編程030886張小小女21演講并要求能夠任意選擇查詢數(shù)據(jù)的方式，如即可通過學(xué)號查詢，也可通過特長查詢等。將題內(nèi)容，還可以顯示每個人的照片，且照片的顯示會隨著記錄指針的移動而變化。一、基本概念題

習(xí)題2解答說明下列哪些是VisualBasic合法的直接常量，并分別指出它們的類型100.0 %100 1E1 123D3 123,456 0100“ASDF”“1234.5”#2004/10/7#100#π&O78&H123True T-1123!345.54#答：在VB中，直接常量是以直接明顯的形式給出的數(shù)據(jù)。根據(jù)數(shù)據(jù)類型的不同，直接常量分為：字符串常量、數(shù)值常量、日期常量和布爾常量。算機(jī)處理的字符。本題中F”、”是字符串常量；VisualBasic中除十進(jìn)制數(shù)值常&O&H中，100.01E1123D3、0100100&O78、&H123、-1123!和345.54#均為數(shù)值常量。日期常量用來表示某一天或某一天的具體時間。在VisualBasic中，日期常量用兩個“#”號加以界定。本題中，#2004/10/7#是日期常量。邏輯型常量只有True和False本題中，％100、123,456、πT不是合法的常量。

本題中，True是邏輯常量。下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？Name“name”Falseff“11/16/99”cj“120”n#11/12/2004#12.345””0”5Name、ff、cjnVisualBasicA123a12_3123_aa,123a123IntegerXYZFalseSin(x)變量名sinxπ5B、、不能用數(shù)字開頭不能用逗號、a123（不能有空格、FalseSin(x)（VB、π（不是英文字母。把下列數(shù)學(xué)表達(dá)式寫成VisualBasic10x 3y（1）|x10x 3y

xy)6b24acb24ac（3）

xy1111

（4）

2axyxy1

e10

ln10（5）（6）答：(1)abs(x+y)+z^5(2)(1+x*y)^6(3)(10*x+Sqr(3*y))/(x*y)(4)(-b+Sqr(b*b-4*a*c))/(2*a)(5)1/(1/r1+1/r2+1/r3)(6)Sin(3.14159*45/180)+(Exp(10)+log(10))/Sqr(x+y+1)寫出下列表達(dá)式的值：（1）123+23Mod10\7+Asc("A")（2）Int(68.555*100+0.4)/100（3）#11/22/2004#-10（4）"ZXY"&123&"abc"答：VB中計(jì)算表達(dá)式的值時，首先要考慮的是運(yùn)算符的優(yōu)先級。(1)式中整除運(yùn)算符\優(yōu)先級最高，故首先計(jì)算10\7＝1；然后計(jì)算23Mod1＝0；所以整個表達(dá)式的值=123＋0＋65＝188。(2)式中Int(68.555*100+0.4)=Int(6855.9)/100=6855/100=68.55。注意Int()函數(shù)取整時，參數(shù)如果是整數(shù)，略去小數(shù)部分；參數(shù)是負(fù)數(shù)時，取不大于參數(shù)的最大整數(shù)。(3)式中的10表示天數(shù)，故表達(dá)式的值是2004-11-12。(4)“&”運(yùn)算符的作用是把字符串連接起來，如果遇到數(shù)值，則先把數(shù)值轉(zhuǎn)換成字符串后再連接，所以表達(dá)式的值是"ZXY123abc"。設(shè)a=7，b=3，c=4，求下列表達(dá)式的值：（1）a+3*c （2）a^2/4（3）a/2+3\2 （4）aMod3+b^3/c\5答：（1）式=7+3*4=19；（2）式=7*7/4=12.25;（3）式=7/2+3\2=3.5+1=4.5;（4）式=1+27\4/5=1+6.75\5=1+6\5=2;寫出下列函數(shù)的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("VisualBasic（5）Int(Abs(99-100)/2) （6）Sgn(7*3+2)（7）LCase("HellowVB!") （8）Mid("HellowVB!",4,3)（9）Left("HellowVB!",3) （10）Val("1623個")（11）Str(-459.55) （12）UCase("VisualBasic")答：（1）Int(-3.14159)=-4;（2）Fix(-3.14159)=-3;（3）Sqr(Sqr(81))=3（4）Len("VisualBasic程序設(shè)計(jì)")=16;（5）Int(Abs(99-100)/2)=0;（6）Sgn(7*3+2)=1;LCase("HellowVB!")=”hellowvb”;Mid("Hellow4,3)=”low”;Left("HellowVB!",3)=”Hel”;（10）Val("1623個")=16;（11）Str(-459.55)=”-459.55”;（12）UCase("VisualBasic")=”VISAULBASIC”;二、選擇題可以同時刪除字符串前導(dǎo)和尾部空格的函數(shù)是 。A.Ltrim B.Rtrim C.Trim D.Mid函數(shù)Int(Rnd(1)*是在哪個范圍產(chǎn)生隨機(jī)整數(shù) 。A.(0,1) B.(0,9) C.(1,10) D.(1,9)數(shù)學(xué)式子sin25o寫成VisualBasic表達(dá)式是 。A.Sin25 B.Sin(25) C.Sin(25o) D.Sin(25*3.14/180)（4）表達(dá)式16/4–2^3*8/4Mod5\2的值是 。A.14 B.4 C.20 D.2（5）數(shù)學(xué)關(guān)系式3x10表示成正確的VB表達(dá)式為 。A.3<=x<10 B.x>=3AndC.x>=3Orx<10 D.3<=xAnd<10（6）已知A=”12345678”，則表達(dá)式Val(Left(a,4)+Mid(a,4,的值是 。A.123456 B.123445 C.8 D.6表達(dá)式Len("123程序設(shè)計(jì)ABC")的值是 。A.10 B.14 C.20 D.17下面正確的賦值語句是 。A.x+y=30 B.y=3π*r*r C.y=x+30 D.3y=x+1為了給三個變量賦初值1，正確的賦值語句是 。A.x=1:y=1:z=1 B.x=1,y=1,z=1 C.x=y=z=1 D.x,y,z=1（10）賦值語句g=123+Mid("123456",3,執(zhí)行后，變量g中的值是 。A.“12334” B.123 C.12334 D.157表達(dá)式Not（a+b=c-d）。邏輯表達(dá)式 B.字符表達(dá)式 C.算術(shù)表達(dá)式 D.關(guān)系表達(dá)式如果x是一個正實(shí)數(shù)，對x的第3位小數(shù)四舍五入的表達(dá)式是 。A.0.01*Int(x+0.005) B.0.01*Int(100*(x+0.005))C.0.01*Int(100*(x+0.05)) D.0.01*Int(x+0.05)下列哪組語句可以將變量a，b的值互換 。A.a=b:b=a B.a=a+b:b=a-b:a=a-bC.a=c:c=b:b=a D.a=(a+b)/2:b=(a-b)/2下列四個字符串進(jìn)行比較，最小的是 。A.“9977” B.“B123” C.“Basic” D.“DATA”下列邏輯表達(dá)式中，其值為True的是 。A.“b”>“ABC” B.>“THE” C.9>“H” D.“A”>“a”表達(dá)式a+b=c是 。賦值表達(dá)式 B.字符表達(dá)式 C.算術(shù)表達(dá)式 D.關(guān)系表達(dá)式在下列表達(dá)式中，非法的是 。A.a=b+c B.a>b+c C.a≠b>c D.a<b+c語句PrintFormat(“HELLO”,“<”)的輸出結(jié)果是 。A.HELLO B.hello C.He D.heMsgBox函數(shù)的返回值的類型是 。整數(shù) B.字符串 C.邏輯值 D.日期用語句DimA(-3to5)AsLong定義的數(shù)組元素個數(shù)是 。A.7 B.8 C.9 D.10答：選CTrim函數(shù)可以出去字符串兩端的空格，而LtrimRtrim端或右端的空格。。Rnd0～1（1）10Int0～9之間。選DVB是弧度。（4）16/42^3*8/4Mod5\2=4-8*8/4Mod2=4-16Mod。Bx39用法。選B。Left(a,4)的值是”1234”，Mid(a,4,2)的值是”34”，兩字符串連接后再由Val函數(shù)轉(zhuǎn)變?yōu)閿?shù)值123445。A。在VB等于字符的個數(shù)。A、D不合法的變量名。ABDC是一關(guān)系表達(dá)式。D值后，再相加；字符串不是數(shù)字時，系統(tǒng)提示出錯。A。由邏輯運(yùn)算符組成的表達(dá)式是邏輯表達(dá)式。B。B。AASCII碼值從左到右一一比較，先大為大。A。Da+b=ca+bFalse。CVB<>。選B。在格式輸出函數(shù)中<”是強(qiáng)制小寫符號。AMsgBox哪一個按鈕。選。定義的數(shù)組元素個數(shù)是93，4，5。三、判斷題(1)VB6.0&H128(2)設(shè)A="123",B=123,則A+B的結(jié)果為246，A-B的結(jié)果為0。(3)已知A$="87654321"，則表達(dá)式Val(Left$(A$，4)+Mid$(A$,4,2))的值是：876554。Rnd0、1表示x59:xMod5=0ORxMod。Len("等級考試")和LenB(VB6.0PrintInStr("VisualBasic",。數(shù)組中數(shù)組元素的值也不會變化。數(shù)組元素的下標(biāo)可以是常數(shù)、變量或表達(dá)式。For…NextStepDo…Loop［While｜Until］循環(huán)中，WhileUntil一。在For...NextExitFor位置。動態(tài)數(shù)組在定義時已被分配存儲空間。VB6.0，OptionBase0答：&H12168&O。把字符串轉(zhuǎn)變?yōu)閿?shù)值后，再相加。Left$(A4876Mid$(A$,4,25相加后，再由Val876554。Rnd0，1。對。一個數(shù)是另一個數(shù)的倍數(shù)時，相除余數(shù)為零。LenVB6.0InStr0。但數(shù)組元素的值是可以變化的。對。對。While關(guān)鍵字和Until中應(yīng)有ExitDo對。錯。動態(tài)數(shù)組在定義時沒有被分配存儲空間。對。四、程序閱讀題（1）執(zhí)行下面程序,顯示的結(jié)果是 。PrivateSubForm_Click()DimxAsx=Int(Rnd)+4SelectCasexCase5Print優(yōu)秀Case4Print良好Case3Print"及格"CaseElsePrint"不及格"EndSelectEndSub答：運(yùn)行結(jié)果是x=0+4=，在SelectCase語句中執(zhí)行Print良好語句。執(zhí)行下面程序段后，變量ｘ的值為 。DimxAsx=5Fori=1To20Stepx=x+i\5Nextiｘ16Int((20-1)/3+1)=7x3x4567x3；x。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimxAsIntegerFori=1To3Forj=1ToiFork=jTo3x=x+NextkNextjNextiPrintxEndSub答：輸出結(jié)果是x=14。這是一個3重循環(huán)，最內(nèi)層的循環(huán)體共執(zhí)行14次，每次加1。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimxAsx=0DoWhilex<50x=(x+2)*(x+n=n+1LoopPrint"x=";x;"n=";EndSubx=7221272，n。x50時，循環(huán)終止。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimxAsInteger,aAsx=0Forj=1Toa=a+jNextjx=jPrintx,aEndSub答：輸出結(jié)果是6 15。變量x中保存的是循環(huán)變量j的終止值。循環(huán)體執(zhí)行了5次，故a的值是15。以下程序的循環(huán)次數(shù)是 。Forj=8To35StepPrintj;Nextj答：循環(huán)體共執(zhí)行Int((35-8)/3+1)=10次。執(zhí)行下面程序輸入４后，程序輸出的結(jié)果是 。PrivateSubx=InputBox(x)Ifx^2<15Theny=1/xIfx^2>15Theny=x^2+PrintyEndSub答：輸出結(jié)果是17。因?yàn)閤^2＝16>15，故程序執(zhí)行y=x^2+1=17。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimsumAsIntegersum%=19sum=2.23Printsum%;EndSub答：輸出結(jié)果是2 。程序中變量sum被定義成整型變量，所以賦與實(shí)數(shù)值時，系會把小數(shù)部分除去。％是類型符號，也是表示整型。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba=100Dos=s+aa=a+LoopUntila>PrintaEndSub答：輸出結(jié)果是101。程序中使用的是后測型循環(huán)結(jié)構(gòu)。循環(huán)體執(zhí)行1此后，變量a的值變?yōu)?01，滿足循環(huán)結(jié)束條件，故循環(huán)終止。(10)執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba="ABCD"b="efgh"c=LCase(a)d=Printc+dEndSub"abcdEFGH"LCase()函數(shù)的作用是把字符串中的大寫字母轉(zhuǎn)換成小寫；UCase()函數(shù)的作用是把字符串中的大寫字母轉(zhuǎn)換成大寫。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubx=2:y=4:z=6x=y:y=z:z=Printx;y;zEndSub答：輸出結(jié)果是4 6 4。應(yīng)注意的是本程序無法實(shí)現(xiàn)3個變量值的互換。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimcountAsIntegercount=0Whilecount<20count=count+WendPrintEndSub答：輸出結(jié)果是20。程序中的循環(huán)體執(zhí)行20次，當(dāng)count20件，程序執(zhí)行循環(huán)結(jié)構(gòu)后面的打印語句。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba="*":b="$"Fork=1To3x=Str(Len(a)+k)&Printx;NextkEndSub答：輸出結(jié)果是"2$""3$""4$"。程序循環(huán)執(zhí)行時，Len(a)的返回值始終是1，Str(Len(a)+k)的值分別是2、3、4。字符串連接符&把兩個字符連接在一起。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubk=0:a=0DoWhilek<k=k+2k=k*k+a=a+kLoopPrintaEndSub答：輸出結(jié)果是78。程序中的循環(huán)體可以被執(zhí)行兩次。第1次執(zhí)行后變量k、a的值均為6，第2次循環(huán)后，k的值是72，a的值是78。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()DimM(10)AsLong,N(10)Asi=3Fort=1ToM(t)=tN(i)=2*i+NexttPrintN(i);M(i)EndSub答：輸出結(jié)果是11 3。本程序中的循環(huán)體執(zhí)行5次，但由于變量i的值保持不變，故對M(t)和N(3)進(jìn)行賦值。循環(huán)結(jié)束后的值是的值是3。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDima()a=Array(1,2,3,4)j=1Fori=3To0Steps=s+a(i)*jj=j*NextiPrintsEndSub答：輸出結(jié)果是1234。程序中的循環(huán)體執(zhí)行4次，變量s的值為4+30+200+1000=1234。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubDimM(10)Fork=1ToM(k)=11-kNextx=6PrintM(2+M(x))EndSub4M的值為（10，91M(6的值是5，故M(2+5)=M(7的值是。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()Dima(10)AsInteger,p(3)Ask=5Fori=1Toa(i)=iNextiFori=1Top(i)=a(i*i)NextiFori=1To3k=k+p(i)*NextiPrintkEndSub答：輸出結(jié)果是33。前兩個循環(huán)執(zhí)行完成后數(shù)組a的值為910，數(shù)組p的值為，3，。第3k=5+×2+×2+×2=3。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSubForm_Click()Dima(10,10)AsFori=2To4Forj=4Toa(i,j)=i*jNextjNextiPrinta(2,5)+a(3,4)+a(4,5)EndSub答：輸出結(jié)果是42。程序中數(shù)組a11×11=121個元素，但循環(huán)語句只對其中的部分元素賦了值。其中a(2,5)的值是的值是的值是20，三者之和是42以下程序運(yùn)行的結(jié)果。OptionBase1PrivateSubCommand1_Click()Dima,b(3,3)a=array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3b(i,j)=a(i*j)If(j>=i)ThenPrintTab(j*3);Format(b(i,j),"###");NextjPrintNextiEndSubA.123B.1C.147D.12345645246467897893699答：輸出結(jié)果是選項(xiàng)D。五、填空題在VB中聲明符號常量的關(guān)鍵字。設(shè)a=1,b=2,c=3,則VB6.0表達(dá)式：a<borb<candc<a的值。"a","T","Z","9"，這四個字符中的ASCII碼值最大。執(zhí)行語句B=MsgBox("XXX",,"YYY")后在消息框中的標(biāo)題信息(5)函數(shù)Len("Hello!"+Space(2)+Mid("Shanghai",5,3))的值。(6)表達(dá)式Ucase(Mid("abcdefgh",3,4))的值。(7)表達(dá)式Int(1234.555*100+0.5)/100的結(jié)果。使用數(shù)組聲明語句Dima(3,-2TO2,則數(shù)組a包含元素的個數(shù)。For-Next循環(huán)<step>子句缺省時，循環(huán)變量每次改變的值。PrivateSubForm_Click()PrintFori=1To4PrintTab(8-Forj=1To8Print"*";()PrintNextiEnd10個（1~100）之間的隨機(jī)整數(shù)，打印其中能被5整除的數(shù)并求其和，請用正確的內(nèi)容填空。PrivateSubForm_Click()DimsumAsInteger,xAsFori=1To10x=Int(Rnd*100+1)If （） =0sum=sum+xPrint"x=";EndIfNextiIfsum<>0ThenPrint"sum=";EndIfEndSub用正確的內(nèi)容填空，使得以下程序能夠找出50PrivateSubForm_Click()DimaAsInteger,bAsDimcAsSingleFora=1ToForb=aToc=Sqr(a^2+b^2)If （） ThenPrinta,b,NextbNextaEndSub(13)用正確的內(nèi)容填空，使得以下程序能夠計(jì)算1+1/3+1/5+……+1/(2N+1)，直到1/(2N+1)小于10-5。PrivateSubsum=1:n=1Don=n+2temp=1/sum=sum+tempIftemp<0.00001Then （） LoopPrint"N=";nPrint"sum=";sumEndSub7位評委給參賽選手打分。以下程序是輸入7去掉最高分和最低分后計(jì)算其平均值作為該選手的成績。請?zhí)羁帐沟贸绦蚰苷_運(yùn)行。PrivateSubsum=0Fori=1To7cj&i&錄入Ifi1ThenMax=Min=cjElseIfMin>cjMin=cjElseIfMax<cjMax=cjEndEndIfsum=sum+Nextiaver= （） Print"該選手的成績?yōu)椋?,averEndSub50填空。PrivateSubDima(1To6)AsIntegerRandomizeFori=1Ton= （） a(n)=a(n)+NextiFori=1To6Printi;點(diǎn)出現(xiàn)a(i);次NextiEndSub答：ConstTrue（3）"a"（4）YYY（5）11（6）CDEF（7）1234.56（8）120（9）1（10）Nextj（11）xMod5（12）c=Int(c)Andc<=50（13）ExitDo（14）(sum-Max-Min)/5（15）Int(Rnd*6)+1六、編程題1~10035解答：一個整數(shù)能被另一整數(shù)整除的條件是，它們相除時余數(shù)為零。PrivateSubForm_Click()DimiAsInteger,nAsFori=1To100IfiMod3=0AndiMod5=0Then ‘35Printin=n+EndIfNextiPrint1～10035EndSub130.7516億。解答：本題有兩種解法，可以根據(jù)公式：16=13((1+0.0075)n直接利用標(biāo)準(zhǔn)函數(shù)對數(shù)求得：n=Log(16/13)/Log(1＋0.0075)也可以利用循環(huán)求得：PrivateSubx=13n=0DoWhilex<x=x*1.0075n=n+LoopPrintn;16x;億EndSub100~2003解答：PrivateSubDimiAsIntegerFori=100To200IfiMod30Then 3整除的條件PrintiEndIfNextiEndSub（21）設(shè)計(jì)程序，求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。解答：PrivateSubForm_Click()DimnAsInteger,sAss=0n=請輸入n:")) ‘n由Inputbox函數(shù)輸入再轉(zhuǎn)換為數(shù)值型數(shù)Fori=1TonForj=1Tos=s+jNextjNextiPrintsEn