填空題

習(xí)題1VisualBasic是一種面向 的可視化程序設(shè)計(jì)語言，采取了 的編程制。VisualBasic的對(duì)象主要分為 和 兩大類。在VisualBasic中，用來描述一個(gè)對(duì)象外部特征的量稱之為對(duì)象的 。在VisualBasic中，設(shè)置或修改一個(gè)對(duì)象的屬性的方法有兩種，它們分別是： 和 。在VisualBasic中，每個(gè)對(duì)象一般都能感知和接收多個(gè)不同的事件，并能對(duì)這些事件作出響應(yīng)，其響應(yīng)方式就是通過調(diào)用執(zhí)行一個(gè)與之相對(duì)應(yīng)的 來實(shí)現(xiàn)的在VisualBasic中事件過程的名字由 、 和 所構(gòu)成。VisualBasic的集成開發(fā)環(huán)境主要由6個(gè)部分組成，它們分別是： 、、 、 、 、 。簡(jiǎn)答題VisualBasic的特點(diǎn)什么是對(duì)象的屬性、事件和方法？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下列符號(hào)中，哪些可以是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個(gè)")（11）Str(-459.55) （12）UCase("VisualBasic")選擇題可以同時(shí)刪除字符串前導(dǎo)和尾部空格的函數(shù)是 。A.Ltrim B.Rtrim C.Trim D.Mid函數(shù)Int(Rnd(1)*是在哪個(gè)范圍產(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為了給三個(gè)變量賦初值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是一個(gè)正實(shí)數(shù)，對(duì)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下列四個(gè)字符串進(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ù)組元素個(gè)數(shù)是 。A.7 B.8 C.9 D.10用語句DimA(3,-3toto6)AsLong定義的數(shù)組元素個(gè)數(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個(gè)（1~100）5整除的數(shù)并求其和，請(qǐng)用正確的內(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位評(píng)委對(duì)某選手的打能正確運(yùn)行。PrivateSubsum=0Fori=1To7cj&i&錄入Ifi1ThenMax=Min=cjElseIfMin>cjMin=cjElseIfMax<cjMax=cjEndEndIfsum=sum+Nextiaver= （5） Print"該選手的成績(jī)?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í)整除的數(shù)打印出來，并統(tǒng)計(jì)其個(gè)數(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個(gè)正整數(shù)，打印其中最大的數(shù)。編寫程序，任意輸入三個(gè)整數(shù)A，B，C，按由大到小順序把它們打印出來。x3 x5 x2n1編寫程序，計(jì)算絕對(duì)值小于10-8

sinxx

(1)n

(2n1)!

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

習(xí)題3窗體的標(biāo)題條顯示內(nèi)容由窗體對(duì)象( )屬性決定。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)格由窗體對(duì)象( 屬性來設(shè)置。A.BackStyle B.BorderStyle C.WindowState D.FillStyle若要以程序代碼方式設(shè)置在窗體中顯示文本的字體大小，則可用窗體對(duì)象( )屬來實(shí)現(xiàn)。A.FontName B.Font C.FontSize D.FontBold若要設(shè)置文本的顯示顏色，則可( )屬性來實(shí)現(xiàn)。A.BackColor B.ForeColor C.FillColor D.BackStyle若要使用窗體啟動(dòng)時(shí)，位于屏幕的中間，則可通( )屬性來設(shè)置。A.Top B.Left C.StartUpPosition D.WindowState若要禁止窗體被移動(dòng)，則可設(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)題文字的下劃線，可通( )符號(hà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)行時(shí)，若要調(diào)用某命令鈕的Click事件過程，則可設(shè)置該命令按鈕對(duì)象( 性為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)簽框的大小自動(dòng)與所顯示的文本相適應(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í)器控件的定時(shí)時(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.簡(jiǎn)單組合框 C.下拉式列表框復(fù)選框或單選框的當(dāng)前狀態(tài)通( 屬性來設(shè)置或訪問。A.Value B. Checked C.Selected D.(28)下列控件中，沒有Caption屬性的( )。A.框架 B.列表框 C.復(fù)選框 D.單選按鈕復(fù)選框的Value屬性為1時(shí)，表( )。復(fù)選框未被選中 B.復(fù)選框被選中C.復(fù)選框內(nèi)有灰色的勾 D.復(fù)選框操作錯(cuò)誤用來設(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.以上都不對(duì)如果每0.5秒產(chǎn)生一個(gè)計(jì)時(shí)器事件，那么時(shí)鐘控件的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)表示滾動(dòng)條控件取值范圍最大值的屬性是（ 。A.Max B.LargeChange C.Value D.Max-Min二、填空題復(fù)選框的 屬性設(shè)置為2-Grayed時(shí)，將變?yōu)榛疑?，禁止用戶使用。VisualBasic中有一種控件組合了文本框和列表框的特點(diǎn)，這種控件是 。為了在程序運(yùn)行時(shí)把d:\pic文件夾中的圖形文件a.jpg裝入圖片框Picture1，所使用的句為 。計(jì)時(shí)器控件能有規(guī)律地以一定的時(shí)間間隔觸發(fā) 事件并執(zhí)行該事件過程中程序代碼。若要求輸入密碼時(shí)文本框中只顯示*號(hào)，則應(yīng)當(dāng)在文本框的屬性窗口中設(shè)置 性。圖像框和圖片框在使用時(shí)有所不同這兩個(gè)控件中能作為容器容納其它控件的是 。單擊滾動(dòng)條邊的箭頭時(shí)，滾動(dòng)條默認(rèn)滾動(dòng)值為1，為了實(shí)現(xiàn)單擊滾動(dòng)條邊的箭頭時(shí)，動(dòng)條的滾動(dòng)值為2，需要將其 屬性設(shè)置為。滾動(dòng)條響應(yīng)的重要事件有 和Change，滾動(dòng)條產(chǎn)生 Change事件是因改變了。列表框中的 和 屬性是數(shù)組。Command1Text1Command1為禁用（灰色Command1變?yōu)榭捎?。?qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。PrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_ Command1.Enabled=TrueEndSub三、編程題FormLoadInputbox33MsgBox顯示出來。(TEXT1)中書輸入圓的半徑值后，單擊“計(jì)算面積”按鈕(COMMAND2)框(TEXT2)中。請(qǐng)將控件的相關(guān)事件代碼編寫出來，以完成上述各功能。下圖所示的界面，在圖示的文本框中輸入33個(gè)文本框中。GoodBy設(shè)計(jì)一程序界面如圖示，程序運(yùn)行時(shí)，拖動(dòng)滾動(dòng)條便可以改變顏色區(qū)的背景色。的初始時(shí)間，點(diǎn)擊“開始倒計(jì)時(shí)”按鈕就開始倒計(jì)時(shí)。名時(shí)，這個(gè)城市名顯示在右側(cè)列表框中設(shè)計(jì)如下圖所示的程序界面，實(shí)現(xiàn)計(jì)算兩個(gè)整數(shù)的最大公約數(shù)功能。除、冪次方及余數(shù)。當(dāng)用戶輸入數(shù)據(jù)時(shí)，會(huì)馬上更新運(yùn)算結(jié)果，界面如下圖所示：輸入兩點(diǎn)坐標(biāo)，在圖片框中顯示兩點(diǎn)的連線并計(jì)算兩點(diǎn)間的距離。習(xí)題41程序閱讀題Sub過程：SubS(xAsSingle,yAst=xx=t/yy=tModEndSub在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()DimaAsSingleDimbAsa=5:b=4Sa,bPrinta,EndSub程序運(yùn)行時(shí)，單擊命令按鈕得到的結(jié)果是 。A.5,4 B.1,1 C.1.25,4 D.1.25,1在在窗體上添加一個(gè)命令按鈕Command1和一個(gè)文本框過程：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在窗體上添加一個(gè)命令按鈕，然后編寫如下事件過程：PrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=InputBox("請(qǐng)輸入一個(gè)字符串")str2=Fun(str1)Printstr2EndSub程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串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)行后，單擊命令按鈕，則兩個(gè)標(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，請(qǐng)將程序補(bǔ)充完整。PrivateSubCommand1_Click()Form1Form2.EndSubform1form2，一個(gè)標(biāo)準(zhǔn)模塊module1，設(shè)在form1aamodule1bb。Subaa(x,y,z)z=x*x+y*EndSubSubbb(x,y,z)z=x^3+y^EndSubform1text3text4中，請(qǐng)?zhí)羁胀瓿烧{(diào)用語句。PrivateSubCommand1_Click()a=Val(Text1.Text)b=CallText3.Text=c1bbText4.Text=c2EndSubform1CommonDialog1，程序運(yùn)行時(shí)，首先使用CommonDialog1打開一個(gè)標(biāo)準(zhǔn)顏色對(duì)話框，用于設(shè)置對(duì)象顏色，其次使用CommonDialog1PrivateSubForm_Load()CommonDialog1.Action=3Text1.BackColor=CommonDialog1.ColorCommonDialog1. =4Text1.FontName=CommonDialog1.FontNameText1.FontSize=CommonDialog1. EndSub編寫一個(gè)求最大公約數(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ù)字，顯示漢英對(duì)照輸出星期的函數(shù)過程。Function過程。輸入一個(gè)數(shù)，判斷其奇偶性。編寫求兩數(shù)中的較大數(shù)的函數(shù)過程，求多個(gè)數(shù)的較大數(shù)。編寫計(jì)算契比雪夫多項(xiàng)式的Function過程，其定義如下：n0T(n,x)x n12xT(nx)t(nx) n2選擇題

習(xí)題5菜單編輯器中，哪一個(gè)選項(xiàng)輸入希望在菜單欄上顯示的文本（）標(biāo)題 B.名稱 C.索引 D.訪問鍵下面哪個(gè)屬性可以控制菜單項(xiàng)可見或不可見（）A.Hide B.Checked C.Visible D.Enabled下面說法不正確的（）下拉菜單和彈出式菜單都是由菜單編輯器創(chuàng)建的5級(jí)子菜單下拉菜單中的菜單項(xiàng)不可以作為彈出式菜單顯示控制下拉菜單項(xiàng)是否可用，由菜單編輯器中的有效屬性設(shè)置菜單控件只有一個(gè)事件（）A.MouseUp B.Click C.DBClick D.KeyPress下面說法不正確的是（）頂層菜單不允許設(shè)置快捷鍵&符號(hào)。MenuTerm.EnableFlase將使該菜單項(xiàng)失效。填空題VisualBasic中的菜單可分為 菜單和 菜單。如要在菜單中設(shè)計(jì)分隔線，則應(yīng)將菜單項(xiàng)的標(biāo)題設(shè)置為 。想要顯示一彈出式菜單，可使用 方法。有些菜單項(xiàng)被點(diǎn)擊后將顯示一個(gè)對(duì)話框，通常在這些菜單項(xiàng)后有 。菜單中的“熱鍵”可通過在熱鍵字母前插入 符號(hào)實(shí)現(xiàn)。可通過快捷鍵 打開菜單編輯器。編程題2，AutoSizeTrue，BorderStyle屬1，F(xiàn)ontSize201000時(shí)間選項(xiàng)時(shí)，標(biāo)簽框內(nèi)顯示時(shí)間(表5-5各菜單項(xiàng)屬性菜單項(xiàng)名稱菜單項(xiàng)名稱電子日歷mnuElec....黑色mnuFblack....當(dāng)前日期mnuDate....紅色mnuFred....系統(tǒng)時(shí)間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)行界面這里是幾位名人的簡(jiǎn)介：金庸：著名武俠小說家，其作品具有的讀者數(shù)量，鮮有出其右者，代表作有《射雕英雄傳》、《天龍八部》等。路遙：著名作家，茅盾文學(xué)獎(jiǎng)獲得者，代表作有《平凡的世界》和《人生》等。王火：作家，以長(zhǎng)篇小說《戰(zhàn)爭(zhēng)與人》獲茅盾文學(xué)獎(jiǎng)，但卻少被人所知道，一直居住在少被文壇關(guān)注的成都。貝聿銘：世界級(jí)建筑大師，設(shè)計(jì)過世界各地很多標(biāo)志性建筑，其中廣為人知是香港的中銀大廈。建立一個(gè)彈出式菜單，包含4個(gè)菜單項(xiàng)，分別為“金庸程序運(yùn)行后，單擊彈出菜單中的某個(gè)菜單項(xiàng)，在標(biāo)簽中顯示相應(yīng)的名字，而文本框中顯示該名MultiLineTrue，F(xiàn)ontSize20。習(xí) 題6選擇題Open”Rizhi.dat”ForOutputAs#1功能說明錯(cuò)誤的是（）”Rizhi.dat””Rizhi.dat”不存在，則建立一個(gè)新文件Open“Sample.datForRandom#1Len50中的數(shù)據(jù)能夠進(jìn)行的操作是（）只能寫不能讀 B.只能讀不能寫C.即可以讀，也可以寫 D.不能讀，也不能寫VB中的數(shù)據(jù)文件類型（）順序文件 B.數(shù)據(jù)庫文件C.隨機(jī)文件 D.二進(jìn)制文件下列說法錯(cuò)誤的是（）Write#OutputAppend方式打開Open語句打開一個(gè)文件時(shí)，對(duì)同一個(gè)文件可以用幾個(gè)不同的文件號(hào)打開OutputAppend方式打開文件時(shí)，不用將文件關(guān)閉，就能重新打開文件Append下面幾個(gè)關(guān)鍵字均表示文件的打開方式，只能進(jìn)行讀不能寫的是（）A.Input B.Output C.Random D.Append下列哪個(gè)不是寫文件語句（）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;個(gè)數(shù)EndIfNextClose#1EndSub3．編程題編寫程序，建立一順序文件，輸入某公司銷售記錄，每次從鍵盤上輸入一種商品部?jī)?nèi)容。6student.dat習(xí) 題7選擇題利用可視化數(shù)據(jù)管理器彈出菜單中選擇（）命令，即可添加記錄。設(shè)計(jì) B.打開 C.新建表 D.修改Data控件的哪一個(gè)屬性為設(shè)置訪問的數(shù)據(jù)表的名稱（）A.DatabaseName B.connect C.Recordsource D.RecordsettypeDataActiveX綁定控件A.DBListBox B.DbcomboBox C.DBGrid D.ImageList記錄集中移動(dòng)記錄到上一條記錄的方法是（）A.MoveFirst B.Updata C.MoveNext D.MovePrevious將新記錄集添加到記錄集后，保存更新結(jié)果使用的方法是（）A.AddNew B.Updata C.CancelUpdata D.Refresh能從一個(gè)或多個(gè)數(shù)據(jù)表中取出字段，但只能瀏覽的記錄集對(duì)象是（）表類型 B.動(dòng)態(tài)集類型 C.快照型 D.都不對(duì)將一文本框與數(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é)號(hào)名稱性別年齡特長(zhǎng)030112李萬能男19唱歌031235陳 香女19街舞030456蔡令軍男19電腦編程030886張小小女21演講并要求能夠任意選擇查詢數(shù)據(jù)的方式，如即可通過學(xué)號(hào)查詢，也可通過特長(zhǎng)查詢等。將題內(nèi)容，還可以顯示每個(gè)人的照片，且照片的顯示會(huì)隨著記錄指針的移動(dòng)而變化。一、基本概念題

習(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ù)值常量。日期常量用來表示某一天或某一天的具體時(shí)間。在VisualBasic中，日期常量用兩個(gè)“#”號(hào)加以界定。本題中，#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ù)字開頭不能用逗號(hào)、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á)式的值時(shí)，首先要考慮的是運(yùn)算符的優(yōu)先級(jí)。(1)式中整除運(yùn)算符\優(yōu)先級(jí)最高，故首先計(jì)算10\7＝1；然后計(jì)算23Mod1＝0；所以整個(gè)表達(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ù)部分；參數(shù)是負(fù)數(shù)時(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個(gè)")（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個(gè)")=16;（11）Str(-459.55)=”-459.55”;（12）UCase("VisualBasic")=”VISAULBASIC”;二、選擇題可以同時(shí)刪除字符串前導(dǎo)和尾部空格的函數(shù)是 。A.Ltrim B.Rtrim C.Trim D.Mid函數(shù)Int(Rnd(1)*是在哪個(gè)范圍產(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為了給三個(gè)變量賦初值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是一個(gè)正實(shí)數(shù)，對(duì)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下列四個(gè)字符串進(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ù)組元素個(gè)數(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等于字符的個(gè)數(shù)。A、D不合法的變量名。ABDC是一關(guān)系表達(dá)式。D值后，再相加；字符串不是數(shù)字時(shí)，系統(tǒng)提示出錯(cuò)。A。由邏輯運(yùn)算符組成的表達(dá)式是邏輯表達(dá)式。B。B。AASCII碼值從左到右一一比較，先大為大。A。Da+b=ca+bFalse。CVB<>。選B。在格式輸出函數(shù)中<”是強(qiáng)制小寫符號(hào)。AMsgBox哪一個(gè)按鈕。選。定義的數(shù)組元素個(gè)數(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("等級(jí)考試")和LenB(VB6.0PrintInStr("VisualBasic",。數(shù)組中數(shù)組元素的值也不會(huì)變化。數(shù)組元素的下標(biāo)可以是常數(shù)、變量或表達(dá)式。For…NextStepDo…Loop［While｜Until］循環(huán)中，WhileUntil一。在For...NextExitFor位置。動(dòng)態(tài)數(shù)組在定義時(shí)已被分配存儲(chǔ)空間。VB6.0，OptionBase0答：&H12168&O。把字符串轉(zhuǎn)變?yōu)閿?shù)值后，再相加。Left$(A4876Mid$(A$,4,25相加后，再由Val876554。Rnd0，1。對(duì)。一個(gè)數(shù)是另一個(gè)數(shù)的倍數(shù)時(shí)，相除余數(shù)為零。LenVB6.0InStr0。但數(shù)組元素的值是可以變化的。對(duì)。對(duì)。While關(guān)鍵字和Until中應(yīng)有ExitDo對(duì)。錯(cuò)。動(dòng)態(tài)數(shù)組在定義時(shí)沒有被分配存儲(chǔ)空間。對(duì)。四、程序閱讀題（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。這是一個(gè)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時(shí)，循環(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í)，系會(huì)把小數(shù)部分除去。％是類型符號(hào)，也是表示整型。執(zhí)行下面程序后，輸出的結(jié)果是 。PrivateSuba=100Dos=s+aa=a+LoopUntila>PrintaEndSub答：輸出結(jié)果是101。程序中使用的是后測(cè)型循環(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個(gè)變量值的互換。執(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í)行時(shí)，Len(a)的返回值始終是1，Str(Len(a)+k)的值分別是2、3、4。字符串連接符&把兩個(gè)字符連接在一起。執(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的值保持不變，故對(duì)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。前兩個(gè)循環(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個(gè)元素，但循環(huán)語句只對(duì)其中的部分元素賦了值。其中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中聲明符號(hào)常量的關(guān)鍵字。設(shè)a=1,b=2,c=3,則VB6.0表達(dá)式：a<borb<candc<a的值。"a","T","Z","9"，這四個(gè)字符中的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包含元素的個(gè)數(shù)。For-Next循環(huán)<step>子句缺省時(shí)，循環(huán)變量每次改變的值。PrivateSubForm_Click()PrintFori=1To4PrintTab(8-Forj=1To8Print"*";()PrintNextiEnd10個(gè)（1~100）之間的隨機(jī)整數(shù)，打印其中能被5整除的數(shù)并求其和，請(qǐng)用正確的內(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位評(píng)委給參賽選手打分。以下程序是輸入7去掉最高分和最低分后計(jì)算其平均值作為該選手的成績(jī)。請(qǐng)?zhí)羁帐沟贸绦蚰苷_運(yùn)行。PrivateSubsum=0Fori=1To7cj&i&錄入Ifi1ThenMax=Min=cjElseIfMin>cjMin=cjElseIfMax<cjMax=cjEndEndIfsum=sum+Nextiaver= （） Print"該選手的成績(jī)?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解答：一個(gè)整數(shù)能被另一整數(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ù)對(duì)數(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=請(qǐng)輸入n:")) ‘n由Inputbox函數(shù)輸入再轉(zhuǎn)換為數(shù)值型數(shù)Fori=1TonForj=1Tos=s+jNextjNextiPrintsEn