Vb測繪程序和計(jì)算器編程復(fù)習(xí)題單項(xiàng)選擇題1．Int(—0.618*10)/10的值是（B）A.—0.7B.—0.6C.—1D.—0.12．表達(dá)式2+8*6/4Mod2的值是（B）A.5B.2C.6D.93．在VB中快捷鍵F4打開哪個(gè)窗口？（B）A.資源管理器窗口B.屬性窗口C.代碼窗口D.立即窗口4．函數(shù)Int(64*RND())的值是在哪個(gè)范圍內(nèi)的整數(shù)？（B）A.[0,63]B.[0,64]C.[1,63]D.[1,64]5.下列敘述中正確的是（C）A.只有窗體才是VisualBasic中的對(duì)象B.只有控件才是VisualBasic中的對(duì)象C.窗體和控件都是VisualBasic中的對(duì)象D.窗體和控件都不是VisualBasic中的對(duì)象6.用于VisualBasic程序設(shè)計(jì)的控件在（A）A.工具箱中B.工具菜單中C.工程窗口中D.工具欄上7．VisualBasic程序中表示續(xù)行的字符是（B）A.：B._C.\D.’8．決定按鈕顯示內(nèi)容的屬性是（C）A.TextB.NameC.CaptionD.BackStyle9．下列可以把圖形文件c:\地鼠1.jpg裝入窗體FORM1中的語句為（A）A.Form1.Picture=LoadPicture("c:\地鼠1.jpg")B.Form1.Handle="c:\地鼠1.jpg"C.Form1=LoadPicture("c:\地鼠1.jpg")D.Form1="c:\地鼠1.jpg"10．設(shè)a、b、c為整型變量，執(zhí)行以下程序后a、b、c的值是（B）a=1:b=2:c=3a=b:b=c:c=aA.231B.232C.321D.13211．將數(shù)學(xué)表達(dá)式寫成VisualBasic的表達(dá)式，其正確的形式是（B）A.Cos(a+b)^2+5*exp(2)B.Cos^2(a+b)+5*exp(2)

C.Cos(a+b)^2+5*ln(2)D.Cos^2(a+b)+5*ln(2)12．下列描述圖片框和圖像框區(qū)別，那條是錯(cuò)誤的（B）A．圖像框中顯示圖片一般用作背景B．圖片框有拉伸屬性C．圖片框是容器控件D．圖像框沒有AutoSize屬性13．下列哪個(gè)符號(hào)可以作為VB中的變量名？（D）A.abc+B.thenC.m&mD.p414．從鍵盤上輸入兩個(gè)字符串，分別保存在變量str1、str2中。確定第二個(gè)字符串在第一個(gè)字符串中起始位置的函數(shù)是（B）A.LeftB.MidC.InstrD.String15．以下敘述中正確的是（C）A.窗體的Caption屬性指定窗體的名稱，用來標(biāo)識(shí)一個(gè)窗體B.窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本C.窗體的Name屬性值不能為空D.可以在運(yùn)行期間改變窗體的Name屬性的值16．更改窗體的圖標(biāo)是哪個(gè)屬性（D）A.MousePointB.MouseIconC.PointD.Icon17．Right(“china”,4)的值是（C）A.chinB.chinaC.hinaD.chna18．表達(dá)式sgn(－2)＋abs(－2)的結(jié)果是（D）A．2B．－1C．0D．119．VB算術(shù)運(yùn)算符*或\、/、mod的優(yōu)先級(jí)，從高到低依次為（C）A、*或/、mod、\B、\、mod、*或/C、*或/、\、modD、\、*或/、mod20．12345678#這個(gè)數(shù)是（B）A．單精度數(shù)B．雙精度數(shù)C．整型數(shù)D．長整型數(shù)21．執(zhí)行下面的語句后，所產(chǎn)生的信息框的標(biāo)題是（A）a=MsgBox("AAAA",vbOKOnly,"BBBB")A.AAAAB.空C.BBBBD.出錯(cuò)，不能產(chǎn)生信息框22．設(shè)a=2，b=3，c=4，d=5，下列表達(dá)式的值是（D）3>2*bORa=cANDb<>cORc>dA.－1B.0C.TrueD.False23.下列關(guān)于參數(shù)及參數(shù)傳遞說法錯(cuò)誤的是：（）

A在過程的聲明語句里出現(xiàn)的參數(shù)叫形式參數(shù)B在過程的調(diào)用語句里出現(xiàn)的參數(shù)叫形式參數(shù)C參數(shù)傳遞的實(shí)質(zhì)是將實(shí)際參數(shù)按地址或按值傳遞給形式參數(shù)D參數(shù)傳遞的實(shí)質(zhì)是將形式參數(shù)按地址或按值傳遞給實(shí)際參數(shù)24.用語句來給名為Form1的窗體加載一張圖片的正確格式為：（C）AForm1.Picture=LoadPicture（圖片文件名）BPicture=LoadPicture“圖片文件名”CForm1.Picture=LoadPicture（“圖片文件名”）DPicture=LoadPicture=LoadPicture（圖片文件名）25.以下關(guān)于Visualbasic中的啟動(dòng)窗體說法正確的是：（B）A始終只能以第一個(gè)窗體作為啟動(dòng)窗體B可以通過工程的屬性設(shè)置對(duì)話框來選擇設(shè)置任意一個(gè)窗體作為啟動(dòng)窗體C啟動(dòng)窗體是指程序運(yùn)行后首先出現(xiàn)的窗體D啟動(dòng)窗體不會(huì)響應(yīng)Load事件26.在名為Form1的窗體對(duì)象的（3000,5000）位置畫一個(gè)半徑1000的圓：（B）AForm1.Circle（3000,5000）1000BForm1.Circle（3000,5000），1000CForm1.Circle（3000,5000），1000，RGB（255,0,255）DForm1.Circle（3000,5000），RGB（255,0,255），100027.以下敘述中錯(cuò)誤的是（B）

A雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B窗體或控件的事件的名稱可以由編程人員確定

C移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件

D控件的名稱可以由編程人員設(shè)定28.以下哪種方式可以對(duì)順序文件進(jìn)行數(shù)據(jù)的寫入（A）

APrint

BGet

CInput

DLineInputEWrite29.文本框中用于設(shè)置能否輸入和顯示多行文本的屬性是（）ALabelBSelectstartCEnableDMultiline30.對(duì)名為Text1的文本框進(jìn)行清空操作的正確語句是：（）AText1.ClsBText1.text=0CText1.text=“”DText1.SetFocus31.當(dāng)光標(biāo)從文本框移出這一時(shí)刻，會(huì)觸發(fā)：（）AChange事件BKeyPress事件CLostFocus事件DGetFocus事件32.設(shè)置標(biāo)簽控件能自動(dòng)調(diào)整大小的屬性是：（）AAlignmentBBorderStyleCAutoSizeDCaption33.若想要建立一個(gè)學(xué)生管理的輸入界面，其中要求選擇學(xué)生的性別/政治面貌（黨/團(tuán)/群眾）及選課情況（共有5門課，可任選），應(yīng)如何在窗體中利用單選鈕和復(fù)選框來實(shí)現(xiàn)（）。A．將5門課程用一組5個(gè)復(fù)選框來表示，將性別和政治面貌用5個(gè)單選鈕來表示。B．將5門課程用一組5個(gè)復(fù)選框來表示，用兩個(gè)框架分別將性別用2個(gè)單選鈕，政治面貌用3個(gè)單選鈕來表示。C．將5門課程用一組5個(gè)單選鈕來表示，將性別和政治面貌用5個(gè)復(fù)選框來表示。D．用一組10個(gè)復(fù)選框來表示課程、性別和政治面貌。34.清除列表框中指定的條目應(yīng)使用的方法是：（）AAdditemBClearCRemoveitemDDelete35.時(shí)鐘控件能夠響應(yīng)的事件有：（）AClickBDbClickCTimerDMouseMove36.以下關(guān)于菜單設(shè)計(jì)說法錯(cuò)誤的是：（）A在標(biāo)題后面用&符號(hào)連接一個(gè)字母可以給菜單設(shè)定一個(gè)訪問鍵B頂層菜單只能設(shè)置訪問鍵不能設(shè)置快捷鍵C通過在標(biāo)題框中輸入一個(gè)減號(hào)來設(shè)置一個(gè)分隔線D每個(gè)菜單項(xiàng)必須有索引值37.關(guān)于菜單中的復(fù)制、剪切和粘貼命令說法錯(cuò)誤的是（）A復(fù)制、剪切時(shí)是將選定的數(shù)據(jù)源暫時(shí)存放在Windows系統(tǒng)共用的剪貼板B粘貼時(shí)是將剪貼板的數(shù)據(jù)放到指定的目標(biāo)上去C復(fù)制、剪切時(shí)要用到剪貼板對(duì)象的SetText或SetData方法D粘貼時(shí)只需要剪貼板的GetData方法即可。38.關(guān)于彈出式菜單設(shè)計(jì)說法錯(cuò)誤的是（）A使用PopUpMenu方法來實(shí)現(xiàn)彈出式菜單B在鼠標(biāo)MouseUp或者M(jìn)ouseDown事件過程里面來寫彈出菜單代碼C只能在MouseUp事件過程中寫彈出式菜單代碼D在鼠標(biāo)的事件過程中，只有在Button=2的情況下才彈出快捷菜單38.VisualBasic中的文件及其相關(guān)說法錯(cuò)誤的是：（）A文件是外部介質(zhì)上的數(shù)據(jù)集合，由記錄組成B記錄是由字符組成，字符由字段組成C按照數(shù)據(jù)的存取方式和結(jié)構(gòu)可以分為順序文件和隨機(jī)文件D字符是構(gòu)成文件的最基本單位39.VisualBasic對(duì)順序文件的操作不包括（）A自定義一個(gè)數(shù)據(jù)類型B打開或者建立文件C對(duì)文件進(jìn)行讀寫操作D關(guān)閉文件40.在VisualBasic中打開一個(gè)順序文件，要求打開文件后接受寫入新的數(shù)據(jù)，新數(shù)據(jù)不能覆蓋原來的數(shù)據(jù)，則用Open語句應(yīng)該以（C）方式將文件打開。AInputBOutputCAppendDRandom41.以下關(guān)于Visualbasic中的“方法”說法錯(cuò)誤的是：（C）A方法是Visualbasic內(nèi)部提供的一些特殊的函數(shù)B方法是用來完成一定的操作的子程序C調(diào)用方法的格式為：對(duì)象名_方法名D在調(diào)用方法的語句中如果省略對(duì)象名，則默認(rèn)指向當(dāng)前對(duì)象。42.設(shè)置名為Form1的窗體對(duì)象的標(biāo)題為“歡迎”的語句為：（D）AForm1.Name=“歡迎”BForm1.Caption=歡迎CForm1.Name=歡迎DForm1.Caption=“歡迎”43.設(shè)置名為Command1的按鈕為無效的語句為：（D）ACommand1.Visible=TrueBCommand1.Visible=FalseCCommand1.Enabled=TrueDCommand1.Enabled=False44.結(jié)束一個(gè)程序的執(zhí)行應(yīng)使用的語句是：（D）AEndSubBEndFunctionCEndTypeDEnd45.動(dòng)態(tài)聲明一個(gè)整型變量A的正確語句是：（A）ADimAasIntegerBStaticAasLongCDimAasLongDStaticAasinteger46.以下程序代碼在連續(xù)執(zhí)行5次以后，結(jié)果為：（C）PrivateSubCommand1_Click()StaticaasIntegerDimbasIntegera=a+5b=b+5EndSubAa=5,b=5Ba=5,b=25Ca=25,b=5Da=25,b=2547.表達(dá)式(Sin（3.14159/4）+Int(Abs(-20.69)*Sgn(-20)))\4mod2的值：（）A1B2C-1D-248.表達(dá)式“123ab”+“45”的值為：（A）A“123ab45”B不能運(yùn)算C168abDab16849.執(zhí)行下面的程序段后：（C）

a=50

b=300

a=a+b

b=a-b

a=a-bAa=-250，b=-250Ba=50，b=300Ca=300，b=50Da=350，b=-25050.以下代碼的輸出結(jié)果為：（A）a=100：b=200PrintaPrintPrint“123456”A100B100CaDa12345612345612345612345651.代碼PrintFormat(12345.6,“###，##0.00”)的輸出結(jié)果為：（D）A123,45.6B123,45.60C12,345.6D12,345.6052.將名為Text1對(duì)象移至2000,5000位置并將其寬度變?yōu)?00的語句為：（D）AForm1.Move2000,5000，，600BText1.Move2000,5000,600CMove2000,5000,600DText1.Move2000,5000,,60053.執(zhí)行下面的程序段后，該程序的循環(huán)次數(shù)為：（B）

s=5

Fori=2To50

s=s+1

NextiA48B49C50D5154.計(jì)算器進(jìn)入程序編輯狀態(tài)應(yīng)該在開機(jī)狀態(tài)下按鍵：（C）AMODE8BMODEEXECMODEEXPDMODEAC55.計(jì)算器調(diào)用并進(jìn)入已經(jīng)編好的程序應(yīng)該在開機(jī)狀態(tài)下按鍵：（D）AEXPBFILE程序名CMODEEXPDFILE程序名EXE56.計(jì)算器刪除已有的程序應(yīng)該在開機(jī)狀態(tài)下按鍵：（B）AMODEEXEFILE←ACEXPBMODEEXPFILE←ACEXECMODEEXEFILE→ACEXPDFILEEXPMODE→ACEXE計(jì)算器中與Lbl結(jié)合起來使用的是：（C）

A◢

B

CGoto

D=〉58.計(jì)算器已知兩點(diǎn)求直線距離和方位角的函數(shù)是：（D）反算AREC（）BEXP（）CENG（）DPOL（）59.計(jì)算器已知兩點(diǎn)距離S、方位角T求的函數(shù)是：（A）正算AREC（）BEXP（）CENG（）DPOL（）60.計(jì)算器程序中使某個(gè)語句計(jì)算結(jié)果顯示的符號(hào)是：（C）AB=〉C◢D=〉61.DimArray(8,1to10)asIntegerDimaasIntegera=Lbound(Array,2)+Ubound(Array,1)執(zhí)行以上程序段后a的值為：（B）A18B9C10D162.對(duì)于一個(gè)字符串型的動(dòng)態(tài)數(shù)組This（）以下使用錯(cuò)誤的是：（C）ARemDimThis（4）BRemDimThis（2,3）CRemDimThis（3）asintegerDRemDimThis（6）63.用語句來給名為Form1的窗體加載一張圖片的正確格式為：（C）AForm1.Picture=LoadPicture（圖片文件名）BPicture=LoadPicture“圖片文件名”CForm1.Picture=LoadPicture（“圖片文件名”）DPicture=LoadPicture=LoadPicture（圖片文件名）64.以下敘述中錯(cuò)誤的是（B）

A雙擊鼠標(biāo)可以觸發(fā)DblClick事件

B窗體或控件的事件的名稱可以由編程人員確定

C移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件

D控件的名稱可以由編程人員設(shè)定65.文本框中用于設(shè)置能否輸入和顯示多行文本的屬性是（D）ALabelBSelectstartCEnableDMultiline66.在VisualBasic中打開一個(gè)順序文件，要求打開文件后接受寫入新的數(shù)據(jù)，新數(shù)據(jù)不能覆蓋原來的數(shù)據(jù)，則用Open語句應(yīng)該以（C）方式將文件打開。AInputBOutputCAppendDRandom67.當(dāng)光標(biāo)從文本框移出這一時(shí)刻，會(huì)觸發(fā)：（C）AChange事件BKeyPress事件CLostFocus事件DGetFocus事件68．設(shè)a=“VisualBasic”，下面使b=“Visual”的語句是（A）A.b=Left(a,6)B.b=Mid(a,1)C.b=Rigth(a,5,5)D.b=Left(a,1,6)69．在立即窗口中執(zhí)行？9>=9，輸出結(jié)果是（B）A．0B．TrueC．FalseD.－170．語句Dimvar1AsBoolean作用是:將var1定義為什么類型變量（C）A.單精度型B.整型C.布爾型D.字符型二、多項(xiàng)選擇題1.Visualbasic的特點(diǎn)包括：（ABD）A提供可視化的編程工具B采取“事件驅(qū)動(dòng)”的方式編程C采取“界面設(shè)計(jì)”的方式編程D面向?qū)ο蟮木幊坦ぞ?.用Visualbasic開發(fā)應(yīng)用程序的步驟為：（BCD）A設(shè)計(jì)用戶事件B設(shè)計(jì)用戶界面C編寫程序代碼D生成EXE文件3.對(duì)Visualbasic的工作模式說法正確的是：（ABD）A包括設(shè)計(jì)模式、運(yùn)行模式、中斷模式B設(shè)計(jì)模式狀態(tài)可以編輯用戶界面和程序代碼C運(yùn)行模式狀態(tài)可以編輯用戶界面和程序代碼D中斷模式狀態(tài)可以編輯代碼，不可編輯界面4.在Visualbasic集成開發(fā)環(huán)境中打開代碼窗口的方法有：（ABCD）A從工程窗口中選擇一個(gè)對(duì)象，單機(jī)“查看代碼”按鈕B在窗體窗口中，鼠標(biāo)雙擊一個(gè)對(duì)象C從“視圖”菜單中選擇“代碼窗口”命令D點(diǎn)擊工程資源管理器上方的“查看代碼”圖標(biāo)5.對(duì)象的要素包括：（ABC）A屬性B事件C方法D動(dòng)作6.設(shè)置對(duì)象屬性的方法有：（AC）A在設(shè)計(jì)階段通過屬性窗口來設(shè)置B在設(shè)計(jì)階段通過資源管理器來設(shè)置C在運(yùn)行階段通過賦值語句來設(shè)置D在運(yùn)行階段通過調(diào)用方法來設(shè)置7.以下關(guān)于Visualbasic中的“事件”說法正確的是：（ABC）A事件是由系統(tǒng)事先設(shè)定的B事件是能被對(duì)象識(shí)別的C事件是能被響應(yīng)的動(dòng)作D每一種對(duì)象能識(shí)別的事件是相同的8.下列哪些是合法的變量名稱：（ABE）A取消BXSinYCA+BD_SgnBE變AB9.下列符號(hào)中屬于常量的是：（BDE）APIB123CGoodD“ABCD”EFalse10.下列表達(dá)式的值為真的是：（AC）AMid（“visualbasic”，1,12）=Left（“visualbasicisaprogramminglanguage”,12）B“ABCRG”>“abcde”CNot(78.9/32.77<=957/43.91And-45.4>-4.98)DLen(“ABCDE”)=1011.一個(gè)SelectCase結(jié)構(gòu)中，以SelectCaseX開始，如果X的值為5，下列Case測試的邏輯值為真的是：（BC）ACase1,3,6BCase1To6CCaseIs>1DCaseIs<512.定義一個(gè)5行5列的整型矩陣正確的語句為：（BCD）ADimArray（5,5）asIntegerBDimArray（4,4）asIntegerCOptionBase1:DimArray(5,5)asIntegerDDimArray(1to5,1to5)asInteger13.以下哪些方式可以對(duì)順序文件進(jìn)行數(shù)據(jù)的寫入（AE）

APrint

BGet

CInput

DLineInputEWrite14.VisualBasic對(duì)順序文件的操作包括（BCD）A自定義一個(gè)數(shù)據(jù)類型B打開或者建立文件C對(duì)文件進(jìn)行讀寫操作D關(guān)閉文件15.以下關(guān)于菜單設(shè)計(jì)說法正確的是：（ABC）A在標(biāo)題后面用&符號(hào)連接一個(gè)字母可以給菜單設(shè)定一個(gè)訪問鍵B頂層菜單只能設(shè)置訪問鍵不能設(shè)置快捷鍵C通過在標(biāo)題框中輸入一個(gè)減號(hào)來設(shè)置一個(gè)分隔線D每個(gè)菜單項(xiàng)必須有索引值三、不定項(xiàng)選擇：請(qǐng)選出符合題意的正確答案。1.以下關(guān)于窗體的描述正確的是（）。A．只有用于啟動(dòng)的窗體可以有菜單。B．窗體事件和其中所有控件事件的代碼都放在窗體文件中。C．窗體的名字和存盤的窗體文件名必須相同。D．開始運(yùn)行時(shí)窗體的位置只能是設(shè)計(jì)階段時(shí)顯示的位置。2．若想要建立一個(gè)學(xué)生管理的輸入界面，其中要求選擇學(xué)生的性別/政治面貌（黨/團(tuán)/群眾）及選課情況（共有5門課，可任選），應(yīng)如何在窗體中利用單選鈕和選擇框來實(shí)現(xiàn)（）。A．將5門課程用一組5個(gè)選擇框來表示，將性別和政治面貌用5個(gè)單選鈕來表示。B．將5門課程用一組5個(gè)選擇框來表示，用兩個(gè)框架分別將性別用2個(gè)單選鈕，政治面貌用3個(gè)單選鈕來表示。C．將5門課程用一組5個(gè)單選鈕來表示，將性別和政治面貌用5個(gè)選擇框來表示。D．用一組10個(gè)選擇框來表示課程、性別和政治面貌。3、我們在設(shè)置標(biāo)簽中文本的對(duì)齊方式時(shí)，用的屬性是（）。A、FontB、AlignmentC、printD、capction4、VB中一般表示控件是否可見的屬性是（）。A、ForcolorB、EnableC、VisibleD、borderstyle5、文本框中用于設(shè)置能否輸入和顯示多行文本的屬性是（）。A、LabelB、selectstartC、EnableD、multiline6、以下敘述中錯(cuò)誤的是A)VisualBasic是可視化編程工具

B)VisualBasic應(yīng)用程序不具有明顯的開始和結(jié)束語句

C)VisualBasic工具箱中的所有控件都具有寬度（Width）和高度（Height）屬性D)VisualBasic中控件的某些屬性只能在運(yùn)行后設(shè)置7、假定有一個(gè)命令按鈕，名為Command1，為了在運(yùn)行時(shí)使該命令按鈕失效（變灰），應(yīng)使用的語句為。

A)Command1.Enabled=False

B)Command1.Enabled=True

C)Command1.Visible=True

D)Command1.Visible=False

8、能夠在窗體上觸發(fā)MouseMove事件的操作是

A)單擊鼠標(biāo)

B)雙擊文本框

C)鼠標(biāo)滑過窗體

D)按下鍵盤上的某個(gè)鍵9、以下敘述中錯(cuò)誤的是

A)雙擊鼠標(biāo)可以觸發(fā)dblClick事件

B)窗體或控件的事件的名稱可以由編程人員確定

C)移動(dòng)鼠標(biāo)時(shí)，會(huì)觸發(fā)MouseMove事件

D)控件的名稱可以由編程人員設(shè)定10、以下哪種方式可以對(duì)順序文件進(jìn)行數(shù)據(jù)的寫入

A)Print

B)Get

C)Input

D)LineInput四、填空題1．在VB中，對(duì)象的三要素分別是屬性、___________和___________。2．第一代電子計(jì)算機(jī)的元件使用電子管，第二代電子計(jì)算機(jī)的元件使用__________。3．“Y”的ASCII碼是89，那么“B”的ASCII碼是______________。4．二進(jìn)制數(shù)110，用十進(jìn)制表示是多少______________。八進(jìn)制數(shù)12，用十進(jìn)制表示是多少______________。十六進(jìn)制數(shù)20，用十進(jìn)制表示是多少______________。5．在VB中長整型數(shù)據(jù)占_______個(gè)字節(jié)的內(nèi)存空間。單精度浮點(diǎn)型數(shù)據(jù)占______個(gè)字節(jié)的內(nèi)存空間。6．若用戶單擊了按鈕ABC，則此時(shí)將被執(zhí)行的事件過程名應(yīng)為：_________________________。7．在VB中將red聲明為常量255，使用的語句是_____________________________。8．假定一個(gè)窗體的Name屬性為form2，為了在窗體標(biāo)題中顯示“你好”，所使用的語句為____________________________。9．表達(dá)式Fix(-3.2)+Int(-2.4)的值為______________。10．表達(dá)式Len(“Visual”)－Len(“BASIC”)的值是_____________。11．ＶＢ中若要產(chǎn)生一消息框，可用________________函數(shù)來實(shí)現(xiàn)。五、程序填空題，在標(biāo)記為[]的地方，填上符合題意的語句，將答案填在答題紙對(duì)應(yīng)的空白處。1、若命令按扭的名稱為CmdExit，程序要求單擊以上命令按扭時(shí)，程序停止運(yùn)行。請(qǐng)對(duì)以下事件過程填空。PrivateSubCmdExit_[CLINK]()[END]EndSub2、在窗體上有兩個(gè)文本框控件text1,text2用來輸入兩個(gè)整數(shù)，有一個(gè)命令按鈕command1當(dāng)單擊它時(shí)計(jì)算這兩個(gè)整數(shù)之間的所有奇數(shù)之和并用消息提示框把結(jié)果顯示出來，請(qǐng)?zhí)羁眨篬DIM]aAsInteger,bAsIntegerPrivateSub[COMMAND1]()DimiAsInteger,sumAsIntegera=Val(Text1.Text)b=Val(Text2.Text)Ifa[MOD]2=0Thena=[a+1]Fori=[a]To[b]Step[2]sum=sum+iNextiMsgBox[sum]EndSub3、如右圖所示的程序,以下給出了用if……then……elseif結(jié)構(gòu)實(shí)現(xiàn)的代碼：PrivateSubCommand1_Click()IfText1.Text="羅斯福"ThenMsgBox"回答正確！"ElseIfText1.Text="丘吉爾"ThenMsgBox"回答正確！"ElseIfText1.Text="斯大林"ThenMsgBox"回答正確！"ElseMsgBox"回答錯(cuò)誤！"EndIfEndSub請(qǐng)用多支條件選擇結(jié)構(gòu)實(shí)現(xiàn)相同的功能：PrivateSubCommand1_Click()SelectCase[text1.text]case"羅斯福"MsgBox"回答正確！"[case]"丘吉爾"MsgBox"回答正確！"case"斯大林"MsgBox"回答正確！"[else]MsgBox"回答錯(cuò)誤"[endselect]EndSub4、已知建筑物矩形樁基礎(chǔ)坑底點(diǎn)I、IV的坐標(biāo)分別為I（A，B）、IV（C，D）及開挖高度G、開挖坡度P，用計(jì)算器編程計(jì)算該矩形樁基礎(chǔ)地面開挖線上1、2、3、4號(hào)點(diǎn)坐標(biāo)（E，F(xiàn)），請(qǐng)?zhí)羁眨撼绦蛎?；ZJCKWL1A“X1”：B“Y1”：C=A：D=B：G：PL2L=[]（G/P）L3Lbl[1]L4{E，F(xiàn)}：E“XN=”：F“YN=”L5Pol(C-E,D-F)：M=[w]L6M<0=〉M=M+360[]L7N=M+[135]：N>360=〉N=N-360L8X“X”=E+Rec([6]，[7])◢L9Y“Y”=[F]+W[◢]L10C=E：D=F：E=0：F=0L11Goto15、設(shè)計(jì)一個(gè)工程，并能給工程增加密碼保護(hù)功能，即進(jìn)入工程后系統(tǒng)先要用戶輸入口令，且設(shè)定的口令為：vbvbvvb,口令正確時(shí)進(jìn)入“熱烈歡迎！”界面，“熱烈歡迎！”界面的名稱是Form2；若口令不正確，則顯示“口令錯(cuò)誤，請(qǐng)重新輸入！”信息；若連續(xù)出錯(cuò)三次，則以“非法用戶，禁止使用！”信息警告，終止程序；以上分別用TextBox和Label組件來接收用戶輸入和顯示提示信息，請(qǐng)?zhí)羁眨篜rivateSubText1_[1](KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfText1.[2]=＂vbvbvvb＂Then[3].ShowUnloadForm1ElseLabel1.[4]=＂口令錯(cuò)誤，請(qǐng)重新輸入！＂i=[5]Ifi=3ThenText1.[6]=TrueEndIfEndIfEndIfEndSub6、以下為一坐標(biāo)反算程序的子程序，通過單擊窗體上名叫command1的按鈕開始執(zhí)行程序并用消息提示框顯示最后的邊長和方位角，請(qǐng)?zhí)羁眨篜rivateSubCommand1_Click()[1]=InputBox("輸入第一個(gè)點(diǎn)的x坐標(biāo)")[2]=InputBox("輸入第一個(gè)點(diǎn)的y坐標(biāo)")[3]=InputBox("輸入第二個(gè)點(diǎn)的x坐標(biāo)")[4]=InputBox("輸入第二個(gè)點(diǎn)的y坐標(biāo)")[5]zbfs(X1,X2,Y1,Y2)EndSubPrivateSubzbfs(xa,xb,ya,yb)ConstPIasSingle=3.14159DimuAsSingle,vAsSingleDimsAsSingle,nAsSingle,rAsSingle,aAsSinglev=xb-xau=yb-yas=Sqr(v*v+u*u)n=Abs(u/v)r=Atn(n)Ifv=0Thena=Sgn(u)*90ElseIfu>0Andv>0Thena=[6]ElseIfu>0Andv<0Thena=[7]ElseIfu<0Andv>0Thena=[8]ElseIfu<0Andv<0Thena=[9]EndIfEndIfMsgBox[10]EndSub7、如圖所示，已知1、2、3號(hào)點(diǎn)坐標(biāo)分別為（A、B），（C、D），（E、F），用計(jì)算器編程計(jì)算角123平分線上距離為L的4號(hào)點(diǎn)坐標(biāo)(G、H)，請(qǐng)?zhí)羁眨?423L1A“X1”：B“Y1”：C“X2”：D“Y2”：E“X3”：F“Y3”：LL2[pol](A-C,B-D)L3I=W：[I]=〉I=I+360L4Pol(E-C,F-D)L5J=W：J<0=〉J=J+360L6K=[J]-I：K<0=〉K=[K]+360L7M=[I]+K/2：M>360=〉M=[M]-360L8G“X”=[C]+[rec](L，M)◢L9H“Y”=[D]+W8.程序說明：利用一個(gè)計(jì)時(shí)器、一個(gè)標(biāo)簽框和二個(gè)命令按鈕制作一個(gè)動(dòng)態(tài)秒表，如圖1所示。單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，單擊“結(jié)束”命令按鈕，秒表結(jié)束計(jì)時(shí)，并在標(biāo)簽框顯示運(yùn)行時(shí)間，如“運(yùn)行了0小時(shí)2分10秒”。（假設(shè)對(duì)象的屬性都在程序代碼中設(shè)定）圖1程序代碼如下：DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="動(dòng)態(tài)秒表（小時(shí)：分：秒）"Command1.Caption="開始[&S]"Command2.Caption="結(jié)束[&E]"Label1.Alignment=2'居中對(duì)齊Label1.Caption="0:0:0"Timer1.Interval=⑴Timer1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()⑵EndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsex=⑶Label1.Caption="運(yùn)行了"+Str(h)+"小時(shí)"+Str(m)+"分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()x=x+1h=⑷m=(xMod3600)\60s=⑸Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub六、判斷題1、（）通過改變屬性窗口中的name屬性，來改變窗體的標(biāo)題。2、（）Good是一個(gè)字符串常量。3、（）對(duì)象的三大要素是事件、屬性和名稱。4、（）VB的程序設(shè)計(jì)是面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)。5、（）_B是一個(gè)合法的VB變量名。6、（）文本框只能輸出信息，不能對(duì)信息進(jìn)行編輯。7、（）設(shè)置屬性的語句格式為：“對(duì)象名．屬性名＝屬性值”。8、（）若用戶在鍵盤上按下一個(gè)鍵，則會(huì)產(chǎn)生一個(gè)雙擊事件（Click事件）。9、（）ＶＢ對(duì)象的屬性只能用賦值語句來修改。（）１0、設(shè)置屬性的語句格式為：“對(duì)象名．屬性名＝屬性值”。（）11、在窗體或模塊文件中聲明為Private的過程，只能被本窗體或模塊中的過程所調(diào)用。（）12、ＶＢ的賦值語句只能給變量賦值。（）13、在ＶＢ中，字符型常量應(yīng)使用＂＃＂號(hào)將其括起來。（）14、窗體大小只能通過鼠標(biāo)拖動(dòng)窗體邊框來設(shè)置。（）15、VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實(shí)數(shù)。（）16、若用戶在鍵盤上按下一個(gè)鍵，則會(huì)產(chǎn)生一個(gè)Click事件。（）17、羅馬數(shù)制是進(jìn)位計(jì)數(shù)制。（）18、事件過程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過程所調(diào)用。（）19、DoWhile條件.....Loop和DOUntilNot條件.....Loop兩條循環(huán)語句，實(shí)現(xiàn)循環(huán)控制是等效的。七、寫出程序的輸出結(jié)果。PrivateSubForm_Click()DimAasintegerA=200IfA<＝100ThenA=A*10IfA>1000ThenA=A－10 Else A=A＋10 Endif ElseA=A/10IfA=10ThenA=A－10 Else A=A＋10 Endif Endif MsgboxStr(A)EndSub運(yùn)行程序，單擊窗體Form1，消息框中顯示:PrivateSubForm_Click()DimSAsIntegerDimNAsIntegerm=1S=2Dom=m+3S=S+mLoopUntilm=4Label1.Caption=Str(S)EndSub運(yùn)行程序，單擊窗體，在下面的Label1中顯示Label13.PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)="))Ifx<5Thens=s*xElses=s+xEndIfText1.Text="s="+Str(s)EndSub程序運(yùn)行時(shí)連續(xù)三次單擊Command1，且設(shè)輸入的數(shù)是5、2和4時(shí)，分別寫出文本框Text1.Text的值。4.PrivateSubForm_Click()Form1.Clsw=3Fork=2To6Step2Form1.Print"w=";w,"k=";kw=w+1NextkForm1.Print"w=";w,"k=";kEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。5.PrivateSubForm_Click()DimxAsStringDimiAsInteger,nAsIntegerForm1.Clsx="ABCDEFGHKL"n=Len(x)Fori=nTo1Step-2Form1.PrintTab(20-i);Mid(x,i,1)NextiEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。6.Rem在窗體的通用聲明區(qū)聲明兩個(gè)模塊級(jí)變量a和yDimaAsInteger,yAsIntegerPrivateSubForm_Load()Open"c:\a1.dat"ForOutputAs#1Close#1EndSubPrivateSubCommand1_Click()Open"c:\a1.dat"ForAppendAs#1Callaa(5)y=y+aPrint#1,"y=";y,"a=";aClose#1EndSubSubaa(iAsInteger)x=1DoUntilx>ia=a+xx=x+3LoopEndSub寫出程序運(yùn)行時(shí)連續(xù)三次單擊Command1后，a1.dat文件的最終結(jié)果。7.PrivateSubCommand1_Click()n=0:x=1:y=0DoWhilex<20n=n+1y=x+yx=x*(x+1)LoopText1.Text="n="&Str(n)Text2.Text="x="&Str(x)Text3.Text="y="&Str(y)EndSub程序運(yùn)行時(shí)單擊Command1后，分別寫出文本框Text1、Text2和Text3的Text值。8.Functionchg(aAsInteger,bAsInteger)AsIntegerDimnAsIntegerForn=0To2a=a+bNextnchg=aEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,zAsIntegera=1:b=1Forn=1To3z=chg(a,b)Form1.Print"n=";n,"z=";zNextnEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。9.PrivateSubForm_Click()Dimx(5)AsIntegerx(1)=8:x(2)=3:x(3)=1:x(4)=6:x(5)=4Fori=1To4Forj=i+1To5Ifx(i)<x(j)Thent=x(i):x(i)=x(j):x(j)=tNextj,iFork=1To5Form1.Print"x(";k;")=";x(k)NextkEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。10.PrivateSubForm_Click()Dima(2,3)AsIntegerFori=1To2Forj=1To3a(i,j)=2*i-jNextj,iForh=1To3Fork=1To2Form1.Printa(k,h),NextkPrintNexthEndSub寫出程序運(yùn)行時(shí)單擊窗體后，F(xiàn)orm1上的輸出結(jié)果。八、寫VB表達(dá)式。標(biāo)簽abc的文字顏色不是紅色3.九、編程題1.在窗體的單擊事件中編寫一個(gè)程序，計(jì)算10！的值并在窗體上輸出。2.在窗體的單擊事件中編寫一個(gè)程序，實(shí)現(xiàn)將a=12和b=25的值交換。3.在計(jì)算器中編寫一程序，實(shí)現(xiàn)平距與斜距的轉(zhuǎn)換。4.在計(jì)算器中編寫一程序，實(shí)現(xiàn)坐標(biāo)方位角的推算。十、程序選擇填空試題1閱讀下列程序和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f明】界面設(shè)計(jì)如上圖所示，程序運(yùn)行時(shí)要求有以下功能：·按Commandl（出題）后隨機(jī)生成兩個(gè)兩位正整數(shù)存入模塊級(jí)變量a、b且a＞b，并分別在LabellLabe12中顯示，此后Commandl不可用；·在Textl中輸入結(jié)果、按回車后，以消息框顯示運(yùn)算正確與否、累計(jì)所完成題數(shù)以及做錯(cuò)的題數(shù)，Commandl恢復(fù)為可用；·按Command2(退出)后以消息框顯示所完成題數(shù)以及做錯(cuò)的題數(shù)，退出?！境绦颉緿imnAsInteger,n_errorAsInteger(1)PrivateSubCommand1_Click()a=10+Rnd*89:b=10+Rnd*89Ifa<bThen(2)Label1.Caption=a:Label2.Caption=bn=n+1:Text1.Text="":Command1.Enabled=FalseEndSubPrivateSubText1_(3)(keyAsciiAsInteger)IfkeyAscii<>13Then(4)'回車鍵的ASCII碼值為13Ifa-b=Val(Text1.Text)ThenMsgBox("回答正確")ElseMsgBox("回答不正確")n_error=n_error+1EndIfCommand1.Enabled=TrueEndSubPrivateSubCommand2_Click()MsgBox((5))EndEndSub【供選擇的答案】（1）A、’小學(xué)生兩位數(shù)減法訓(xùn)練程序B、a=0:b=0:c=0C、n=0:n_error=0D、DimaAsByte,bAsbyte,cAsByte(2)A、b=a:a=bB、c=a:a=b:b=cC、a=b:b=aD、c=a:b=a:a=c(3)A、KeyPressB、ChangeC、KeyDownD、KeyUp(4)A、ExitSubB、KeyAscii=13C、KeyAsecii=0D、ExitDo(5)A、“共”＆n＆“題，錯(cuò)”＆n_error＆“題”B、“共n題，錯(cuò)n_error題”C、“共”+n+“題，錯(cuò)”＋n_error+“題”D、共＆n“題，錯(cuò)”＆n_error＆“題”試題2閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f明】輸入n后，再輸入n個(gè)數(shù)a1,a2,…，an,按照下列公式計(jì)算s的值并顯示。(a1(a1-v)2+(a2-v)2+…+(an-v)na1+a2+…annv=s=【程序】PrivateFunctionf((6))AsSingleDimiAsIntegerFori=1Ton:f=f+x(i):NextiEndFunctionPrivateSubcommand1_Click()DimnAsInteger,a()AsSingle,iAsIntegerDimVAsSingle,sAsSinglen=InputBox("輸入數(shù)據(jù)個(gè)數(shù)")（7）Fori=1Tona(i)=InputBox("a("&i&")=","輸入各數(shù)組元素")NextiV=f(a,n)/nFori=1Tons=(8)Nexti(9)EndSub【供選擇的答案】（6）A、x()AsSingle,nAsIntegerB、x(n)AsSingleC、aAsSingle,nAsIntegerD、nAsInteger,x()AsSingle（7）A、Dima(n)AsSingleB、ReDima()C、Dima(n)D、ReDima(n)（8）A、(a(i)-v)*(a(i)-v)B、s+a(i)-v^2C、s+(a(i)-v)^2D、(a(i)-v)^2（9）A、s=s^0.5/nB、Prints^0.5/nC、PrintSqr(s)D、Sqr(s)/n試題3閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序說明】·圖片框控件P1、P2除Name屬性外均取缺省值，將鼠標(biāo)在P1拖動(dòng)繪制矩形框（邊框顏色通過用對(duì)話框指定）：鼠標(biāo)按下處為矩形左上角，鼠標(biāo)抬起處為矩形右下角；·鼠標(biāo)抬起后，將P1中矩形區(qū)域內(nèi)的圖象在P2中重新繪制，如下圖所示?！境绦颉?10)PrivateSubp1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)xl=X:y1=YEndSubPrivateSubp1_MouseUp(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)DimjAsSingle,iAsSingle,jkAsSingle,ikAsSingleDim(11)jk=P2.ScaleWidth/(X-xl):ik=P2.ScaleHeight/(Y-y1)CommonDialog1.Action=(12)P1.Line(xl,y1)-(X,Y),CommonDialog1.Color,BForj=xlToXFori=y1ToYc=(13)'讀取該點(diǎn)處的顏色值(14)Nexti,jEndSub【供選擇的答案】（10）A、DimxAsSingle,yAsSingleB、Dimx2AsSingle,y2AsSingleC、PublicxlAsSingle,ylAsSingleD、DimxlAsSingle,y1AsSingle（11）A、cAsLongB、cAsIntegerC、cAsSingleD、cAsDouble（12）A、1B、2C、3D、4（13）A、P1.Pset(j,i)B、P2.Pset(j,i)C、P1.Point(j,i)D、P1.Point(i,j)（14）A、P2.PSet((j-xl)*jk,(i-y1)*ik),cB、P1.Pest((j-xl)*jk,(i-yl)*ik),cC、P2.PSet((i-yl)*ik,(j-xl)*jk),cD、P1.Pset((i-yl)*ik,(j-x1)*jk),c試題4閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。【程序】PrivateSubForm_Load()Text1.Text="":List1.ClearEndSubPrivateSubText1_Keypress(KAsInteger)DimnAsInteger'IfK>=Asc("0")Andk<=Asc（"9"）ThenK=0IfK=13ThenList1.AddItemText1.Text,nn=n+1Text1.Text=""EndIfEndSub(15)運(yùn)行時(shí)在文本框控件Textl中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12＄”、“+-*/”,列表框中各表項(xiàng)依次為：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(16)如果將語句DimnAsInteger用StaticnAsInteger替換，運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12$”、“+-*/”.列表框中各表項(xiàng)依次為：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(17)如果將語名DimnAsInteger后一條語句前的注釋符刪除，運(yùn)行時(shí)在文本框中依次輸入3個(gè)以回車結(jié)束的字符串“abc34”、“xy12$”、“+-*/”，列表中各表項(xiàng)依次為：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc試題5閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一正確答案?！境绦颉縋rivateSubf(sAsString)DimiAsInteger,nAsInteger,cAsStringn=Len(s)IfnMod2=1Thenc=Mid(s,n\2+1,1)Fori=1ToLen(s)\2c=Mid(s,Len(s)+1-i,1)+c+Mid(s,i,1)Nextis=cEndSubPrivateSubCommand1_Click()DimxAsStringx=InputBox("x=")Callf(x)PrintxEndSub(18)單擊Commandl后輸入“abc”，窗體上顯示結(jié)果為：A、cbaB、bcaC、abcD、acb(19)單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad(20)如果將Sub過程f首句改為PrivateSubf(ByvalSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad(21)如果將Sub過程f首句改為PrivateSubf(ByrefSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結(jié)果為：A、abdcB、cdabC、abcdD、bcad試題6閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦颉縋rivateSubcommand1_Click()DimiAsInteger,fnAsBytefn=FreeFileOpen"e:/aaa.txt"ForOutputAs#fnFori=1To20IfSqr(i)=Int(Sqr(i))ThenPrint#fn,iNextiClose#fnEndSub(22)如果文件e:/aaa,txt已存在并已有數(shù)據(jù)1、4，執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18（23）如果文件e:/aaa.txt不存在，執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、空D、2，4，6，8，10，12，14，16，18(24)如果文件e:/aaa,txt已存在并已有數(shù)據(jù)1、4，且程序中文件打開方式為Append,執(zhí)行以上過程后文件中全部數(shù)據(jù)為：A、1，4，1，4，9，16B、1，4，9，16C、1，4D、2，4，6，8，10，12，14，16，18試題7閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案?！境绦蛘f明】?運(yùn)行時(shí)初始界面如左上圖所示，在文本框中輸入一個(gè)整數(shù)n并按回車鍵后：如果n<1則重新輸入，否則按鈕Command1可用；?按Command1計(jì)算費(fèi)波那契數(shù)列第n項(xiàng)的值（該數(shù)列第1、2項(xiàng)均為1，此后各項(xiàng)為該項(xiàng)前兩項(xiàng)之和，如：1、1、2、3、5、8、┄）；?用消息框輸出結(jié)果（右上圖表示輸入n為8后，輸出結(jié)果是21），按消息框中“是”按鈕則界面顯示如左上圖，按“否”按鈕則退出?！境绦颉緿imnAsIntegerPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyPress(kAsInteger)If(1)ThenExitSubn=Text1.TextIfn<1ThenMsgBox("n應(yīng)大于零！"):ExitSubCommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()DimiAsInteger(2)f(1)=1:f(2)=1Fori=(3)f(i)=f(i-1)+f(i-2)Nextik=MsgBox("第"&n&"項(xiàng)為"&f(n)&"，是否繼續(xù)？",(4))Ifk=vbYesThenText1.Text="":Command1.Enabled=FalseText1.SetFocusElseEndEndIfEndSub【供選擇的答案】(1)A、k=13 B、k<>13 C、KeyAscii<>13 D、KeyAscii=13(2)A、Redimf(8)AsLong B、Redi