PAGEPAGE1一、選擇題：1、VisualBasic是一種面向()的程序設計語言A、用戶B、事件C、程序D、對象2、VisualBasic主要用于開發哪種環境下的程序（）A、DOSB、DOS和WindowsC、WindowsD、UNIX3、一個邏輯型變量在內存當中占的存儲空間是（）A、一個字節B、兩個字節C、四個字節D、八個字節4、在VisualBasic6.0中規定窗體文件的擴展名是：A、frmB、forC、vbpD、bas5、一輛黑色汽車駛進車站，則駕駛、黑色、汽車、進站依次對應__________A、對象，屬性，事件，方法B、屬性，對象，事件，方法 C、方法，屬性，對象，事件D、事件，屬性，對象，方法6、在VisualBasic代碼窗口中，將某一條語句加以注釋和說明時，應在語句前加()A、逗號（，）B、冒號（：）C、單引號（’）D、問號（?）7、下列控件中可用于接受用戶輸入文本，又可用于顯示文本的是（）A、Label控件B、TextBox控件C、Timer控件D、CommandButton控件8、如果要改變窗體的標題,需要設置窗體對象的_____屬性。A、CaptionB、NameC、BackColorD、BorderStyle9、要在C盤當前文件夾下建立一個名為Stu1.txt的順序文件，應先使用()語句：A、Open"Stu1.txt"ForOutputAs#2B、Open"C：Stu1.txt"ForlnputAs#2C.、Open"C：Stu1.txt"ForOutputAs#2D、Open"Stu1.txt"ForlnputAs#210、PrivateSubCommand1_Click()StaticXAsIntegerDimYAsIntegerY=Y+5:X=X+5PrintX,YEndSub程序運行時，第三次單擊命令按鈕Commandl后，窗體上顯示的結果為()A．55B．155C.1515D．511、在VisualBasic中，以下選項中表示窗體的裝入事件的是：A、KeyUpB、ClickC、ActivateD、Load12、如果每一秒激發一次計時器事件，則設置計時器（Timer）控件的Interval屬性為（）：A、1000B、100C、10D、13、下列標識符書寫正確的是（）A、9x B、X1+X2 14、表達式運算結果Int(-5.2)是（）A、-5B、5C、-6D、615、下列（）屬性是每個控件都有的。A、NameB、CaptionC、FontD、Interval16、保存一個VB程序時需要保存兩個文件：A、.vbp文件和.frm文件B、窗體文件和.frm文件C、工程文件和.vbpD、模塊文件和.bas文件17、當程序運行時，需要給用戶一些提示信息或警告信息時，應使用（）：A、MsgBoxB、InputBoxC、A和B都可以D、A和B都不可以18、按照變量的作用域可將變量劃分為（）A、公有、私有、系統B、全局變量、模塊級變量、過程級變量C、動態、常數、靜態D、Public、Private、Protected19、以下能判斷是否到達文件尾的函數是（）A.BOFB.LOCC.LOFD.EOF20、表達式3^2+10mod3-2的值是（）A.9B.7C.8D.421、如果要在菜單中添加一個分隔線，則應將其Caption屬性設置為（）A、=B、*C、&D、-22、用于清除窗體或圖片框上的圖形和文本，應用下列哪個方法（）A．ClsB．MoveC．RefreshD．show23、如果x是一個已聲明的整型變量，則執行賦值語句x=”6”A.35B.8C.11D.出錯24、表達式PrintVal("20efgh")的值為（）：A、1B、20C、20efghD、efgh25、Fori=1To19.8Step4i=i+2NextiPrintiA、21B、20C、25D、22＊＊請將選擇題答案填在下表內＊＊12345678910111213141516171819202122232425二、填空題：1、結構化程序中的三種基本結構是：、和2、VB參數傳遞有2種方式，分別是：和3、VB中，提供了三種訪問文件的類型，分為是、和4、Left(“student”,6)=5、用戶自定義過程分Sub開頭的和Function開頭的6、因為組合框是文本框和列表框的組合，所以其大多數屬性都和這兩個控件相同。其中只有一個特殊的_________屬性為其獨有。7、用DimA(3，1to4)AsInteger定義數組，則該數組A有______個元素8、使用______聲明一個符號常量。9、如果不能事先確定變量的數據類型，則可以把它聲明為____________類型。三、完成程序：1、編程獲取800以內所有能被18整除的數Dimi%Fori=1to800IfthenEndifNexti2、輸出兩個數中較大的一個數PrivateSubCommand1_Click()DimAAsSingle,BAsSingle,MAXAsSingleA=‘從輸入對話框中接收第1個數B=‘從輸入對話框中接收第2個數IFA>BTHENELSEPRINT“MAX=“;MAXEndSub3、求分段函數：例如：2X＋5(當X≥5時)Y=5X－2(當X<5時)用InputBox輸入自變量X的值，輸出Y的值按右圖說明完成：PrivateSubForm_Click()DimX,YAsSingleX=IFThenPrint"y=";YElsePrint"y=";YEndIfEndSub4、對隨機產生5個兩位數進行排序（升序）PrivateSubCommand1_Click()Dima(1To5)AsIntegerDimiAsInteger,jAsIntegerDimminAsIntegerRandomizePrint"排序前："Fori=1To5a(i)=printa(i)；NextiprintFori=1To5-1Forj=1To5-iIfThenmin=a(j)a(j)=a(j+1)a(j+1)=minEndIfNextjNextiPrint"排序后的結果："Fori=1To5Printa(i);NextiPrintEndSub四、讀程序寫結果下列程序段的運行結果是：1.PrivateSubCommand1_Click()S=0ForI=9To42Step11S=S+INextIIfI>50ThenS=S+IElseS=S-IPrintSEndSub結果：_______2.PrivateSubCommand1_Click()DimI%,sum%sum=0I=0DoWhileI<=100sum=sum+II=I+20LoopPrintI,sumEndSub結果：_______3.當X的輸入值為5,-7,0時,讀程序段,計算出結果.PrivateSubCommand1_Click()DimxAsIntegerx=InputBox("請輸入X的值:")SelectCaseSgn(x)+2Case1Print"x=";x,"y=";x^2Case2Print"x=";x,"y=";xCase3Print"x="