Visual Basic程序設計課后習題答案

填空題

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

b24acb24acb（3）

xy1111

（4）

xyxy1

e10

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

1

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

sinxx

(1)n

(2n1)!

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

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

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

2k

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

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

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

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