2013年Vb測繪程序和計算器編程復習題

Vb測繪程序和計算器編程復習題單項選擇題1．Int(—0.618*10)/10的值是（B）A.—0.7B.—0.6C.—1D.—0.12．表達式2+8*6/4Mod2的值是（B）A.5B.2C.6D.93．在VB中快捷鍵F4打開哪個窗口？（B）A.資源管理器窗口B.屬性窗口C.代碼窗口D.立即窗口4．函數(shù)Int(64*RND())的值是在哪個范圍內(nèi)的整數(shù)？（B）A.[0,63]B.[0,64]C.[1,63]D.[1,64]5.下列敘述中正確的是（C）A.只有窗體才是VisualBasic中的對象B.只有控件才是VisualBasic中的對象C.窗體和控件都是VisualBasic中的對象D.窗體和控件都不是VisualBasic中的對象6.用于VisualBasic程序設計的控件在（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．設a、b、c為整型變量，執(zhí)行以下程序后a、b、c的值是（B）a=1:b=2:c=3a=b:b=c:c=aA.231B.232C.321D.13211．將數(shù)學表達式寫成VisualBasic的表達式，其正確的形式是（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ū)別，那條是錯誤的（B）A．圖像框中顯示圖片一般用作背景B．圖片框有拉伸屬性C．圖片框是容器控件D．圖像框沒有AutoSize屬性13．下列哪個符號可以作為VB中的變量名？（D）A.abc+B.thenC.m&mD.p414．從鍵盤上輸入兩個字符串，分別保存在變量str1、str2中。確定第二個字符串在第一個字符串中起始位置的函數(shù)是（B）A.LeftB.MidC.InstrD.String15．以下敘述中正確的是（C）A.窗體的Caption屬性指定窗體的名稱，用來標識一個窗體B.窗體的Name屬性的值是顯示在窗體標題欄中的文本C.窗體的Name屬性值不能為空D.可以在運行期間改變窗體的Name屬性的值16．更改窗體的圖標是哪個屬性（D）A.MousePointB.MouseIconC.PointD.Icon17．Right(“china”,4)的值是（C）A.chinB.chinaC.hinaD.chna18．表達式sgn(－2)＋abs(－2)的結果是（D）A．2B．－1C．0D．119．VB算術運算符*或\、/、mod的優(yōu)先級，從高到低依次為（C）A、*或/、mod、\B、\、mod、*或/C、*或/、\、modD、\、*或/、mod20．12345678#這個數(shù)是（B）A．單精度數(shù)B．雙精度數(shù)C．整型數(shù)D．長整型數(shù)21．執(zhí)行下面的語句后，所產(chǎn)生的信息框的標題是（A）a=MsgBox("AAAA",vbOKOnly,"BBBB")A.AAAAB.空C.BBBBD.出錯，不能產(chǎn)生信息框22．設a=2，b=3，c=4，d=5，下列表達式的值是（D）3>2*bORa=cANDb<>cORc>dA.－1B.0C.TrueD.False23.下列關于參數(shù)及參數(shù)傳遞說法錯誤的是：（）

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

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

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

C移動鼠標時，會觸發(fā)MouseMove事件

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

APrint

BGet

CInput

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

A◢

B

CGoto

D=〉58.計算器已知兩點求直線距離和方位角的函數(shù)是：（D）反算AREC（）BEXP（）CENG（）DPOL（）59.計算器已知兩點距離S、方位角T求的函數(shù)是：（A）正算AREC（）BEXP（）CENG（）DPOL（）60.計算器程序中使某個語句計算結果顯示的符號是：（C）AB=〉C◢D=〉61.DimArray(8,1to10)asIntegerDimaasIntegera=Lbound(Array,2)+Ubound(Array,1)執(zhí)行以上程序段后a的值為：（B）A18B9C10D162.對于一個字符串型的動態(tài)數(shù)組This（）以下使用錯誤的是：（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.以下敘述中錯誤的是（B）

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

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

C移動鼠標時，會觸發(fā)MouseMove事件

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

APrint

BGet

CInput

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

B)VisualBasic應用程序不具有明顯的開始和結束語句

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

A)Command1.Enabled=False

B)Command1.Enabled=True

C)Command1.Visible=True

D)Command1.Visible=False

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

A)單擊鼠標

B)雙擊文本框

C)鼠標滑過窗體

D)按下鍵盤上的某個鍵9、以下敘述中錯誤的是

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

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

C)移動鼠標時，會觸發(fā)MouseMove事件

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

A)Print

B)Get

C)Input

D)LineInput四、填空題1．在VB中，對象的三要素分別是屬性、___________和___________。2．第一代電子計算機的元件使用電子管，第二代電子計算機的元件使用__________。3．“Y”的ASCII碼是89，那么“B”的ASCII碼是______________。4．二進制數(shù)110，用十進制表示是多少______________。八進制數(shù)12，用十進制表示是多少______________。十六進制數(shù)20，用十進制表示是多少______________。5．在VB中長整型數(shù)據(jù)占_______個字節(jié)的內(nèi)存空間。單精度浮點型數(shù)據(jù)占______個字節(jié)的內(nèi)存空間。6．若用戶單擊了按鈕ABC，則此時將被執(zhí)行的事件過程名應為：_________________________。7．在VB中將red聲明為常量255，使用的語句是_____________________________。8．假定一個窗體的Name屬性為form2，為了在窗體標題中顯示“你好”，所使用的語句為____________________________。9．表達式Fix(-3.2)+Int(-2.4)的值為______________。10．表達式Len(“Visual”)－Len(“BASIC”)的值是_____________。11．ＶＢ中若要產(chǎn)生一消息框，可用________________函數(shù)來實現(xiàn)。五、程序填空題，在標記為[]的地方，填上符合題意的語句，將答案填在答題紙對應的空白處。1、若命令按扭的名稱為CmdExit，程序要求單擊以上命令按扭時，程序停止運行。請對以下事件過程填空。PrivateSubCmdExit_[CLINK]()[END]EndSub2、在窗體上有兩個文本框控件text1,text2用來輸入兩個整數(shù)，有一個命令按鈕command1當單擊它時計算這兩個整數(shù)之間的所有奇數(shù)之和并用消息提示框把結果顯示出來，請?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結構實現(xiàn)的代碼：PrivateSubCommand1_Click()IfText1.Text="羅斯福"ThenMsgBox"回答正確！"ElseIfText1.Text="丘吉爾"ThenMsgBox"回答正確！"ElseIfText1.Text="斯大林"ThenMsgBox"回答正確！"ElseMsgBox"回答錯誤！"EndIfEndSub請用多支條件選擇結構實現(xiàn)相同的功能：PrivateSubCommand1_Click()SelectCase[text1.text]case"羅斯福"MsgBox"回答正確！"[case]"丘吉爾"MsgBox"回答正確！"case"斯大林"MsgBox"回答正確！"[else]MsgBox"回答錯誤"[endselect]EndSub4、已知建筑物矩形樁基礎坑底點I、IV的坐標分別為I（A，B）、IV（C，D）及開挖高度G、開挖坡度P，用計算器編程計算該矩形樁基礎地面開挖線上1、2、3、4號點坐標（E，F(xiàn)），請?zhí)羁眨撼绦蛎籞JCKWL1A“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、設計一個工程，并能給工程增加密碼保護功能，即進入工程后系統(tǒng)先要用戶輸入口令，且設定的口令為：vbvbvvb,口令正確時進入“熱烈歡迎！”界面，“熱烈歡迎！”界面的名稱是Form2；若口令不正確，則顯示“口令錯誤，請重新輸入！”信息；若連續(xù)出錯三次，則以“非法用戶，禁止使用！”信息警告，終止程序；以上分別用TextBox和Label組件來接收用戶輸入和顯示提示信息，請?zhí)羁眨篜rivateSubText1_[1](KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13ThenIfText1.[2]=＂vbvbvvb＂Then[3].ShowUnloadForm1ElseLabel1.[4]=＂口令錯誤，請重新輸入?。=[5]Ifi=3ThenText1.[6]=TrueEndIfEndIfEndIfEndSub6、以下為一坐標反算程序的子程序，通過單擊窗體上名叫command1的按鈕開始執(zhí)行程序并用消息提示框顯示最后的邊長和方位角，請?zhí)羁眨篜rivateSubCommand1_Click()[1]=InputBox("輸入第一個點的x坐標")[2]=InputBox("輸入第一個點的y坐標")[3]=InputBox("輸入第二個點的x坐標")[4]=InputBox("輸入第二個點的y坐標")[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號點坐標分別為（A、B），（C、D），（E、F），用計算器編程計算角123平分線上距離為L的4號點坐標(G、H)，請?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.程序說明：利用一個計時器、一個標簽框和二個命令按鈕制作一個動態(tài)秒表，如圖1所示。單擊“開始”命令按鈕，秒表開始計時，單擊“結束”命令按鈕，秒表結束計時，并在標簽框顯示運行時間，如“運行了0小時2分10秒”。（假設對象的屬性都在程序代碼中設定）圖1程序代碼如下：DimxAsLongDimhAsInteger,mAsInteger,sAsIntegerPrivateSubForm_Load()Form1.Caption="動態(tài)秒表（小時：分：秒）"Command1.Caption="開始[&S]"Command2.Caption="結束[&E]"Label1.Alignment=2'居中對齊Label1.Caption="0:0:0"Timer1.Interval=⑴Timer1.Enabled=Falsex=0EndSubPrivateSubCommand1_Click()⑵EndSubPrivateSubCommand2_Click()Timer1.Enabled=Falsex=⑶Label1.Caption="運行了"+Str(h)+"小時"+Str(m)+"分"+Str(s)+"秒"EndSubPrivateSubTimer1_Timer()x=x+1h=⑷m=(xMod3600)\60s=⑸Label1.Caption=Str(h)+":"+Str(m)+":"+Str(s)EndSub六、判斷題1、（）通過改變屬性窗口中的name屬性，來改變窗體的標題。2、（）Good是一個字符串常量。3、（）對象的三大要素是事件、屬性和名稱。4、（）VB的程序設計是面向?qū)ο蟮目梢暬绦蛟O計。5、（）_B是一個合法的VB變量名。6、（）文本框只能輸出信息，不能對信息進行編輯。7、（）設置屬性的語句格式為：“對象名．屬性名＝屬性值”。8、（）若用戶在鍵盤上按下一個鍵，則會產(chǎn)生一個雙擊事件（Click事件）。9、（）ＶＢ對象的屬性只能用賦值語句來修改。（）１0、設置屬性的語句格式為：“對象名．屬性名＝屬性值”。（）11、在窗體或模塊文件中聲明為Private的過程，只能被本窗體或模塊中的過程所調(diào)用。（）12、ＶＢ的賦值語句只能給變量賦值。（）13、在ＶＢ中，字符型常量應使用＂＃＂號將其括起來。（）14、窗體大小只能通過鼠標拖動窗體邊框來設置。（）15、VB的Double類型數(shù)據(jù)，可以精確表示其數(shù)值范圍內(nèi)的所有實數(shù)。（）16、若用戶在鍵盤上按下一個鍵，則會產(chǎn)生一個Click事件。（）17、羅馬數(shù)制是進位計數(shù)制。（）18、事件過程可以由用戶事件觸發(fā)執(zhí)行，也可以由其他過程所調(diào)用。（）19、DoWhile條件.....Loop和DOUntilNot條件.....Loop兩條循環(huán)語句，實現(xiàn)循環(huán)控制是等效的。七、寫出程序的輸出結果。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運行程序，單擊窗體Form1，消息框中顯示:PrivateSubForm_Click()DimSAsIntegerDimNAsIntegerm=1S=2Dom=m+3S=S+mLoopUntilm=4Label1.Caption=Str(S)EndSub運行程序，單擊窗體，在下面的Label1中顯示Label13.PrivateStaticSubCommand1_Click()DimxAsInteger,sAsIntegerx=Val(InputBox("請輸入一個正整數(shù)="))Ifx<5Thens=s*xElses=s+xEndIfText1.Text="s="+Str(s)EndSub程序運行時連續(xù)三次單擊Command1，且設輸入的數(shù)是5、2和4時，分別寫出文本框Text1.Text的值。4.PrivateSubForm_Click()Form1.Clsw=3Fork=2To6Step2Form1.Print"w=";w,"k=";kw=w+1NextkForm1.Print"w=";w,"k=";kEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結果。5.PrivateSubForm_Click()DimxAsStringDimiAsInteger,nAsIntegerForm1.Clsx="ABCDEFGHKL"n=Len(x)Fori=nTo1Step-2Form1.PrintTab(20-i);Mid(x,i,1)NextiEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結果。6.Rem在窗體的通用聲明區(qū)聲明兩個模塊級變量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寫出程序運行時連續(xù)三次單擊Command1后，a1.dat文件的最終結果。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程序運行時單擊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寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結果。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寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結果。10.PrivateSubForm_Click()Dima(2,3)AsIntegerFori=1To2Forj=1To3a(i,j)=2*i-jNextj,iForh=1To3Fork=1To2Form1.Printa(k,h),NextkPrintNexthEndSub寫出程序運行時單擊窗體后，F(xiàn)orm1上的輸出結果。八、寫VB表達式。標簽abc的文字顏色不是紅色3.九、編程題1.在窗體的單擊事件中編寫一個程序，計算10！的值并在窗體上輸出。2.在窗體的單擊事件中編寫一個程序，實現(xiàn)將a=12和b=25的值交換。3.在計算器中編寫一程序，實現(xiàn)平距與斜距的轉(zhuǎn)換。4.在計算器中編寫一程序，實現(xiàn)坐標方位角的推算。十、程序選擇填空試題1閱讀下列程序和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】界面設計如上圖所示，程序運行時要求有以下功能：·按Commandl（出題）后隨機生成兩個兩位正整數(shù)存入模塊級變量a、b且a＞b，并分別在LabellLabe12中顯示，此后Commandl不可用；·在Textl中輸入結果、按回車后，以消息框顯示運算正確與否、累計所完成題數(shù)以及做錯的題數(shù)，Commandl恢復為可用；·按Command2(退出)后以消息框顯示所完成題數(shù)以及做錯的題數(shù)，退出。【程序】DimnAsInteger,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、’小學生兩位數(shù)減法訓練程序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＆“題，錯”＆n_error＆“題”B、“共n題，錯n_error題”C、“共”+n+“題，錯”＋n_error+“題”D、共＆n“題，錯”＆n_error＆“題”試題2閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】輸入n后，再輸入n個數(shù)a1,a2,…，an,按照下列公式計算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ù)個數(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閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案。【程序說明】·圖片框控件P1、P2除Name屬性外均取缺省值，將鼠標在P1拖動繪制矩形框（邊框顏色通過用對話框指定）：鼠標按下處為矩形左上角，鼠標抬起處為矩形右下角；·鼠標抬起后，將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)'讀取該點處的顏色值(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閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦颉縋rivateSubForm_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)運行時在文本框控件Textl中依次輸入3個以回車結束的字符串“abc34”、“xy12＄”、“+-*/”,列表框中各表項依次為：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(16)如果將語句DimnAsInteger用StaticnAsInteger替換，運行時在文本框中依次輸入3個以回車結束的字符串“abc34”、“xy12$”、“+-*/”.列表框中各表項依次為：A、abc34B、+-*/C、abcD、+-*/xy12$xy12$xy$xy$+-*/abc34+-*/abc(17)如果將語名DimnAsInteger后一條語句前的注釋符刪除，運行時在文本框中依次輸入3個以回車結束的字符串“abc34”、“xy12$”、“+-*/”，列表中各表項依次為：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”，窗體上顯示結果為：A、cbaB、bcaC、abcD、acb(19)單擊Commandl后輸入“abcd”，窗體上顯示結果為：A、abdcB、cdabC、abcdD、bcad(20)如果將Sub過程f首句改為PrivateSubf(ByvalSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結果為：A、abdcB、cdabC、abcdD、bcad(21)如果將Sub過程f首句改為PrivateSubf(ByrefSAsString),單擊Commandl后輸入“abcd”，窗體上顯示結果為：A、abdcB、cdabC、abcdD、bcad試題6閱讀下列程序并回答問題，在每小題提供的若干可選答案中，挑選一個正確答案。【程序】PrivateSubcommand1_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閱讀下列程序說明和程序，在每小題提供的若干可選答案中，挑選一個正確答案?！境绦蛘f明】?運行時初始界面如左上圖所示，在文本框中輸入一個整數(shù)n并按回車鍵后：如果n<1則重新輸入，否則按鈕Command1可用；?按Command1計算費波那契數(shù)列第n項的值（該數(shù)列第1、2項均為1，此后各項為該項前兩項之和，如：1、1、2、3、5、8、┄）；?用消息框輸出結果（右上圖表示輸入n為8后，輸出結果是21），按消息框中“是”按鈕則界面顯示如左上圖，按“否”按鈕則退出?！境绦颉緿imnAsIntegerPrivateSubForm_Load()Command1.Enabled=FalseEndSubPrivateSubText1_KeyPress(kAsInteger)If(1)ThenExitSubn=Text1.TextIfn<1ThenMsgBox("n應大于零！"):ExitSubCommand1.Enabled=TrueEndSubPrivateSubCommand1_Click()DimiAsInteger(2)f(1)=1:f(2)=1Fori=(3)f(i)=f(i-1)+f(i-2)Nextik=MsgBox("第"&n&"項為"&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