【文章內(nèi)容簡(jiǎn)介】 找出所有的水仙花數(shù)。水仙花數(shù)是個(gè)三位數(shù)，它的各位數(shù)字的立方和等于這個(gè)三位數(shù)本身。例如371＝33+73+13，則371是水仙花數(shù)。 從鍵盤輸入一個(gè)大于2的正整數(shù)，判斷該數(shù)是否是素?cái)?shù)。 求二維數(shù)組中的最小值及其所在行號(hào)、列號(hào)。 1求一元二次方程ax2+bx+c=0的根（包括實(shí)根和復(fù)根）。 1輸入一個(gè)正整數(shù)n，計(jì)算出n!并輸出。 1Faibonacci數(shù)列為0，1，1，2，3，5，8，13 …，計(jì)算并輸出第20項(xiàng)以及前20項(xiàng)的和。第四章 常用控件與窗體一、填空題 向列表框控件添加新項(xiàng)目的方法是__________。 在VB中，最主要的兩種對(duì)象是____________和____________。 當(dāng)窗體啟動(dòng)時(shí)可通過(guò)__________屬性控制窗體位于所有者的中心位置。 若要將窗體Form1隱藏起來(lái)，則可通過(guò)執(zhí)行代碼_________________來(lái)實(shí)現(xiàn)。 要使裝入到列表框中的數(shù)據(jù)項(xiàng)能自動(dòng)按字母順序排序，應(yīng)設(shè)置該控件的_________屬性為__________。 窗體上放置了若干個(gè)文本框和命令按鈕，當(dāng)窗體裝入后，要將焦點(diǎn)自動(dòng)定位到文本框Text1上，則在設(shè)計(jì)時(shí)需要將__________控件的_________屬性設(shè)置為__________。 在標(biāo)簽控件中通過(guò)編程使文字換行用的代碼是___________________。 設(shè)置計(jì)時(shí)器控件只能觸發(fā)______________________事件。 設(shè)置計(jì)時(shí)器對(duì)象觸發(fā)事件的時(shí)間間隔用_____________________屬性。 滾動(dòng)條控件主要支持兩個(gè)事件，它們是_______________事件。 1要使鼠標(biāo)停留在按鈕上顯示特殊的鼠標(biāo)形狀，應(yīng)設(shè)置的屬性值是_________________。 1設(shè)某列表框共有10項(xiàng)，按題目要求補(bǔ)齊程序，完成相應(yīng)的功能。（1）按下命令按鈕Command1時(shí)將列表框第8項(xiàng)的內(nèi)容顯示在窗體上：Private Sub Command1_Click( )(7)=TruePrint End Sub（2）單擊列表框某一項(xiàng)時(shí)立即將該項(xiàng)打印在窗體上：Private Sub List1_Click( )Print_______________End Sub（3）按下命令按鈕Command1時(shí)在窗體上刪除第9項(xiàng)：Private Sub Command1_Click( )For I=1 To 5Next IEnd Sub（4）在列表框的每一項(xiàng)之后插入一個(gè)新的項(xiàng)：Private Sub Command1_Click( )For I=1 to 10X=InputBox(“請(qǐng)輸入插入的第” amp。 I amp。 “項(xiàng)內(nèi)容”)Next IEnd Sub 1設(shè)在界面上放置了一個(gè)滾動(dòng)條Hscroll1和一個(gè)標(biāo)簽控件Label1，要使每次單擊滾動(dòng)條兩端箭頭時(shí)，或單擊滾動(dòng)條滑塊與兩端箭頭之間的空白區(qū)域時(shí)，標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。Private Sub ( ) = End Sub要使拖動(dòng)滾動(dòng)條滑塊時(shí)標(biāo)簽內(nèi)容能夠反映滾動(dòng)條的值，補(bǔ)齊以下代碼。Private Sub ( ) = End Sub 1列表框（ListBox）用于列出可供選擇的項(xiàng)目的列表，用戶可以選擇一個(gè)或多個(gè)項(xiàng)目。它具有幾個(gè)非常重要的數(shù)組屬性，其中__ __屬性存放了列表框中所有項(xiàng)目的值。 1菜單項(xiàng)一般由標(biāo)題、訪問(wèn)鍵、快捷鍵和復(fù)選標(biāo)志等構(gòu)成，通過(guò)對(duì)相應(yīng)的屬性進(jìn)行設(shè)置可以改變這些項(xiàng)目的狀態(tài)，其中與復(fù)選標(biāo)志相對(duì)應(yīng)的屬性是__ __。 1keydown與keypress事件各有其參數(shù)，若需獲得用戶按下 a 還是 A 需用____________事件。 1控件________組合了文本框和列表框的功能，是VB中一種功能非常強(qiáng)大的選擇類控件。 1若需要將窗體Form2以模態(tài)窗口的形式顯示出來(lái)，可通過(guò)執(zhí)行代碼_________________來(lái)實(shí)現(xiàn)。 1菜單中的分隔條是一種菜單控件，不響應(yīng)__________事件，不能被選中。二、選擇題 當(dāng)程序運(yùn)行時(shí)，在窗體上單擊鼠標(biāo)，以下哪個(gè)事件是窗體不會(huì)接收到( )A．MouseDown B．MouseUp C．Load D．Click 窗體Form1的Name屬性是Frm1，它的單擊事件過(guò)程名是（ ）A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 用于設(shè)置通用對(duì)話框控件顯示文件類型的屬性是（ ）A．Filter B．Path C．Partern D．FoleName 用于從內(nèi)存刪除窗體的命令是（ ）A．Move B．Hide C．Unload D．Delete 用于返回窗體可用區(qū)域?qū)挾鹊膶傩允牵? ）A．ScaleWidth B．ScaleLeft C．ScaleHeight D．ScaleTop 下列關(guān)于屬性設(shè)置的敘述錯(cuò)誤的是：（ ）A．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶不能改變B．一個(gè)控件具有什么屬性是VB預(yù)先設(shè)計(jì)好的，用戶可以改變C．一個(gè)控件的屬性即可以在屬性窗口中設(shè)置，也可以用程序代碼設(shè)置D．一個(gè)控件的屬性在屬性窗口中設(shè)置，還可以利用程序代碼為其設(shè)置新值 下列說(shuō)法正確的是（ ）A．對(duì)象屬性只能在“屬性窗口”中設(shè)置B．一個(gè)新的工程可以在“工程窗口”中建立C．必須先建立一個(gè)工程，才能開始設(shè)計(jì)應(yīng)用程序D．只能在“代碼窗口”中編寫程序代碼 下列關(guān)于窗體上控件的基本操作錯(cuò)誤的是（ ）A．按下一次DEL鍵只能刪除一個(gè)控件B．按下一次DEL鍵可以同時(shí)刪除多個(gè)控件C．按住SHIFT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件D．按住ALT鍵，然后單擊每個(gè)要選擇的控件，可以同時(shí)選中多個(gè)控件 下列關(guān)于設(shè)置控件屬性的敘述正確的是（ ）A．用戶必須設(shè)置屬性值B．所有的屬性值都可以由用戶隨意設(shè)定C．屬性值不必一一重新設(shè)置D．不同控件的屬性項(xiàng)都完全一樣 不可以通過(guò)下列（ ）操作將焦點(diǎn)賦給對(duì)象A．運(yùn)行時(shí)使用TAB鍵 B．在代碼中用CALL語(yǔ)句調(diào)用C．在代碼中用SETFOCUS方法 D．用訪問(wèn)鍵或用鼠標(biāo)單擊選擇對(duì)象 1要在FORM_LOAD事件過(guò)程中使用PRINT方法在窗體上輸出一定的內(nèi)容，應(yīng)（ ）A．設(shè)置窗體的VISIBLE屬性 B．設(shè)置窗體的CAPTIONC．調(diào)用窗體的SHOW方法 D．設(shè)置窗體ENABLED屬性 1下面（ ）對(duì)象無(wú)CAPTION屬性A．FORM B．COMMANDBUTTON C．TEXTBOX D．LABEL 1通用對(duì)話框控件和文件列表框控件中，都能根據(jù)文件的類型對(duì)要顯示的文件進(jìn)行篩選過(guò)濾，后者使用（ ）屬性進(jìn)行該項(xiàng)設(shè)置。A．Pattern B．Path C．Filter D．FileName 1對(duì)于復(fù)選框控件chkBoy，如果在程序中設(shè)置它為選中狀態(tài)，下面語(yǔ)句正確的是（ ）A． = true B． = trueC． = true D． = 1 1計(jì)時(shí)器（Timer）控件用于每隔一段時(shí)間自動(dòng)觸發(fā)一次Timer事件，可以有規(guī)律地重復(fù)執(zhí)行一段程序，它用于設(shè)置兩次事件時(shí)間間隔的屬性是（ ）A．Interval B．SmallChange C．LargeChange D．Max 1以下關(guān)于VB中窗體（Form）的說(shuō)法中，不正確的描述為（ ）A．執(zhí)行Unload Form語(yǔ)句后，窗體Form消失，但仍在內(nèi)存中B．當(dāng)窗體的Enabled屬性為False時(shí)，通過(guò)鼠標(biāo)和鍵盤對(duì)窗體的操作都被禁止C．窗體的Height、width屬性用于設(shè)置窗體的高和寬D．窗體的load事件在加載窗體時(shí)發(fā)生 1關(guān)于滾動(dòng)條控件，下面說(shuō)法錯(cuò)誤的是（ ）A．點(diǎn)擊滾動(dòng)條的箭頭，可以改變它的value值，從而引發(fā)Change事件B．拖動(dòng)滾動(dòng)框，可以觸發(fā)Scroll事件C．通常，水平滾動(dòng)條的值從左向右遞增，垂直滾動(dòng)條的值自上而下遞增D．拖動(dòng)滾動(dòng)框，可以觸發(fā)Change事件，而且是連續(xù)觸發(fā)的 1在窗體上放置一個(gè)命令按鈕，名稱為Command1。單擊命令按鈕時(shí)，執(zhí)行如下事件過(guò)程：PriVate Sub Command1_C1ick()a$=software and hardwareb$＝Right(a$,8)c$=Mid(a$,1,8)Msgbox a$,b$,c$,1End Sub則在彈出的信息框的標(biāo)題欄中顯示的信息是（ ）A．softWare and hardware B．softwareC．hardwafe D．出現(xiàn)錯(cuò)誤 1在多重窗體程序設(shè)計(jì)中，關(guān)鍵的問(wèn)題是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問(wèn)題，以下關(guān)于窗體的相關(guān)語(yǔ)句和方法的敘述中，錯(cuò)誤的是（ ）A．Load語(yǔ)句用于加載指定窗體，即在內(nèi)存中創(chuàng)建該窗體B．Show方法兼具Load語(yǔ)句的功能，可以將窗體顯示出來(lái)C．Hide方法用于將窗體隱藏起來(lái)D．Unload語(yǔ)句用來(lái)釋放窗體，但窗體并沒(méi)從內(nèi)存中消 滾動(dòng)條控件的屬性中，表示取值范圍最大值的屬性是（ ）A．Max B．LargeChange C．Min D．Value 2程序中如果需要檢測(cè)和控制鼠標(biāo)的位置和狀態(tài)的改變，就需要使用鼠標(biāo)事件，其中下面哪個(gè)選項(xiàng)用于表示拖動(dòng)事件（ ）A．DragDrop B．MouseDownC．MouseUp D．MouseMove 2為了使用通用對(duì)話框進(jìn)行打開文件的操作，應(yīng)將通用對(duì)話框的Action屬性設(shè)定為（ ）。A．0 B．1 C．2 D．3三、簡(jiǎn)答題 什么是單選按鈕？什么是復(fù)選框？在使用上有什么不同？ 滾動(dòng)條的change事件和scroll事件有什么不同？ 快捷鍵和訪問(wèn)鍵有什么區(qū)別？ 在程序運(yùn)行期間，如果拖動(dòng)滾動(dòng)條上的滾動(dòng)塊（即滑塊），則觸發(fā)滾動(dòng)條的什么事件？ 假定有一個(gè)菜單項(xiàng)，名為MenuItem，為了在運(yùn)行時(shí)使該菜單項(xiàng)失效（變灰），應(yīng)使用什么語(yǔ)句？ 為了暫時(shí)關(guān)閉計(jì)時(shí)器（即時(shí)鐘控件），應(yīng)把該計(jì)時(shí)器的什么屬性設(shè)置為False？ 單選按鈕和復(fù)選框（即檢查框）各用于什么情況？ 如何為一個(gè)菜單項(xiàng)設(shè)置熱鍵和快捷鍵？ 菜單的形式有哪兩種？ 在KeyPress事件中，如何取消用戶剛輸入的字符？ 1框架的作用是什么？ 1如果要計(jì)時(shí)器每秒鐘發(fā)生4個(gè)Timer事件，則Interval屬性值應(yīng)設(shè)多少？ 1在一個(gè)窗體的程序代碼中能否訪問(wèn)另一個(gè)窗體上控件的屬性？若不行則請(qǐng)說(shuō)明理由；若行則請(qǐng)說(shuō)明如何訪問(wèn)。 1如何在框架中建立控件？ 1組合框有哪幾種類型？四、讀程序題 對(duì)窗體編寫如下代碼：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序運(yùn)行后，按回車鍵，輸出結(jié)果是什么？ 閱讀下面的程序，寫出執(zhí)行結(jié)果。Private Sub Form_load()d = 0For a = 1 To 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub五、編程題 在窗體上有一個(gè)文本框控件，名稱為TxtTime；一個(gè)計(jì)時(shí)器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當(dāng)前的時(shí)間，請(qǐng)編程實(shí)現(xiàn)。 在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。Text1Text2Command1 編寫一個(gè)程序，能夠?qū)崿F(xiàn)任意個(gè)整數(shù)的排序。 編程實(shí)現(xiàn)以下功能：用戶首先分別在兩個(gè)文本框中輸入兩個(gè)數(shù)，然后在具有“加、減、乘、除”等四個(gè)菜單項(xiàng)的“計(jì)算”菜單中單擊某一項(xiàng)，即可在標(biāo)簽中顯示出相應(yīng)的結(jié)果或者錯(cuò)誤提示。 編程實(shí)現(xiàn)任意兩個(gè)數(shù)的“加、減、乘、除”。 編寫一個(gè)程序，能夠求任意個(gè)正整數(shù)的最大值和最小值。 編程求任意兩個(gè)正整數(shù)的最大公約數(shù)。六、程序分析填空題 建立一個(gè)如圖所示的簡(jiǎn)單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文本時(shí)可進(jìn)行“剪切”、“復(fù)制”和“粘貼”操作。假設(shè)在窗體聲明部分定義了一個(gè)變量str1，用于保存復(fù)制和剪切的內(nèi)容，請(qǐng)把剪切按鈕(btnCut)的Click事件補(bǔ)充完整。程序運(yùn)行界面：Private Sub btnCut_Click() ‘請(qǐng)補(bǔ)充End Sub