大一VB語言程序期末考試題及答案

大一VB語言程序設(shè)計(jì)期末考試題一、選擇題1下列常量中，是Integer類型常量的是（C）。A、123&B、-38844C、123%D、327682下面選項(xiàng)中()是字符連接運(yùn)算符.（A）A、&B、AndC、%D、Mod3下面關(guān)于VB的集成開發(fā)環(huán)境（IDE）的敘述中，不正確的是（B）。A、IDE是設(shè)計(jì)、調(diào)試、運(yùn)行VB程序的工具。B、用戶不能隨意關(guān)閉IDE中的窗口。C、"窗體設(shè)計(jì)"窗口是用來設(shè)計(jì)應(yīng)用程序界面（窗體）的。D、打開/關(guān)閉各窗口的命令主要在IDE的"視圖"菜單中。4len(“vb程序設(shè)計(jì)”)=(C)。A、5B、2C、6D、105表達(dá)式15Mod4+13\5*2的值是DA、7B、0C、2D、46賦值語句A=123+Mid$(“123456”,3,2)執(zhí)行后，A=（A）。A、157B、12334C、123D、"12334"7在一個(gè)語句內(nèi)寫多條語句時(shí),用來分隔每條語句的符號是(C).A、,B、;C、:D、、8將邏輯型數(shù)據(jù)轉(zhuǎn)換成整型數(shù)據(jù)時(shí)，轉(zhuǎn)換規(guī)則是（D）。A、將True轉(zhuǎn)換為1，將False轉(zhuǎn)換為0B、將True轉(zhuǎn)換為1，將False轉(zhuǎn)換為-1C、將True轉(zhuǎn)換為0，將False轉(zhuǎn)換為-1D、將True轉(zhuǎn)換為-1，將False轉(zhuǎn)換為09表達(dá)式2+3*4^5-SIN(X+1)/2中最先進(jìn)行的運(yùn)算是(D).A、SINB、4^5C、3*4D、x+110如果x=2，則表達(dá)式x+1>2Orsin(x)>0.9And3>x+3的值（B）。A、不能計(jì)算B、TrueC、5D、False11隨機(jī)產(chǎn)生[10，50]之間整數(shù)的正確表達(dá)式是（D）。A、Round(Rnd*50)B、Int(Rnd*40+10)C、Round(Rnd*51)D、10+Int(Rnd*41)12每建立一個(gè)窗體,工程管理器窗口中就會(huì)增加一個(gè)(C).A、類模塊文件B、工程文件C、窗體文件D、程序模塊文件13INT(100*RND(1))產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是(B).A、[1,100]B、[0,99]C、[0,100]D、[1,99]14下列數(shù)據(jù)類型中,占用內(nèi)存最小的是(D).A、IntegerB、SingleC、BooleanD、Byte15VisualBasic是一種()程序設(shè)計(jì)語言.BA、過程式B、非過程式C、機(jī)器D、低級16函數(shù)Int(10*Rnd)是在(A)范圍內(nèi)的整數(shù).A、[0,9]B、[0,1]C、[1,9]D、[1,10]17以下合法的一組VisualBasic用戶標(biāo)識符是CA、Sum和8abcB、a#x和PiC、ForLoop和TotalD、Const和DoWhileB、4C、不能確定D、845表達(dá)式Mid("SHANGHAI",6,3)的值是(C).A、ANGHB、SHAC、HAID、SHANGH46表達(dá)式25\3mod3*Int(4.5)的值為(B).A、1B、8C、4D、547下面變量名稱正確的是（C）。A、x□1B、integerC、x_1_yD、x,y48不能正確表示條件"兩個(gè)整型變量A和B之一為0,但不能同時(shí)為0"的布爾表達(dá)式(D).A、A*B=0ANDA<>BB、(A=0ORB=0)ANDA<>BC、A=0ANDB<>0ORA<>0ANDB=0D、A*B=0AND(A=0ORB=0)49如果X是一個(gè)正的實(shí)數(shù),將千分位四舍五入,保留兩位小數(shù)的表達(dá)式是(C).A、0.01*int(100*(x+0.05))B、0.01*int(x+0.05)C、0.01*int(100*(x+0.005))D、0.01*int(x+0.005)50表達(dá)式X+1>X是(D).A、非法表達(dá)式B、字符表達(dá)式C、算術(shù)表達(dá)式D、關(guān)系表達(dá)式51．VisualBasic的編程機(jī)制是(B).A、面向圖形B、事件驅(qū)動(dòng)C、面向?qū)ο驞、可視化52下面4項(xiàng)中合法的變量名是(A).A、X_yzB、X-YC、123abcD、integer53以下可以作為VB變量名的是(C).A、COS(X)B、X(-1)C、CO1D、SIN54表達(dá)式(7\3+1)*(18\5-1)的值是(B).A、8.76B、6C、6.67D、7.855下列哪個(gè)變量名的取法是不正確的(C).A、sTmeB、T_12C、T12%D、T_Temp56可以同時(shí)刪除字符串前導(dǎo)和尾部空白的函數(shù)是(B).A、LtrimB、TrimC、MidD、Rtrim57VB窗體文件的擴(kuò)展名是(A).A、FRMB、VBWC、VBPD、BAS58一個(gè)具有圖形用戶界面的“標(biāo)準(zhǔn)EXE”工程必須包含的文件是（A）。A、工程文件和窗體文件。B、窗體文件和標(biāo)準(zhǔn)模塊文件。C、工程文件和資源文件。D、工程文件和標(biāo)準(zhǔn)模塊文件。59數(shù)學(xué)式3≤X＜5寫成VB表達(dá)式是（A）。A、3<=XandX<5B、X>=3and5<XC、3<=XorX<5D、3<=X<560表達(dá)式INT(8*SQR(36)*10^(-2)*10+0.5)/10的值是(A).A、.5B、0.48C、.05D、0.04861變量未賦值時(shí),數(shù)值型變量的值為(C).A、空B、無任何值C、0D、162正確的變量名是（A）。A、xy_01B、sat01C、3xyD、integer63當(dāng)Ucase$(C$)>”A”andUcase$(C$)<”Z”為true時(shí)，則C$是__A______。A、字母B、大寫字母C、小寫字母D、不一定64表達(dá)式(-1)*Sgn(-100+Int(Rnd*100))的值是(A).A、1B、-1C、隨機(jī)數(shù)D、065表達(dá)式printLen(trim("abcd")&"123")的結(jié)果是DA、abcdB、9C、123D、766Rnd函數(shù)不可能產(chǎn)生的()值.BA、0B、1C、0.1234D、.0000567下面變量名稱不正確的是（B）。A、x1B、1xC、x1yD、x_168下列哪個(gè)變量名的取法是不正確的(B).A、T_TempB、T32#C、T32D、TName69選中復(fù)選框控件時(shí),value屬性的值,可以是(C).A、TrueB、falseC、1D、070程序運(yùn)行時(shí)，如果復(fù)選框被用戶選中，那么其Value屬性值為（A）。A、1B、FalseC、TrueD、071程序運(yùn)行時(shí)，如果單選框被用戶選中，那么其Value屬性值為（D）。A、0B、1C、FalseD、True72下列()是窗體文件的擴(kuò)展名.AA、frmB、clsC、dllD、bas73要使標(biāo)簽?zāi)芡赋龃绑w的背景,必須設(shè)置(C)屬性.A、AppearanceB、BorderStyleC、BackStyleD、BackColor74當(dāng)窗體被關(guān)閉時(shí)，系統(tǒng)自動(dòng)執(zhí)行該窗體的（A）事件過程。A、UnloadB、LoadC、LostFocusD、Click75要使窗體運(yùn)行時(shí)充滿整個(gè)屏幕，應(yīng)設(shè)置其（D）屬性。A、AutoRedrawB、WidthC、HeightD、WindowState76要使得窗體一開始運(yùn)行就充滿整個(gè)屏幕則須設(shè)置()屬性.AA、windowstateB、borderstyleC、appearanceD、drawmode77要使一個(gè)文本框具有水平和垂直滾動(dòng)條,則應(yīng)先將其MultiLine屬性設(shè)置為True,然后再將ScrollBar屬性設(shè)置為(A).A、3B、0C、1D、278決定控件上文字的字體、字形、大小及效果的屬性是(C).A、TEXTB、CAPTIONC、FONTD、NAME79在窗體設(shè)計(jì)器窗口雙擊窗體的任何地方,可以打開的窗口是(A).A、代碼窗口B、以上3個(gè)選項(xiàng)都不對C、工程管理窗口D、屬性窗口80下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是(D).A、一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的,用戶可以改變B、一個(gè)控件的屬性即可以在屬性窗口中設(shè)置,也可以用程序代碼設(shè)置C、一個(gè)控件的屬性在屬性窗口中設(shè)置,還可以利用程序代碼為其設(shè)置新值D、一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的,用戶不能改變81MaxLength屬性可以設(shè)置文本框可以輸入與顯示的最多字符個(gè)數(shù),當(dāng)其值為0時(shí)表示(D).A、不允許輸入字符B、以上都不正確C、不允許輸入任何字符,但顯示不限制D、輸入的字符長度不限82下面(C)控件不具有Caption屬性.A、標(biāo)簽框B、命令按鈕C、文本框D、單選鈕83要使標(biāo)簽?zāi)軌蝻@示所需要的東西,則在程序中應(yīng)設(shè)置其哪一屬性的值(D).A、NameB、TextC、AutoSizeD、Caption84程序運(yùn)行時(shí)，要限制文本框的輸入長度，那么應(yīng)設(shè)置（A）。A、MaxLengthB、EnabledC、LockedD、MultiLine85事件的名稱(D).A、是不固定的B、有的由用戶定義,有的由系統(tǒng)定義C、都要由用戶定義D、都是由系統(tǒng)預(yù)先定義86若設(shè)置窗體的BorderStyle=1，則在程序運(yùn)行時(shí)窗體的行為是（A）。A、窗體沒有最大化和最小化按鈕，窗體可以移動(dòng)，但不能改變大小。B、窗體有最大化和最小化按鈕，窗體既可以移動(dòng)，也可以改變大小。C、窗體沒有最大化和最小化按鈕，窗體既不能移動(dòng)，也不能改變大小。D、窗體有最大化和最小化按鈕，窗體可以移動(dòng)，但不能改變大小。87如果要設(shè)置窗體的標(biāo)題欄,應(yīng)選擇以下那種屬性(D).A、TipsB、NameC、TextD、Caption88要把一個(gè)命令按鈕設(shè)置成無效,應(yīng)設(shè)置其哪一屬性值(D).A、VisibleB、DefaultC、CancelD、Enabled89將焦點(diǎn)主動(dòng)設(shè)置到指定的控件或窗體上,應(yīng)采用(C)方法.A、SetTextB、GetGataC、SetFocusD、SetData90要使標(biāo)簽控件的大小隨Caption屬性值而自動(dòng)調(diào)整，應(yīng)設(shè)置其（B）屬性。A、AlignmentB、AutoSizeC、WidthD、Caption91能夠改變窗體邊框線類型的屬性是(C).A、FontStyleB、BorderC、BorderStyleD、BackStyle92要使Form1窗體的標(biāo)題欄顯示"歡迎使用VB",以下語句正確的是(A).A、Form1.Caption=〞歡迎使用VB〞B、Form1.Caption="歡迎使用VB"C、Form1.Caption=歡迎使用VBD、Form1.Caption=ˊ歡迎使用VBˊ93文本框所沒有的屬性是(D).A、VisibleB、BackColorC、EnabledD、Caption94在VB環(huán)境中,工程文件的擴(kuò)展名是(D).A、.frxB、.basC、.frmD、.vbp95如果要在命令按鈕上顯示圖形文件,應(yīng)設(shè)置命令按鈕的(B).A、Style屬性和Graphics屬性B、Style屬性和Picture屬性C、Picture屬性D、Graphics屬性96要使鼠標(biāo)指向“命令按鈕”時(shí)，出現(xiàn)一個(gè)提示文本，應(yīng)設(shè)置其（A）屬性。A、ToolTipTextB、StyleC、PictureD、Caption97不論何控件,共同具有的屬性是(B).A、ForeColorB、NameC、CaptionD、Text98要使標(biāo)簽控件標(biāo)題內(nèi)容居中顯示，應(yīng)設(shè)置其（B）屬性。A、ToolTipTextB、AlignmentC、BackStyleD、Appearance99使命令按鈕獲得“焦點(diǎn)”的方法是（A）。A、SetFocusB、MoveC、RefreshD、LinkSend100改變控件在窗體中的上下位置應(yīng)修改控件的()屬性.CA、HeightB、WideC、TopD、Left101、語句PRINT"SGN(-26)=";SGN(-26)的輸出結(jié)果為（C）A、SGN(-26)=-26B、SGN(-26)=26C、SGN(-26)=-1D、SGN(-26)=+1102、若要使得文本框的初始值為空,則應(yīng)更改文本框的屬性是（A）A、textB、indexC、nameD、caption103、要使得標(biāo)簽?zāi)茏詣?dòng)擴(kuò)充以滿足字體大小則可對其(C)屬性進(jìn)行設(shè)置.A、tagB、alignmentC、autosizeD、usemnemonic104、為了把焦點(diǎn)移到某個(gè)指定的控件,所使用指定的控件的(C)方法.A、VisibleB、RefreshC、SetFocusD、GetFocus105、如果要給字體加刪除線,可以選擇下列那種屬性(C).A、FontSizeB、FontNameC、FontStrikethruD、FontUnderLine106、要設(shè)置標(biāo)簽控件字體的大小，應(yīng)設(shè)置其（A）屬性。A、FontB、HeightC、WidthD、Caption107、每個(gè)窗體對應(yīng)一個(gè)窗體文件,窗體文件的擴(kuò)展名是(A).A、.frmB、.vbpC、.basD、.cls108、標(biāo)簽控件最重要的屬性是(A).A、captionB、textC、nameD、width109、(A)對象不具有Caption屬性.A、TimerB、FormC、OptionD、Label110、一個(gè)窗體上有三個(gè)文本框，按放置順序分別是：Text1，Text2，Text3，若使程序運(yùn)行時(shí)Text3首先獲得“焦點(diǎn)”，那么，應(yīng)設(shè)置其（B）屬性值為0。A、IndexB、TabindexC、TagD、Top111、如果要改變窗體的標(biāo)題,則需要設(shè)置的屬性是(D).A、BorderStyleB、NameC、BackColorD、Caption112、欲使某命令按鈕失效,應(yīng)修改命令按鈕的(C)屬性.A、EnableB、CaptionC、EnabledD、Visible113、為使文本框顯示滾動(dòng)條,必須首先設(shè)置的屬性是(D).A、AutosizeB、ScrollbarsC、AlignmentD、Mulitiline114、改變控件在窗體中的左右位置應(yīng)修改該控件的(B)屬性.A、RightB、LeftC、WidthD、Top115、要使標(biāo)簽中顯示的文本靠右顯示,則應(yīng)將其Alignment屬性設(shè)置為(A).A、1B、3C、2D、0116、當(dāng)設(shè)置文本框的ScrollBars=Both而文本框確沒有顯示出滾動(dòng)條，原因是（A）。A、文本框的MultiLine=FalseB、文本框中沒有內(nèi)容C、文本框的MultiLine=TrueD、文本框的Locked=True117、要使文本框獲得輸入焦點(diǎn),則應(yīng)采用文本框控件的哪個(gè)方法(D).A、KeyPressB、LostFocusC、GodFocusD、SetFocus118、假設(shè)窗體上有一個(gè)標(biāo)簽控件（Label1）和一個(gè)時(shí)鐘控件（Timer），要想每隔1秒鐘，在標(biāo)簽Label1上顯示一次系統(tǒng)當(dāng)前時(shí)間，應(yīng)在（A）事件過程中編寫實(shí)現(xiàn)該功能的程序。A、PrivateSubTimer1_Timer()B、PrivateSubLabel1_DblClick()C、PrivateSubLabel1_Change()D、PrivateSubLabel1_Click()119、如果設(shè)計(jì)時(shí)在屬性窗口將命令按鈕的(B)屬性設(shè)置為False,則運(yùn)行時(shí)按鈕從窗體上消失.A、DisabledPictureB、VisibleC、DefaultD、Enabled120、一個(gè)窗體上有兩個(gè)文本框，按放置順序分別是：Text1，Text2，要想在Text1中按“回車”鍵，“焦點(diǎn)”自動(dòng)轉(zhuǎn)到Text2上，應(yīng)在（D）事件過程中編寫程序。A、PrivateSubText1_Click()B、PrivateSubText2_GotFocus()C、PrivateSubText1_LostFocus()D、PrivateSubText1_KeyPress(KeyAsciiAsInteger)121、文本框中選定的內(nèi)容,由下列(A)屬性反映.A、SeltextB、CaptionC、sellenghtD、Text122、下面4項(xiàng)中不屬于面向?qū)ο笙到y(tǒng)三要素的是(A).A、變量B、事件C、方法D、屬性123、若要使命令按鈕不可操作,要設(shè)置的屬性是(A).A、EnabledB、VisibleC、CaptionD、BackColor124、文本框控件中將Text的內(nèi)容全部顯示為所定義的字符的屬性項(xiàng)是(D).A、PasswordB、以上都不是C、需要編程來實(shí)現(xiàn)D、PasswordChar125、如果Print方法在窗體的Load事件過程中不起作用，原因是（A）屬性值為false。A、AutoRedrawB、ControlBoxC、MoveableD、MaxButton126、inputBox函數(shù)返回值的類型為(C).A、變體B、數(shù)值C、字符串D、數(shù)值或字符串(視輸入的數(shù)據(jù)而定)127、窗體的Caption屬性的作用是(B).A、確定窗體的邊界類型B、確定窗體的標(biāo)題C、確定窗體的名稱D、確定窗體的字體128、欲使標(biāo)簽的內(nèi)容自動(dòng)換行,必須設(shè)置屬性(A).A、WordWrapB、AutoSizeC、AlignmentD、left129、用來設(shè)置粗體字的屬性是DA、FontItalicB、FontSizeC、FontNameD、FontBold130、Text1控件在運(yùn)行時(shí)不可見,是設(shè)置下列(B)屬性的結(jié)果.A、CancelB、VisibleC、ControlBoxD、Enabled131、若要使標(biāo)簽控件顯示時(shí),不覆蓋其背景內(nèi)容,應(yīng)設(shè)置標(biāo)簽控件的(D)屬性.A、BORDERSTYLEB、BACKCOLORC、FORECOLORD、BACKSTYLE132、要使“命令按鈕”在程序運(yùn)行時(shí)不可見，可以將其（C）屬性設(shè)置為False。A、CancelB、DefaultC、VisibleD、Enabled133、下列賦值語句正確的是(D).A、T=Text1.Name+Text2.NameB、Text1.Caption=Text1.Caption+Text2.CaptionC、Text1.Enable=Text1.Enable+Text2.EnableD、Text1.text=Text.text+Text2.text134、不具有輸入數(shù)據(jù)功能的控件是(C)控件.A、列表框B、選項(xiàng)按鈕C、窗體D、文本框135、程序運(yùn)行后,在窗體上單擊鼠標(biāo),此時(shí)窗體不會(huì)接收到的事件是(A).A、LoadB、ClickC、MouseDownD、MouseUp136、列表框和組合框的（B）屬性的值，表示其列表中項(xiàng)目的個(gè)數(shù)。A、ListIndexB、ListCountC、ListD、Text137、在定義靜態(tài)數(shù)組時(shí)，關(guān)于下標(biāo)的敘述中，正確的是（A）。A、省略下界，一般系統(tǒng)默認(rèn)為：下界是0B、下標(biāo)可以是字符型C、下標(biāo)下界最小為：-32768，下標(biāo)上界最大為：32767D、下標(biāo)可以是變量。138、下列程序：PrivateSubTextl_Change()PrintTextl；EndSub當(dāng)在文本框輸入"1234"這4個(gè)字符時(shí)，窗體上顯示的是DA、1234B、1121231234C、1234D、1121231234139、下面()對象在運(yùn)行時(shí)一定不可見.CA、LineB、OptionC、TimerD、Text140、若要清除列表框的所有內(nèi)容,可用什么方法實(shí)現(xiàn)CA、以上均不可以B、ClsC、ClearD、RemoveItem141、要使時(shí)鐘控件Timer1的Timer事件不起作用,以下正確的語句是AA、Timer1.Enabled=FalseB、Timer1.Index=0C、Timer1.Interval=1000D、Timer1.Visible=False142、為使計(jì)時(shí)器控件每隔5秒鐘產(chǎn)生一個(gè)計(jì)時(shí)器事件(Timer事件),則應(yīng)將其Interval屬性值設(shè)置為(D).A、300B、5C、500D、5000143、將數(shù)據(jù)項(xiàng)"China"添加到列表框(List1)中成為第一項(xiàng)應(yīng)使用的語句是（A）。A、List1.AddItem〞China〞,0B、List1.AddItem〞China〞,1C、List1.AddItem0,〞China〞D、List1.AddItem1,〞China〞144、在程序代碼中修改滾動(dòng)條的value屬性時(shí)將激發(fā)滾動(dòng)條的(D)事件.A、scrollB、dragdropC、gotfocusD、change145、循環(huán)結(jié)構(gòu)ForI%=-1to-17Step-2共執(zhí)行(C)次.A、6B、5C、9D、8146、執(zhí)行下面的程序段后,x的值為(D)x=5Fori=1To20Step2x=x+i\5NextiA、24B、23C、22D、21147、由Fork=10to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是(D).A、-11B、12C、-10D、0148、下列方法中可用于列表框動(dòng)態(tài)添加數(shù)據(jù)的是(D).A、removeitemB、addlistC、addD、additem149、組合框控件是將()組合成一個(gè)控件.AA、列表框控件和文本框控件B、復(fù)選框控件和選項(xiàng)按鈕控件C、標(biāo)簽控件和列表框控件D、標(biāo)簽控件和文本框控件150、下面程序段輸出的結(jié)果是DPrivateSubCommand1_Click()x=8Fori=0To20Step5x=x+iNextPrint"X=";xEndSubA、X=50B、X=218C、X=210D、X=58151、定時(shí)器的Interval屬性以()為單位指定Timer事件之間的時(shí)間間隔.CA、分B、微秒C、毫秒D、秒152、由Fork=35to0step3:nextk循環(huán)語句控制的循環(huán)次數(shù)是().AA、0B、-10C、12D、-11153、在列表框中當(dāng)前被選中的列表項(xiàng)的序號是由下列哪個(gè)屬性表示().CA、ListB、IndexC、ListIndexD、TabIndex154、設(shè)計(jì)動(dòng)畫通常使用時(shí)鐘控件()來控制動(dòng)畫速度.CA、EnabledB、TimerC、IntervalD、Move155、為了能在列表框中利用Ctrl和Shift鍵進(jìn)行多個(gè)列表項(xiàng)的選擇,則應(yīng)將列表框的Multiselect屬性設(shè)置為().CA、1B、3C、2D、0156、引用列表框的最后一項(xiàng)應(yīng)使用().DA、List1.List(ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(List1.ListCount-1)157、列表框控件中的列表內(nèi)容是通過()屬性設(shè)置的.AA、ListB、CaptionC、NameD、Text填空1.在窗體上已建立多個(gè)控件，如Text1，Label1，Command1，若要使程序一運(yùn)行焦點(diǎn)就定位在Command1控件上，應(yīng)對Command1控件的__tabindex___屬性設(shè)置為_TabIndex____。2.日期表達(dá)式#2/24/02#-#2/12/02#的值為_12____。3.已知a=2.5，b=5.0，c=2.5，d=True，則表達(dá)式：a>=0ANDa+c>b+3ORNOTd的值是_false____。4.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為__xmod5=0ORxmod9=0___。5.在剛建立工程時(shí)，使窗體上的所有控件具有相同的字體格式，就對__font___的屬性進(jìn)行設(shè)置。6.Int(-2.6)、Int(2.6)、Fix(-2.6)、Fix(3.6)的值分別是_-3____、___2__、__-2___、____3_。7.Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用_label___控件；若允許用戶輸入文本，則應(yīng)使用_Textbox____控件。8.若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開一個(gè)窗口frm1，請對以下事件過程填空。

PrivateSubCmdopen_Click()_____

_frm1.show____endsub9.表達(dá)式93\7Mod2^2的值是__1___。10.表達(dá)式Ucase(Mid(“abcdefgh”,3,4))的值是__CDEF___。11.當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__屬性___窗口中，把此文本框的__text___屬性設(shè)置成空白。12.已知a=3，b=4，c=5，表達(dá)式a>bandNotc>aOrc>bAndc<a+b的值是__true___。表達(dá)式c>aAndNotb<c的值是__false___。程序設(shè)計(jì)1.'------------------------------------------------'【程序改錯(cuò)】'------------------------------------------------'題目：程序功能：求1+2+3……，直到其和超出3000為'止，并輸出結(jié)果。'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegerDimsAsSinglei=0'**********ERROR**********s=1Do'**********ERROR**********i=i+2s=s+i'**********ERROR**********Loops>3000Print"從1到:";i;"的和是";sEndSub答案【學(xué)生答案】i=i+2【參考答案】i=i+12.'------------------------------------------------'【程序改錯(cuò)】'------------------------------------------------862'題目：以下程序段用于輸出100-300的所有素?cái)?shù)'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerForn=101To300Step2k=Int(Sqr(n))i=2'**********ERROR**********swit=1'**********ERROR**********Whileswit=0IfnModi=0Thenswit=1Else'**********ERROR**********i=i-1EndIfWendIfswit=0ThenPrintn;EndIfNextnEndSub答案【學(xué)生答案】swit=1【參考答案】swit=0【學(xué)生答案】Whileswit=0【參考答案】Whilei<=kAndswit=0Whilek>=iAndswit=0Whileswit=0Andi<=kWhileswit=0Andk>=i【學(xué)生答案】i=i-1【參考答案】i=i+13.OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerPrintTab(30);"9*9table"Print:PrintPrint"*";Fori=1To9'**********ERROR**********PrintTab(i*6);iNextiPrintForj=1To9Printj;"";Fork=1TojPrintTab(k*6);j*k;"";'**********ERROR**********NextjPrint'**********ERROR**********Nextk答案【學(xué)生答案】PrintTab(i*6);i【參考答案】PrintTab(i*6);i;【學(xué)生答案】Nextj【參考答案】Nextk【學(xué)生答案】Nextk【參考答案】Nextj4.'------------------------------------------------'【程序改錯(cuò)】'------------------------------------------------'題目：以下程序段用于計(jì)算5的N次方。'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,sAsLongn=InputBox("Inputn")'**********ERROR**********k=0'**********ERROR**********s=0DoWhilek<=ns=s*5k=k+1'**********ERROR**********NextPrint"5的";"n次方是";sEndSub答案【學(xué)生答案】k=0【參考答案】k=1【學(xué)生答案】s=0【參考答案】s=1【學(xué)生答案】Next【參考答案】loop'------------------------------------------------5.'【程序改錯(cuò)】'------------------------------------------------'題目：以下程序段用于打印如圖1所示的九九乘法表：'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsIntegerPrintTab(30);"9*9table"Print:PrintPrint"*";Fori=1To9'**********ERROR**********PrintTab(i*6);iNextiPrintForj=1To9Printj;"";'**********ERROR**********Fork=1To9'**********ERROR********** PrintTab(j*6);j*k;"";NextkPrintNextjEndSub答案【學(xué)生答案】PrintTab(i*6);i【參考答案】PrintTab(i*6);i;【學(xué)生答案】Fork=1To9【參考答案】Fork=1Toj【學(xué)生答案】PrintTab(j*6);j*k;"";【參考答案】PrintTab(k*6);j*k;"";6.'【程序改錯(cuò)】'------------------------------------------------'題目：下面程序可輸出如下圖形：'*'***'*****'*******'*********'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsIntegern=4m=1s="*"Fori=5To1Step-1'**********ERROR**********PrintSpc(n)Forj=1To2*m-1Prints;NextjPrint'**********ERROR**********n=n+1'**********ERROR**********m=m-1Nexti答案【學(xué)生答案】PrintSpc(n)【參考答案】PrintSpc(n);PrintSpc(i);?Spc(n);?Spc(i);【學(xué)生答案】n=n+1【參考答案】n=n-1n=-1+n【學(xué)生答案】m=m-1【參考答案】m=m+17.'題目：以下程序段用于輸出100-300的所有素?cái)?shù)'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimnAsInteger,kAsInteger,iAsInteger,switAsIntegerFori=101To299k=Int(Sqr(i)Forn=2TokIfiModn=0Then'**********ERROR**********ExitEndIfNextn'**********ERROR**********Ifn<kThenPrinti;EndIf'**********ERROR**********Nextn'Printi答案【學(xué)生答案】Exit【參考答案】exitfor【學(xué)生答案】Ifn<kThen【參考答案】Ifn>kThenIfk<nThen【學(xué)生答案】Nextn【參考答案】nextiNexti程序填空1.'從鍵盤輸入三個(gè)整數(shù)，從其中找出最大值并輸出到窗口PrivateSubForm_Click()Dima%,b%,c%,max%a=Val(InputBox("請輸入一個(gè)整數(shù)"))b=Val(InputBox("請輸入一個(gè)整數(shù)"))c=Val(InputBox("請輸入一個(gè)整數(shù)"))max=a'**********FILL**********If______Thenmax=bEndIfIfmax<cThen'**********FILL**********________EndIf'**********FILL**********Printa;"、";b;"、";c;"中最大值是";______EndSub答案【學(xué)生答案】If______Then【參考答案】max<bmax<=bb>maxb>=max【學(xué)生答案】________【參考答案】max=c【學(xué)生答案】Printa;"、";b;"、";c;"中最大值是";______【參考答案】max2.以下程序的功能。'PrivateSubForm_Click()Dima%,b%,c%,d!Dimx1,x2Dimp,q,ra=InputBox("請輸入a的值")b=InputBox("請輸入b的值")c=InputBox("請輸入c的值")d=b*b-4*a*cp=-b/(2*a)Ifd>=0Then'**********FILL**********If_____Thenr=Sqr(d)/(2*a)x1=p+rx2=p-rElsex1=px2=p'**********FILL**********_____Print"x1=";x1,"x2=";x2'**********FILL**********_____q=Sqr(-d)/(2*a)Print"x1=";p;"+";q;"i","x2=";p;"-";q;"i"EndIf答案【學(xué)生答案】If_____Then【參考答案】d>0【學(xué)生答案】_____【參考答案】EndifEndIfendif【學(xué)生答案】_____【參考答案】elseElseELSE3.'從鍵盤輸入學(xué)生分?jǐn)?shù)，統(tǒng)計(jì)學(xué)生總?cè)藬?shù)和各分?jǐn)?shù)段人數(shù)，'即優(yōu)秀（90-100）、良好（80-89）、中等（70-79）、'及格（60-69）、不及格（60以下）的人數(shù)。PrivateSubForm_Click()Dimscore%,n1%,n2%,n3%,n4%,n5%msg="請輸入分?jǐn)?shù)（-1結(jié)束）"msgtitile="輸入數(shù)據(jù)"score=Val(InputBox(msg,msgtitle))'**********FILL**********While_____total=total+1'**********FILL**********SelectCase_____CaseIs>=90n1=n1+1CaseIs>=80n2=n2+1CaseIs>=70n3=n3+1CaseIs>=60n4=n4+1CaseElsen5=n5+1'**********FILL**********_____score=Val(InputBox(msg,msgtitle))WendPrintn1,n2,n3,n4,n5,totalEndSub答案【學(xué)生答案】While_____【參考答案】score>=0andscore<=100score>=0andscore<=100score<>-1【學(xué)生答案】SelectCase_____【參考答案】score【學(xué)生答案】_____【參考答案】EndSelect4．以下程序段用于實(shí)現(xiàn)：輸入兩個(gè)正整數(shù)m和n，求其最大'公因數(shù)和最小公倍數(shù)。PrivateSubForm_Click()Dima%,b%,num1%,num2%,tempnum1=InputBox("請輸入一個(gè)正整數(shù)")num2=InputBox("請輸入一個(gè)正整數(shù)")'**********FILL**********If_____Thentemp=num1:num1=num2:num2=tempEndIfa=num1b=num2'**********FILL**********DoWhile_____temp=aModba=b'**********FILL**********_____LoopPrint"最大公因數(shù)為：";aPrint"最小公倍數(shù)為：";num1*num2/a答案【學(xué)生答案】If_____Then【參考答案】num1<num2num2>num1【學(xué)生答案】DoWhile_____【參考答案】b<>0b>00<btemp<>0temp>00<tempNotb=0Not0=b【學(xué)生答案】_____【參考答案】b=temp5．'以下程序用于判斷一個(gè)正整數(shù)（≥3）是否為素?cái)?shù)。'PrivateSubForm_Click()n=InputBox("請輸入一個(gè)正整數(shù)（≥3）")k=Int(Sqr(n))i=2swit=0'**********FILL**********DoWhilei<=kAnd_____'**********FILL**********If_____Thenswit=1Else'**********FILL**********_____EndIfLoopIfswit=0ThenPrintn;"是一個(gè)素?cái)?shù)"ElsePrintn;"不是素?cái)?shù)"EndIfEndSub答案【學(xué)生答案】DoWhilei<=kAnd_____【參考答案】swit=0【學(xué)生答案】If_____Then【參考答案】nModi=0n\i=n/in/i=int(n/i)【學(xué)生答案】_____【參考答案】i=i+16．題目：從鍵盤上輸入一串字符，以"?"結(jié)束，統(tǒng)計(jì)輸入字符中的'大、小寫字母和數(shù)字的個(gè)數(shù)。PrivateSubForm_Click()Dimch$,n1%,n2%,n3%n1=0n2=0n3=0ch=InputBox("請輸入一個(gè)字符")'**********FILL**********DoWhile_____SelectCasechCase"a"To"z"n1=n1+1'**********FILL**********Case_____n2=n2+1Case"0"To"9"n3=n3+1EndSelectch=InputBox("請輸入一個(gè)字符")'**********FILL**********_____Printn1,n2,n3答案【學(xué)生答案】DoWhile_____【參考答案】dowhilech<>"?"DoWhilech<>"?"【學(xué)生答案】Case_____【參考答案】case"A"to"Z"Case"A"to"Z"【學(xué)生答案】_____【參考答案】loopLoop窗體設(shè)計(jì)1在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Txt1；再畫一個(gè)命令按鈕，名稱為C1，標(biāo)題為"移動(dòng)"，如圖1所示。請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，單擊"移動(dòng)"按鈕，文本框水平移動(dòng)到窗體的最左端如圖2所示。程序中不得使用任何變量。注意：完成題目后，必須保存工程后再關(guān)閉?！究丶縑B.CommandButton_標(biāo)準(zhǔn)答案：Name=C1學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Caption=移動(dòng)學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_標(biāo)準(zhǔn)答案：Name=Txt1學(xué)生答案：Name=【事件評分】 錯(cuò)誤【事件】PrivateSubC1_Click()標(biāo)準(zhǔn)答案：Txt1.Left=0學(xué)生答案：二1、利用VB設(shè)計(jì)上面的程序界面。窗體的標(biāo)題為"字體修改"；其中包括一名稱為Label1,標(biāo)題為"請輸入文字"的標(biāo)簽；一名稱為Text1，內(nèi)容為空的文本框；名稱為Command1,標(biāo)題為"隸書"，名稱為Command2,標(biāo)題為"黑體"的兩個(gè)命令按鈕。2、程序功能：單擊"隸書"命令按鈕時(shí)，文本框的字體設(shè)為"隸書"；單擊"黑體"命令按鈕時(shí)，文本框的字體設(shè)置為"黑體"。提示：不能使用任何變量！【事件】PrivateSubCommand2_Click()標(biāo)準(zhǔn)答案：Text1.Font="黑體"學(xué)生答案：【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Caption=隸書學(xué)生答案：Caption=【事件評分】 錯(cuò)誤【事件】PrivateSubCommand1_Click()標(biāo)準(zhǔn)答案：Text1.Font="隸書"學(xué)生答案：【控件屬性評分】 錯(cuò)誤【控件】VB.Label_標(biāo)準(zhǔn)答案：Caption=請輸入文字學(xué)生答案：Caption=三在名稱為Form1的窗體上建立一個(gè)名稱為List1的列表框。要求：在程序運(yùn)行后，通過Form_Load()事件過程加載窗體時(shí)，執(zhí)行語句List1.AddItem"AAA"，每當(dāng)單擊某個(gè)列表項(xiàng)時(shí)，都執(zhí)行語句List1.AddItemList1.Text一次，如圖所示?！臼录縋rivateSubForm_Load()標(biāo)準(zhǔn)答案：List1.AddItem"AAA"學(xué)生答案：【事件評分】 錯(cuò)誤【事件】PrivateSubList1_Click()標(biāo)準(zhǔn)答案：List1.AddItemList1.Text四在名稱為Form1的窗體上建立一個(gè)水平滾動(dòng)條，名稱為HS1，其最大值為100，最小值為0。要求程序運(yùn)行后，每次移動(dòng)滾動(dòng)框時(shí)，都執(zhí)行語句Form1.PrintHS1.Value，如圖所示（程序中不能使用任何變量）【事件】PrivateSubHS1_Scroll()標(biāo)準(zhǔn)答案：PrintHS1.Value學(xué)生答案：【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_標(biāo)準(zhǔn)答案：Name=HS1學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.HScrollBar_標(biāo)準(zhǔn)答案：Max=100五1、在名稱為Form1的窗體上建立一個(gè)名稱為l1的標(biāo)簽，并設(shè)置他不可見；兩個(gè)名稱為cmd1和cmd2，標(biāo)題分別為"顯示1"和"顯示2"的命令按鈕。2、編寫適當(dāng)?shù)氖录^程，要求程序運(yùn)行后，如果單擊"顯示1"命令按鈕，則標(biāo)簽可見并顯示字符串"aaa"；如果單擊"顯示2"命令按鈕，則標(biāo)簽可見并顯示字符串"bbb"。程序中不能使用任何變量，直接顯示字符串；不能使用默認(rèn)屬性。程序開始運(yùn)行時(shí)界面如圖1所示標(biāo)準(zhǔn)答案：Caption=顯示1學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_標(biāo)準(zhǔn)答案：Visible=0'False學(xué)生答案：Visible=【控件屬性評分】 錯(cuò)誤【控件】VB.Label_標(biāo)準(zhǔn)答案：Name=l1學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Name=cmd2學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Name=cmd1學(xué)生答案：Name=【事件評分】 錯(cuò)誤【事件】PrivateSubcmd1_Click()標(biāo)準(zhǔn)答案：l1.Visible=Truel1.Caption="aaa"學(xué)生答案：【事件評分】 錯(cuò)誤【事件】PrivateSubcmd2_Click()標(biāo)準(zhǔn)答案：l1.Caption="bbb"六1、在名稱為Form1的窗體上畫一個(gè)文本框，名稱為Text1,且不可見；再畫兩個(gè)命令按鈕，名稱分別為c1和c2，標(biāo)題分別為"隱藏"和"顯示"。2、請編寫適當(dāng)?shù)氖录^程，使得在運(yùn)行時(shí)，如果單擊"隱藏"按鈕，則文本框消失；如果單擊"顯示"按鈕，則文本框顯示出來，如圖1和圖2所示。程序中不得使用任何變量?！究丶傩栽u分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Name=c2學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Caption=顯示學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Name=c1學(xué)生答案：Name=【控件屬性評分】 錯(cuò)誤【控件】VB.CommandButton_標(biāo)準(zhǔn)答案：Caption=隱藏學(xué)生答案：Caption=【控件屬性評分】 錯(cuò)誤【控件】VB.TextBox_