VB語(yǔ)言程序設(shè)計(jì)試題庫(kù).docVIP

VB程序設(shè)計(jì)一、判斷題1. 同一Form窗體中的各控件可以相互重疊，其顯示的上下層次的次序不可以調(diào)整。（ X ）2. 一個(gè)對(duì)象的若能識(shí)別多個(gè)事件，我們只能對(duì)其中一個(gè)事件編程（ O ）3. 單選按鈕與復(fù)選框?qū)ο蟮腣alue屬性類型不同，且只能取值True和False。（ ）4. 事件過(guò)程由某個(gè)用戶事件或系統(tǒng)事件觸發(fā)執(zhí)行，它不能被其他過(guò)程調(diào)用。（ O ）5. 圖片框的Move方法不僅可以移動(dòng)圖片框，而且還可以改變?cè)搱D片框的大小，同時(shí)也會(huì)改變?cè)搱D片框有關(guān)屬性的值。（ ）6. “A=B=C”是一個(gè)合法的Visual Basic語(yǔ)句。（ O ）7. 當(dāng)在一個(gè)簡(jiǎn)單組合框的文本框中輸入一個(gè)它的列表框中沒(méi)有的條目時(shí)，組合框會(huì)自動(dòng)把這一條目添加到它的列表框中。（ O ）8. Visual Basic程序的運(yùn)行可以從 Main（）過(guò)程啟動(dòng)，也可以從某個(gè)窗體啟動(dòng)。（ ）9. 在圖片框中放置的控件既可以在該圖片框內(nèi)移動(dòng)，也可以移出該圖片框外。（O ）10. 對(duì)于文件系統(tǒng)控件，當(dāng)驅(qū)動(dòng)器控件Drivel中的驅(qū)動(dòng)器符改變時(shí)，文件夾列表控件Dir1中顯示的文件夾也作相應(yīng)的改變，可以在Drive1中的Change事件中使用如下命令。Dir1. Path Drive1. Drive（ ）11. 滾動(dòng)條控件可作為用戶輸入數(shù)據(jù)的一種方法。（ ）12. 單選按鈕控件和復(fù)選框控件都具有Value屬性，它們的作用完全相同。（ O ）13. 靜態(tài)變量是一種局部變量，當(dāng)原過(guò)程再次被執(zhí)行時(shí)，靜態(tài)變量的初值是上一次過(guò)程調(diào)用后的值。（ ）14. Visual Basic提供的幾種標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)的原點(diǎn)都是在繪圖區(qū)域的左上角，如果要把坐標(biāo)原點(diǎn)放在其他位置，則需使用自定義坐標(biāo)系統(tǒng)。（ ）15注釋語(yǔ)句REM可自成一語(yǔ)句。（ ）16. 用鼠標(biāo)選中某菜單控件時(shí)，觸發(fā)Click事件；而用鍵盤(pán)選中該菜單控件時(shí)，觸發(fā) KeyPress（ O）17. 組合框兼有文本框和列表框兩者的功能，用戶可以通過(guò)鍵人文本或選擇列表中的項(xiàng)目來(lái)進(jìn)行選擇。（ ）18. 當(dāng)定時(shí)器控件的Interval屬性值設(shè)置為0時(shí)，會(huì)連續(xù)不斷地激發(fā)Timer事件。（O ）19執(zhí)行程序 x=0:for I=2 to 10 step 2:x=x+10:next I后x的值為0。（ ）2.句“FontName=宋體 ”與“Form1.FontName=宋體 ”的作用完全相同，無(wú)一例外。（ O）21局變量只能在窗體的通用區(qū)內(nèi)用Public或global定義。（ O ）22. 在盤(pán)驅(qū)動(dòng)器列表框Drivel的Change事件過(guò)程中，代碼Dirl. PathDrivel . Drive的作用是：當(dāng)Drivel的驅(qū)動(dòng)器改變時(shí)，Dirl的目錄列表隨不同驅(qū)動(dòng)器作相應(yīng)改變。（ ）23直到型循環(huán)至少能執(zhí)行一次循環(huán)體。（ ）24. Variant是一種特殊的數(shù)據(jù)類型，Variant類型變量可以存儲(chǔ)除定長(zhǎng)字符串?dāng)?shù)據(jù)及自定義類型外的所有系統(tǒng)定義類型的數(shù)據(jù)。Variant類型變量還可具有Empty、Error和Null等特殊值。（ ）25. 如果一個(gè)菜單項(xiàng)的 Visible屬性為False，則它的子菜單也不會(huì)顯示。（ ）26.運(yùn)行程序后在同一窗體上不可能同時(shí)選中兩個(gè)單選鈕。（ O ）27. 窗體的 Enabled屬性值為 False時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶的操作做出反應(yīng)。（ ）28定時(shí)器的interval屬性值為0時(shí)，不會(huì)發(fā)生timer事件。（ ） 29. 框架控件和形狀控件都不能響應(yīng)用戶的鼠標(biāo)的單擊事件。（ O ）30. 在一個(gè)窗體的代碼中不能使用Unload語(yǔ)句來(lái)卸載本窗體，即一個(gè)窗體只能由其他窗體卸載。（ O ）31移動(dòng)圖片框時(shí),以該圖片框?yàn)檩d體的各控件的Left 和 Top屬性值不變。（ ）二單選題32. 組合框的Change（ ）事件在下列那種情況下發(fā)生？( C )A、在程序改變控件的大小時(shí)發(fā)生 B、用戶在下拉列表中改變選項(xiàng)時(shí)發(fā)生C、用戶在編輯文本區(qū)內(nèi)容時(shí)發(fā)生 D、當(dāng)程序改變組合框的Style屬性時(shí)發(fā)生33. 為了使標(biāo)簽框的中的文字能自動(dòng)折行，必須同時(shí)設(shè)置下面 兩個(gè)屬性為T(mén)rue。（ D ）A、Caption和AutoSize B、AutoSize和Aligment C、Visible 和Enable D、AutoSize 和WordWarp34.如果希望文件列表框只顯示可執(zhí)行文件，應(yīng)該修改（ B ）屬性。A、Pattern B、Filter C、Path D、FileName35.為了使某個(gè)命令按鈕處于不可用狀態(tài)，應(yīng)該設(shè)置該命令按鈕的 屬性。（ B ）A、Default B、Enabled C、Cancel D、TabIndex36.通用對(duì)話框控件的返回值FileName表示所選擇文件的（ B ） 。A、路徑名 B、全名 C、文件主名 D、文件擴(kuò)展名37.關(guān)于單選按鈕和復(fù)選框，下列說(shuō)法正確的是：( C )A、單選按鈕和復(fù)選框的Value屬性值可能是0或1B、同一窗體上的單選按鈕只能有一個(gè)處于選中狀態(tài)C、復(fù)選框不支持DblClick事件D、單選按鈕選中狀態(tài)的改變只能由用戶進(jìn)行，而不能由程序設(shè)置38.下列控件中哪個(gè)控件沒(méi)有Change事件( D ) A、滾動(dòng)條 B、目錄列表框 C、標(biāo)簽 D、單選按鈕39.菜單項(xiàng)顯示分隔線是通過(guò)設(shè)置（ A ）屬性來(lái)實(shí)現(xiàn)的。A、Caption B、Visible C、Checked D、Enabled 40.運(yùn)行時(shí)組合框控件Comb1中所選擇的表項(xiàng)，可以表示為（ C ）。A、Comb1.Text B、Comb1.List C、Comb1.ListIndex D、Comb1.ListCount41.要使Shape控件以實(shí)心方式填充，應(yīng)該設(shè)置其（ B ）屬性。A、FillColor B、FillStyle C、BackStyle D、Shape42.向文本框中輸入一個(gè)字符，下列 事件不會(huì)發(fā)生。（ C ）A、Change B、KeyPress C、GotFocus D、KeyDown43.下面關(guān)于框架、復(fù)選框和單選鈕的敘述，正確的是 。（ B ）A、框架沒(méi)有Caption屬性，而復(fù)選框和單選鈕都有Caption屬性 B、一個(gè)框架中的復(fù)選框有可以多個(gè)被選中C、一個(gè)窗體中單選鈕有且只有一個(gè)可以被選中A、 可以把窗體中已存在的單選鈕拖到框架中，成為框架中的一員44.用戶在窗體上單擊時(shí)，將先后觸發(fā)該窗體的( D )A、MouseDown事件、Click事件、MouseMove事件、MouseUp事件B、Click事件、MouseDown事件 、MouseUp事件、MouseMove事件C、MouseDown事件、Click事件、MouseUp事件 、MouseMove事件D、MouseDown事件 、MouseUp事件、 Click事件、 MouseMove事件45.下面 方法不屬于列表框和組合框。（ A ） A、Cls B、AddItem C、GetFocus D、RemoveItem46.在圖片框控件Picture1上坐標(biāo)(x,y)處畫(huà)一個(gè)綠色點(diǎn)，寫(xiě)作( D ) 。 A、Pset(x,y),Rgb(0,255,0) B、Picture1.Pset(x,y),Green C、Pset(x,y),vbGreen D、Picture1.Pset(x,y),vbGreen 47.下面關(guān)于滾動(dòng)條和計(jì)時(shí)器控件的敘述，其中錯(cuò)誤的是 。（ B ）A、當(dāng)滾動(dòng)條的Value值改變時(shí)，發(fā)生Change事件B、當(dāng)拖動(dòng)滾動(dòng)條時(shí)，釋放鼠標(biāo)時(shí)發(fā)生Scroll事件C、計(jì)時(shí)器控件在運(yùn)行時(shí)是不可見(jiàn)的D、計(jì)時(shí)器和滾動(dòng)條控件都有Enable屬性48.單擊滾動(dòng)條兩端的任一個(gè)滾動(dòng)箭頭，將觸發(fā)該滾動(dòng)條的 ( C ) 事件。A、Scroll B、KeyDown C、Change D、Dragover49.設(shè)置某子菜單項(xiàng)的Caption（標(biāo)題）屬性為“畫(huà)圖（&D）”，ShortCut（快捷鍵）屬性為“Ctrl+L”。啟動(dòng)工程時(shí)，下面 不會(huì)觸發(fā)該子菜單的Click事件。（ D ）A、打開(kāi)主菜單，按D鍵 B、直接按Ctrl+L 鍵C、用鼠標(biāo)單擊該子菜單項(xiàng) D、打開(kāi)主菜單，按Alt+D50.要改變控件的寬度，應(yīng)修改該控件的 ( C ) 屬性。A、Top B、Left C、Width D、Height51.順序文件有三種打開(kāi)方式，下面 種不是。（ A ）A、Random B、Input C、Output D、Append 52( C ) 對(duì)象不能作為控件的容器。A、Form B、PictureBox C、Shape D、Frame 53. 將命令按鈕Command1設(shè)置為不可見(jiàn)，應(yīng)修改命令按鈕的 ( A ) 屬性。A、Visible B、Value C、Caption D、Enabled54下列數(shù)據(jù)類型中，占用內(nèi)存最小的是( B ) 。A、Boolean B、Byte C、Integer D、Single55. ( D ) 對(duì)象具有Clear方法。A、圖片框 B、窗體 C、復(fù)選框 D、列表框56一個(gè)對(duì)象可以執(zhí)行的動(dòng)作和可被對(duì)象識(shí)別的動(dòng)作分別稱為( B ) 。A、事件、方法 B、方法、事件 C、屬性、方法 D、過(guò)程、事件57已知A、B、C中C最小，則判斷 A、B、C可否構(gòu)成三角形 3條邊長(zhǎng)的邏輯表達(dá)式是( B )。A、A=B And B=C And C0 B、ACB And BCA And C0C、(AB=C Or AC=C) And C0 D、ABC And ABC And C058.將通用 對(duì)話框CommonDialog1的類型設(shè)置成“另存為”對(duì)話框，可調(diào)用該控件的的 （ B ） 方法。A、ShowOpen B、ShowSave C、ShowColor D、ShowFont59下面( C )是日期型常量。A、“12/19/99” B、12/19/99 C、#12/19/99# D、12199960. 重新定義圖片框控件的坐標(biāo)系統(tǒng)，可采用該圖片框的 （ A ） 方法。A、Scale B、ScaleX C、ScaleY D、SetFocus 61_D_ 對(duì)象不具有Caption屬性。DA、Label B、Option C、Form D、Timer62Integer類型的變量可存的最大整數(shù)是( D ) 。A、255 B、256 C、32768 D、3276763要改變控件的寬度，應(yīng)修改該控件的( C )屬性。A、Top B、Left C、Width D、Height64.對(duì)于窗體級(jí)變量，以下說(shuō)法錯(cuò)誤的有： （ B ） A、所在窗體的各子程序都可以訪問(wèn) B、其他窗體的子程序不能訪問(wèn) C、所在窗體的子程序能訪問(wèn)用Private定義的窗體級(jí)變量 D、一定要在所在窗體的通用區(qū)內(nèi)定義65在窗體Forml的Click事件過(guò)程中有以下語(yǔ)句：（ C ）“Label1. Caption”“Visual Basic”若本語(yǔ)句執(zhí)行之前，標(biāo)簽控件的Caption屬性為默認(rèn)值，則標(biāo)簽控件的Name屬性和Caption屬性在執(zhí)行本語(yǔ)句之前的值分別為 。 A、“Label” 、 “Label” B、“Labei1” 、 “Visual Basic” C、“Label1” 、 “Label1” D、Caption 、 “Label”66. 下面關(guān)于變量的作用域和生存周期的描述正確的是( C )A、全局變量可在窗體的通用區(qū)內(nèi)定義 B、窗體級(jí)變量與靜態(tài)變量具有相同的作用域和生存周期C、同一過(guò)程中用“ Dim ”定義的局部變量和用“ Static ”定義的局部變量具有相同的作用域D、同一過(guò)程中用“ Dim ”定義的局部變量和用“ Static ”定義的局部變量具有相同的生存周期67一個(gè)菜單項(xiàng)是不是一個(gè)分隔條，由( B ) 屬性決定。A、Name（名稱） B、Caption CEnabled D、Visible68.Integer類型的變量可存的最大整數(shù)是 。（ D ） A、255 B、256 C、32768 D、3276769下面( B )對(duì)象在運(yùn)行時(shí)一定不可見(jiàn)。A、Line B、Timer C、Text D、Option70 形狀控件所顯示的圖形不可能是( D )。A、圓 B、橢圓 C、圓角正方形 D、等邊三角形 71以下( A )方式打開(kāi)的文件只能讀不能寫(xiě)。A、Input B、Output C、Random D、Append72. 對(duì)象不具有Caption屬性。（ D ）A、Label B、Option C、Form D、Timer73由 For k35 TO 0 Step 3： Next k 循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是( A ) A、0 B、12 C、-11 D、-1074.以下( A )方式打開(kāi)的文件只能讀不能寫(xiě)。A、Input B、Output C、Random D、Append75.由 For k35 TO 0 Step 3： Next k 循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是( A )A、0 B、12 C、-11 D、-1076.想要改變控件在窗體中的左右位置，可以修改該控件的( B )屬性。A、Top B、Left C、Width D、Right77.要在文件列表框中顯示不同類型的文件可以通過(guò)設(shè)置( A )屬性A、Pattern B、Path C、Filename D、ListIndex78.窗體的DrawWidth屬性值設(shè)置為大于1時(shí)，下列( C )屬性會(huì)失去作用A、Backcolor B、FillStyle C、Drawstyle D、Fillcolor79如果在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框的( A )屬性不會(huì)對(duì)該圓的外觀產(chǎn)生影響。A、Backcolor B、ForeColor C、DrawWidth D、Drawstyle80. 菜單編輯器中呈現(xiàn)以下?tīng)顟B(tài)，程序運(yùn)行后下列( D )操作無(wú)法執(zhí)行“復(fù)制”功能A、 打開(kāi)“編輯”菜單后按下“C”B、直接按下 Ctrl+C C、鼠標(biāo)單擊“復(fù)制”菜單項(xiàng)D、 “ Alt+E ”“ Alt+C ” 三填空題81VB的字符串運(yùn)算符有 _+_ 和 & 兩種,其中運(yùn)算符兩邊的表達(dá)式類型必須為字符型的運(yùn)算符是_&_ 。82. 設(shè)x=6,y=4,z=7,下面表達(dá)式的值是true _xy and yx-z or xz 83. 設(shè)n是一個(gè)自然數(shù)，那么求n的位數(shù)L的表達(dá)式可以是L= _ len(str(n)-1_。例如：若n=12345，則L=584. 在打開(kāi)某窗體時(shí)，初始化該窗體中的各控件，應(yīng)選用load事件。85滾動(dòng)條的當(dāng)前值用 _ value _表示。 86. 設(shè)x為大于零的實(shí)數(shù)，則大于x的最小奇數(shù)的Visual Basic表達(dá)式是(Int(x)+1)2)*2+l（或（Fix(x)+1）2）*2+1）。87. 在代碼設(shè)計(jì)中，為了給某控件的BackColor屬性賦一個(gè)顏色值，可以有三種方法獲得顏色，它們分別是QBColor()函數(shù)、顏色常數(shù)和_ RGB( ) 函數(shù)_。88. a1和a2之中有且只有一個(gè)與a3的值相等，相應(yīng)的Visual Basic邏輯表達(dá)式是a1=a3 Xor a2=a3（或a1=a3 And aa3 Or a1a3 And a2=a3） 。89. 以圖片框Picture1的中心為圓心，以1000為半徑在Picture1上畫(huà)一個(gè)圓的方法是 _ picture1.circle (picture1.width/2,picture1.height/2),1000_ 。90. 設(shè)init的初值為10 ，則由下列循環(huán)語(yǔ)句控制的循環(huán)次數(shù)是 6 。Do While init =5Init=init-1Loop91. 窗體的 Enabled屬性值為_(kāi) False _時(shí)，該窗體上的按鈕、文本框等控件就不會(huì)對(duì)用戶的操作做出反應(yīng)。92. 在Visual Basic中，變量從它的作用范圍來(lái)看?？煞譃槿肿兞俊⒛K級(jí)變量和局部變量3種。93Visual Basic提供了對(duì)文件的三種存取方式,分別是 _ Input _ 、_ output _ 和 _ Append _ 。 94. 8語(yǔ)句Picture1.Circle(800,1000),500的含義是以圖片框Picture1中的（800，1000）為圓心，以500為半徑畫(huà)一個(gè)圓。95.用Visual Basic開(kāi)發(fā)應(yīng)用程序的三步曲是：_界面設(shè)計(jì)_、_屬性設(shè)置_和_代碼設(shè)計(jì)_。 96在VB中,若要產(chǎn)生一消息框,則可用函數(shù)_ msgbox _ 來(lái)實(shí)現(xiàn)。 97.已知n為一個(gè)三位正整數(shù)，寫(xiě)出求n中十位數(shù)的Visual Basic表達(dá)式_(n10) mod 10_。98若要獲得用戶在驅(qū)動(dòng)器列表控件中所選擇的驅(qū)動(dòng)器,可通過(guò)訪問(wèn)該對(duì)象的_ Drive _ 屬性來(lái)實(shí)現(xiàn)。99. 表達(dá)式（4.82）*7 Mod 3.14的運(yùn)行結(jié)果是_2_。100. 目錄列表框（DirListBox）中，當(dāng)前文件夾對(duì)應(yīng)項(xiàng)目的ListIndex屬性值為_(kāi) -1 _。101利用Line方法可以畫(huà) _直線_ 、_矩形_ 和 _實(shí)心矩形_ 。102Visual Basic的菜單可分為 _下拉式_ 菜單和 _彈出式_ 菜單兩種。 103.在Visual Basic中，_文件列表框_和 _通用對(duì)對(duì)話框_控件具有Filename屬性。104在VB中,用于產(chǎn)生輸入對(duì)話框的函數(shù)是_ Inputbox _，其返回值類型為_(kāi)字符型_ ，若要利用該函數(shù)接收數(shù)值型的數(shù)據(jù)，則可利用_ Val _ 函數(shù)對(duì)其返回值進(jìn)行轉(zhuǎn)換而得到。 105.用PictureBox和Image控件裝載圖形圖像時(shí)，為了使圖形圖像與所在的控件大小相等，可以改變106.形狀的Shape屬性可以取_6_個(gè)值，分別代表各種不同的形狀。 107.如果在圖片框上使用繪圖方法繪制一個(gè)圓，則圖片框的_ Backcolor _屬性不會(huì)對(duì)該圓的外觀產(chǎn)生影響。PictureBox的_ stretch _ 屬性和Image的_ autosize _ 屬性。108 求與之積除以的余數(shù)，用 VB表達(dá)式為 _mod(a*b)/c) _ 。109. Visual Basic常見(jiàn)控件中可以作為其他控件容器的控件有_框架_ 和_圖片框_ 。110Visual Basic的菜單可在_菜單編輯器_中設(shè)計(jì)完成。若要使某項(xiàng)菜單在運(yùn)行時(shí)不可見(jiàn),可設(shè)置該菜單對(duì)象的_Visible _ 屬性為False來(lái)實(shí)現(xiàn)；若要使某項(xiàng)菜單在運(yùn)行時(shí)失效,則應(yīng)設(shè)置菜單項(xiàng)對(duì)象_ Enabled _屬性為False。111. 在代碼設(shè)計(jì)中，為了使定時(shí)器Timer1能處于關(guān)閉狀態(tài)，使系統(tǒng)不響應(yīng)它的Timer()事件，可以設(shè)置Timer1.Enabled=False 或_ timer1.Interval=0_。112. 表達(dá)式Chr(Asc(“R”)- Asc(“A”) +Asc(“a”)的值是_ r _。113Print Mid$(Str$(-1234),3，2)的結(jié)果為_(kāi)23_ 。程序閱讀題四、閱讀下列程序，寫(xiě)出運(yùn)行結(jié)果。1、 程序1Private Sub Command1_Click()Dim x As Integer, s As Integerx = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù)=)If x ia = a + xx = x + 3LoopEnd Sub寫(xiě)出程序運(yùn)行時(shí)連續(xù)3次單擊Command1后，a1.dat文件的最終結(jié)果。程序閱讀題答案 ：1. s=5s=10s=402. w=3 k=2w=4 k=4w=5 k=6w=6 k=83. LHFDB 4. y=5 a=5y=15 a=10y=30 a=15 五.程序填空題仔細(xì)閱讀下列各小題的程序說(shuō)明和相應(yīng)的程序，在每小題提供的若干可選答案中，挑選一個(gè)正確答案。1. 【程序說(shuō)明】本程序求3100之間的所有素?cái)?shù)（質(zhì)數(shù)）并統(tǒng)計(jì)個(gè)數(shù)，同時(shí)將這些素?cái)?shù)從小到大依次寫(xiě)入順序文件 e：dataout.txt，素?cái)?shù)的個(gè)數(shù)顯示在窗體Form1上?！境绦颉縋rivate Sub Command1_Click()Dim count As Integer, flag As BooleanDim ti As Integer, t2 As Integer（1）count = 0For ti = 3 To 100flag = TrueFor t2 = 2 To Int(Sqr(t1)If （2） Then flag FalseNext t2（3）count = count + 1Write #1, t1End IfNext t1（4） Close #1End Sub（1）A、Open e:dataout.txt For Output As #1B、Open e:dataout.txt For Input As #1C、Open e:dataout.txt For Output As #2 D、Open e:dataout.txt For Output As #1(2) A、t2t1=0 B、t1 Mod t2=0 C、t1t2=0 D、t2 Mod t1=0（3）A、If flag Then B、If t2t1 ThenC、If t1t2 Then D、If t2int(sqr(t1) Then(4) A、 Forml.Print素?cái)?shù)個(gè)數(shù)： ; count B、 Print #l 素?cái)?shù)個(gè)數(shù)：;CountC、 Form1.Print素?cái)?shù)個(gè)數(shù)：； count D、 Form1.Print素?cái)?shù)個(gè)數(shù)： Count2. 程序說(shuō)明由輸入對(duì)話框輸入n（設(shè)n為大于零且小于30的自然數(shù)），計(jì)算下列表達(dá)式并在標(biāo)簽框Label1上顯示。/(*2)+1/(2*3)+1/(3*4)+1/(n*(n+1)【程序】Private Sub Form_Click()Dim n As Integer, sum As Double, k As IntegerDo （5）n = Val(InputBox(n=, 請(qǐng)重輸)Loopsum = 0（6）Dok = k + 1sum= （7）Loop Until k = nLabel1.Caption = Sum + Str(sum)End Sub(5) A、While n=30 B、While n=30C、Until n0 Or n =0 and n Len(Str1)/2 D、Until m A And （5） ) Or (Ch a And Ch z) ThenSt2 = St2 + ChEnd IfNext iText1.Text = （6） End Sub3. 下面的程序完成以下功能：窗體上有兩個(gè)命令按鈕“產(chǎn)生”（Command1）和“排序”（Command2）。單擊“產(chǎn)生”按鈕時(shí)，隨機(jī)產(chǎn)生10個(gè)1，20范圍內(nèi)的整數(shù)放在數(shù)組A中，并在窗體上輸出。單擊“排序”按鈕時(shí)，用選擇法排序這10個(gè)數(shù)并輸出。Dim A(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerRandomizePrint 排序前的數(shù)列：For i = 1 To 10A(i) = （7） Print Str(A(i) + ;Next iPrintEnd SubPrivate Sub Command2_Click()Dim i, j, Min, Temp As IntegerPrintPrint 選擇排序后的數(shù)列：For i = 1 To 9Min = A(i)For j = （8） To 10If A(j) Min ThenTemp = A(j)A(j) = （9） Min = TempEnd IfNext jA(i) = Min（10） For i = 1 To 10Print Str(A(i) + ;Next iPrintEnd Sub程序填空題答案 ：(1) n*Jc(n-1) (2) result (3) string (4) len(str) (5) ch=0. 00000001八、1. 分別寫(xiě)出下面兩段程序執(zhí)行三次后的結(jié)果。Private Sub Form_Click()Dim i As IntegerStatic j As Integerj = j + 1i = i + 1Print i=; Str(i), j=; Str(j)End SubDim i, j As IntegerPrivate Sub Form_Click()j = j + 1i = i + 1Print i=; Str(i), j=; Str(j)End Sub參考答案：1左:右:I=1j=1I=1j=1I=1j=2I=2j=2I=1j=3I=3j=3九. 寫(xiě)出下面程序執(zhí)行后的結(jié)果（其中在Form_Click()事件中調(diào)用了子過(guò)程Proc）。Private Sub Form_Click()Dim x, y As IntegerDim u, v As Integerx = 1y = 2u = 3Proc x, yu = u + x + yPrint x=; Str(x), y=; Str(y), u=; Str(u)End Sub Private Sub Proc(ByVal a As Integer, ByRef b As Integer)Dim u As Integera = a + 1b = b + 1u = u + a + bPrint a=; Str(a), b=; Str(b), u=; Str(u)End Sub程序閱讀題答案： 2a=2b=3u=5x=1y=3y=5十用輸入對(duì)話框輸入x，根據(jù)下式計(jì)算對(duì)應(yīng)的y，并在窗體上輸出y的值。注：程序?qū)懺诿畎粹oCommandl的Click事件中。答案程序如下： Private Sub Command1_Click() Dim x As Single x = Val(InputBox(x=, 請(qǐng)輸入數(shù)據(jù)) Select Case x Cas