南華大學(xué)2016年vb2試卷

1、南華大學(xué)大學(xué)計(jì)算機(jī)與程序設(shè)計(jì)（VB）2一、選擇題1語句Dim a%(1 to 8)定義的數(shù)組元素有()個(gè)。 A1 B7 C8 D92語句Dim arr(3 To 5，2 To 6)As Integer定義的數(shù)組有()個(gè)元素。 A40 B45 C11 D544一個(gè)二維數(shù)組可以存放一個(gè)矩陣。在程序開始有語句Option Base 0，則下面定義的數(shù)組中正好可以存放一個(gè)4*3矩陣(即只有12個(gè)元素)的是()。 ADim a(2 To 0，2)As Integer BDim a(3，2)As Integer CDim a(4，3)As Integer DDim a(1 To 4，1 To 3)As I

2、nteger5設(shè)有數(shù)組說明語句：Dim c(1 To 10)，變量i的值為5，則下面表示數(shù)組c的元素的選項(xiàng)中()是錯(cuò)誤的。 Ac(i1) Bc(50.5) Cc(0) Dc(10)7在窗體的通用聲明處有語句Dim A()，以下在某事件過程中重定義此數(shù)組的一組正確語句是()。 AReDim A(3，3) BReDim A(3，3) ReDim A(4，4)As Integer ReDim Preserve A(4，4) CReDim A(3) DReDim A(3，3) ReDim A(3，3) ReDim Preserve A(3，4)9設(shè)有如下程序段 Dim a(10) For Each x

3、 In a Print x; Next x 在上面的程序段中，變量x必須是()。 A整型變量 B變體型變量 C動(dòng)態(tài)數(shù)組 D靜態(tài)數(shù)組 11窗體上有 Command1、Command2 兩個(gè)命令按鈕?，F(xiàn)編寫以下程序： Option Base 0 Dim a()As Integer，m As Integer Private Sub Command1_Click( ) mInputBox(請(qǐng)輸入一個(gè)正整數(shù))ReDim a(m)As Integer End Sub Private Sub Command2_Click( )mInputBox(請(qǐng)輸入一個(gè)正整數(shù))ReDim a(m)As Integer E

4、nd Sub 運(yùn)行程序，單擊Command1后輸入10，再單擊 Command2后輸入5，則數(shù)組a中元素的個(gè)數(shù)是()。 A5 B6 C10 D11 12下面選項(xiàng)中，錯(cuò)誤的是()。 ADim s As Variant ：s Array(one ， two ， three ) BDim b：bArray(1，2，3) CDim b As Integer：bArray(1，2，3) DDim b()：bArray(1，2，3)14以下有關(guān)控件數(shù)組的說法中錯(cuò)誤的是()。 A控件數(shù)組由一組具有共同名稱和相同類型的控件組成 B控件數(shù)組中的每一個(gè)控件共享同樣的事件過程 C控件數(shù)組中的每個(gè)元素的下標(biāo)由控件的I

5、ndex屬性指定 D控件數(shù)組中的元素只能有相同的屬性設(shè)置值15在窗體上畫3個(gè)單選按鈕，組成一個(gè)名為chkOption的控件數(shù)組。用于標(biāo)識(shí)各個(gè)控件數(shù)組元素的參數(shù)是()。 ATag BIndex CListIndex DName 16在Form1窗體上有一個(gè)命令按鈕構(gòu)成的控件數(shù)組，控件數(shù)組名為Command1，控件數(shù)組的Caption屬性是按數(shù)組元素索引順序排列的。運(yùn)行后單擊命令按鈕，能在窗體上輸出被單擊命令按鈕的索引號(hào)和Caption屬性值的是()。 APrivate Sub Command1_Click (Index As Integer) Print Index; Command1(Inde

6、x)Caption End Sub BPrivate Sub Command1_Click (Index As Integer) Print Command1.Index; Command1(Index)Caption End Sub CPrivate Sub Command1_Click (Index As Integer) Print Command1.Index; Command1.Index.Caption End Sub DPrivate Sub Command1_Click (Index As Integer) Print Command1(Index); Command1(Ind

7、ex)Caption End Sub18下面程序的輸出結(jié)果是()。Dim aa Array(1，2，3，4，5，6，7)For i Lbound(a)to Ubound(a)a(i) a(i)* a(i)Next iPrint a(i) A36 B程序出錯(cuò)(下標(biāo)越界) C49 D不確定19執(zhí)行以下命令按鈕的Click事件過程，在窗體上顯示()。Private Sub Command1_Click()Dim aa Array(a，b，c，d，e，f，g)Print a(1)；a(3)；a(5)End Sub Aa b c Bb d f Ca c e D出錯(cuò) 20有如下程序：Const N5 Co

8、nst M6Dim a(N To M)As IntegerFor iLBound(a)To UBound(a)a(i) iNext iPrint a(LBound(a)；a(UBound(a)運(yùn)行后，輸出結(jié)果為()。 A00 B50 C56 D06 22下列程序段的執(zhí)行結(jié)果為()。Dim A(10)As Integer，B(5)As IntegerFor i 1 To 10A(i) iNext iFor j 1 To 5B(j) j * 20Next jA(5) B(2)Print A(5)；A(5) AA(5)5 BA(5)10 CA(5)20 DA(5)40 23在窗體上畫一個(gè)名稱為Tex

9、t1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim arr1(10，10)As IntegerDim i As Integer，j As IntegerFor i 1 To 3For j 2 To 4arr1(i，j) i jNext jNext iText1.Textarr1(2，3)arr1(3，4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值()。 A12 B13 C14 D15 27某人編寫了如下程序，用來求10個(gè)整數(shù)(整數(shù)從鍵盤輸入)中的最大值：Private Sub Command1

10、_Click()Dim a(10)As Integer，max As IntegerFor k1 To 10a(k)InputBox(輸入一個(gè)整數(shù))Next kmax0For k1 To 10If a(k)>max ThenMaxa(k)End IfNext kPrint maxEnd Sub運(yùn)行程序時(shí)發(fā)現(xiàn)，當(dāng)輸入10個(gè)正數(shù)時(shí)，可以得到正確結(jié)果，但輸入10個(gè)負(fù)數(shù)時(shí)結(jié)果是錯(cuò)誤的，程序需要修改，下面的修改中可以得到正確運(yùn)行結(jié)果的是()。 A把If a(k)>max Then改為If a(k)<max Then B把maxa(k)改為a(k)max C把第2個(gè)循環(huán)語句For k1

11、To 10改為For k2 To 10 D把max0改為maxa(10)31在窗體中添加一個(gè)命令按鈕，名稱為Command1，然后編寫如下程序： Private Sub Command1_Click()Dim a%(5)，b%(5)For j 1 to 4 a(j)3*j b(j)a(j)*3 Next j Text1.Textb(j2)End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示()。 A25 B18 C36 D35 33在窗體上面畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()Dim aa Array(1，2，3，4)j 1For

12、 i 3 To 0 Step 1s s a(i)* jj j * 10Next iPrint sEnd Sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是()。 A4321 B12 C34 D123434已知在4行3列的全局?jǐn)?shù)組score(4，3)中存放了4個(gè)學(xué)生3門課程的考試成績(jī)(均為整數(shù))?，F(xiàn)需要計(jì)算每個(gè)學(xué)生的總分，某人編寫程序如下：Option Base 1Private Sub Command1_Click()Dim sum As Integersum0 For i1 To 4 For j1 To 3sum sum score(i，j)Next jPrint第 & i &

13、 個(gè)學(xué)生的總分是：；sumNext iEnd Sub運(yùn)行此程序時(shí)發(fā)現(xiàn)，除第1個(gè)人的總分計(jì)算正確外，其他人的總分是錯(cuò)誤的。程序需要修改。以下修改方案中正確的是()。 A把外層循環(huán)語句For i1 To 4改為For i1 To 3 內(nèi)層循環(huán)語句For j1 To 3 改為For j1 To 4 B把sum0移到For i1 To 4 和For j1 To 3之間 C把sumsumscore(i，j)改為sumsumscore(j，i) D把sumsumscore(i，j)改為sumscore(i，j)36下列程序Option Base 1Private Sub Form_Click()Dim a

14、(5，5)For i 1 To 5For j 1 To 5k k 1a (i，j) k Next jNext iFor i 1 To 5s s a (i，i)Next iPrint sEnd Sub 運(yùn)行時(shí)的輸出結(jié)果是( )。 A15 B55 C65 D8542有如下程序：Dim a(3，3)As IntegerFor m 1 To 3For n 1 To 3a(m，n)(m1)*3nNext n Next mFor m 2 To 3For n 1 To 2Print a(n，m)；Next nNext m運(yùn)行后，輸出結(jié)果是()。 A2 5 3 6 B2 3 5 6 C4 7 5 8 D4 5

15、 7 8 45窗體上有一個(gè)名為Cb1的組合框，程序運(yùn)行后，為了輸出選中的列表項(xiàng)，應(yīng)使用的語句是()。 APrint CB1.Selected BPrint CB1.List(Cb1.ListIndex) CPrint CB1.Selected.Text DPrint CB1.List(ListIndex)46使用()方法，可清除列表框中所有的列表項(xiàng)。 ARemove BClear CCls DMove47若組合框Cb1中有3個(gè)項(xiàng)目，則以下能刪除其最后一項(xiàng)的是()。 ACB1.RemoveItem Text BCB1.RemoveItem 2 CCB1.RemoveItem 3 DCB1.Rem

16、oveItem Cb1.Listcount48窗體如圖2(a)所示。要求程序運(yùn)行時(shí)，在文本框 Text1 中輸入一個(gè)姓氏，單擊“刪除”按鈕，可刪除列表框 List1中所有該姓氏的項(xiàng)目。程序如下：Private Sub Commandl_Click()Dim n%，k% nLen(Text1.Text)For k0 To List1.ListCount1 If Left(List1.List(k)，n)Text1.Text Then List1.RemoveItem k End If Next k End Sub 圖2在調(diào)試時(shí)發(fā)現(xiàn)，如輸入“陳”，可以正確刪除所有姓“陳”的項(xiàng)目，但輸入“劉”，則只

17、刪除了“劉邦”、“劉備”2 項(xiàng)，結(jié)果如圖2(b)所示。說明程序不能適應(yīng)所有情況，需要修改。正確的修改方案是把 For k0 To List1.ListCount 1 改為()。 AFor kList1.ListCount 1 To 0 Step 1 BFor k0 To List1.ListCount CFor k1 To List1.ListCount l DFor k1 To List1.ListCount 49下面的程序執(zhí)行完后，組合框中數(shù)據(jù)項(xiàng)的值是()。Private Sub Form_Click()For i1 to 6Combo1.AddItem iNextFor i1 to 3C

18、ombo1.RemoveItem iNextEnd Sub A1 5 6 B1 3 5 C4 5 6 D2 4 650在窗體上有一個(gè)名為L(zhǎng)ist1列表框和一個(gè)名為Command1的命令按鈕，并編寫有如下事件過程：Private Sub Command1_Click()List1.List(List1.ListCount) ItemNewEnd SubPrivate Sub Form_Load()List1.AddItem Item1List1.AddItem Item2List1.AddItem Item3End Sub程序執(zhí)行后，單擊命令按鈕，其結(jié)果為()。 A把字符串“ItemNew”添加

19、到列表框中，但位置不確定 B把列表框中原有的最后一項(xiàng)改為“ItemNew” C把字符串“ItemNew”添加到列表框的最后 D把字符串“ItemNew”插入到列表框的最前面2Sub過程與 Function過程最根本的區(qū)別是()。 ASub過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以 BSub過程的過程名不能返回值，而Function過程能夠通過過程名返回值 C兩種過程參數(shù)的傳遞方式不同 DFunction過程可以有參數(shù)，Sub過程不可以 3()關(guān)鍵字聲明的局部變量在整個(gè)程序運(yùn)行中一直存在。 ADim BPublic CStatic DPrivate 4程序的不同過

20、程之間，不能通過()進(jìn)行數(shù)據(jù)傳遞。用全局變量 窗體或模塊級(jí)變量將形參與實(shí)參結(jié)合 靜態(tài)變量 A B C D6設(shè)有以下函數(shù)過程 Private Function Fun(a()As Integer，b As String)As Integer End Function 若已有變量聲明： Dim x(5)As Integer，n As Integer，ch As String 則下面正確的過程調(diào)用語句是()。 Ax(0) Fun(x，ch) Bn Fun(n，ch) CCall Fun x，ch Dn Fun(x(5)，ch)7在窗體Form1 中用“Public Sub Fun (x As Int

21、eger，y As Single)”定義過程 Fun ，在窗體 Form2 中定義了變量i 為Integer ，j 為Single ，若要在 Form2的某事件過程中調(diào)用 Form1中的Fun 過程，則下列調(diào)用語句中正確的有()個(gè)。Call Fun(i，j) Call Form1.Fun(i，j)Form1.Fun i，j Form1.Fun 2*(i1)，j2 A1 B2 C3 D48一個(gè)工程中包含兩個(gè)名稱分別為Form1、Form2的窗體、一個(gè)名稱為Func的標(biāo)準(zhǔn)模塊。假定在Form1、Form2和Func中分別建立了自定義過程，其定義格式為：Form1中定義的過程：Private Sub

22、 Fun1( ) End Sub Form2中定義的過程：Private Sub Fun2( )End Sub Func中定義的過程： Private Sub Fun3( )End Sub 在調(diào)用上述過程的程序中，如果不指明窗體或模塊的名稱，則以下敘述中正確的是()。 A上述3個(gè)過程都可以在工程中的任何窗體或模塊中被調(diào)用 BFun1和Fun2過程能夠在工程中各個(gè)窗體或模塊中被調(diào)用 C上述3個(gè)過程都只能在各自被定義的模塊中調(diào)用 D只有Fun3過程能夠被工程中各窗體或模塊調(diào)用 10假定有以下函數(shù)過程： Function Fun(S As String)As String Dim s1 As Str

23、ing For i 1 To Len(S)s1 UCase(Mid(S，i，1) s1 Next i Fun s1 End Function 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click()Dim Str1 As String，Str2 As String Str1 InputBox(請(qǐng)輸入一個(gè)字符串)Str2 Fun(Str1)Print Str2 End Sub 程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上的輸出結(jié)果為()。 Aabcdefg BABCDEFG Cgfedcba

24、 DGFEDCBA 14下列程序：Private Sub Form_Click ()Dim a As IntegerFor i1 To 10Call abcd(a)Next iPrint aEnd SubSub abcd (x)xx1End Sub運(yùn)行后，輸出的結(jié)果是()。 A1 B1 2 3 4 5 6 7 8 9 10 C10 D顯示出錯(cuò)信息16窗體上有一個(gè)名為Command1的命令按鈕，并有如下程序：Private Sub Command1_Click()Dim a As Integer，b As Integera 8b 12Print Fun(a，b); a; bEnd SubPriv

25、ate Function Fun(ByVal a As Integer，b As Integer)As Integera a Mod 5b b 5Fun aEnd Function程序運(yùn)行時(shí)，單擊命令按鈕，則輸出結(jié)果是()。 A3 3 2 B3 8 2 C8 8 12 D3 8 1219在通用聲明中定義a，在窗體中添加一個(gè)命令按鈕Command1，編寫如下程序代碼： Dim a As Integer Sub test()a a 1: b b 1: c c 1 Print Sub: ；a；b；c End Sub Private Sub Command1_Click()a 2b 3c 4 Call

26、 test Call test End Sub 程序運(yùn)行后，單擊命令按鈕，窗體中將顯示()。 ASub：3，4，5 BSub：2，3，4 Sub：4，5，6 Sub：2，3，4 CSub：3，1，1 DSub：1，1，1 Sub：4，1，1 Sub：1，1，1 21設(shè)有如下程序： Private Static Function fac(n As Integer)As Integer Dim f As Integer f f n fac f End Function Private Sub Form_Click()Dim i As Integer For i 2 To 3 Print #； I;

27、 & fac(i)Next i End Sub 程序運(yùn)行后，單擊窗體，在窗體上顯示的是()。 A#22 B#22 C#；22 D#；22 #33 #35 #；33 #；35 22下列程序：Private Sub Form_Click()a 3 : b 4Call cacl (a，b)Print a，bEnd SubPublic Sub cacl (x，byval y)x x y : y y xEnd Sub運(yùn)行時(shí)輸出的結(jié)果是()。 A34 B311 C711 D7423下列程序：Private Sub Form_Click ()a 3 : b 4For i 1 To 2y cacl (

28、a，b)Next i Print yEnd SubPublic Static Function cacl (x，y)a a 1 cacl (x 2 Sqr (y) aEnd Function第一次單擊窗體后，輸出的結(jié)果是()。 A11 B12 C13 D144在窗體上有1 個(gè)名為Cd1 的通用對(duì)話框，為了在運(yùn)行程序時(shí)打開保存文件對(duì)話框，則在程序中應(yīng)使用的語句是()。 ACd1.Action2 BCd1.Action1 CCd1.ShowSaveTrue DCd1.ShowSave08在窗體上畫一個(gè)通用對(duì)話框，其名稱為CommonDialog1，然后畫一個(gè)命令按鈕，并編寫下列事件過程：Priva

29、te Sub Command1_Click( )CommonDialog1.FilterAll Files|*.*|Text Files |*.txt|Executable Files|*.exeCommonDialog1.FilterIndex3CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序運(yùn)行后，單擊命令按鈕，將顯示一個(gè)“打開”對(duì)話框，此時(shí)在“文件類型”框中顯示的是()。 AAll Files BText Files CExecutble Files D不確定3下列關(guān)于文件的敘述中錯(cuò)誤的是()。 A使用Append

30、方式打開文件時(shí)，文件指針被定位于文件尾 B當(dāng)以輸入方式(Input)打開文件時(shí)，如果文件不存在，則建立一個(gè)新文件 C順序文件各記錄的長(zhǎng)度可以不同 D隨機(jī)文件打開后，既可以進(jìn)行讀操作，也可以進(jìn)行寫操作4設(shè)有語句：OpenD：Test.txt For Output As #1，下列敘述中錯(cuò)誤的是()。 A若D盤根目錄下無Test.txt 文件，則該語句創(chuàng)建此文件 B用該語句建立的文件的文件號(hào)為1 C該語句打開D盤根目錄下一個(gè)已存在的文件Test.txt，之后就可以從文件中讀取信息 D執(zhí)行該語句后，就可以通過Print #語句向文件Test.txt 中寫入信息5下列敘述中錯(cuò)誤的是()。 A順序文件中

31、的數(shù)據(jù)只能按順序讀寫 B對(duì)同一個(gè)文件，可以用不同的方式和不同的文件號(hào)打開 C執(zhí)行Close 語句，可將文件緩沖區(qū)中的數(shù)據(jù)寫到文件中 D隨機(jī)文件中各記錄的長(zhǎng)度是隨機(jī)的6下列關(guān)于文件的敘述中錯(cuò)誤的是()。 A隨機(jī)文件中各條記錄的長(zhǎng)度是相同的 B打開隨機(jī)文件時(shí)采用的文件存取方式應(yīng)該是Random C向隨機(jī)文件中寫數(shù)據(jù)應(yīng)使用語句Print #文件號(hào) D打開隨機(jī)文件與打開順序文件一樣，都使用Open 語句8假定用下面的語句打開文件：Open File1.Txt For Input As #l則不能正確讀文件的語句是()。 AInput #1，ch$ BLine Input #1，ch$ Cch$ Inp

32、ut$(5，#1) Dread #1，ch$9設(shè)有打開文件的語句如下：Open text.dat For Random As #1要求把變量a中的數(shù)據(jù)保存到該文件中，應(yīng)該使用的語句是()。 AInput #1，a BWrite #1，a CPut #1，a DGet #1，a10向存有數(shù)據(jù)的C：testtest.txt文件添加數(shù)據(jù)，正確的文件打開命令是()。 AOpen C：testtest.txt For Append As #512 BOpen C：testtest.txt For Append As #511 COpen C：testtest.txt For Output As #512

33、 DOpen C：testtest.txt For Output As #51111下列說法()是不正確的。 A當(dāng)程序正常結(jié)束時(shí)，所有沒用Close語句關(guān)閉的文件都會(huì)自動(dòng)關(guān)閉 B在關(guān)閉文件或程序結(jié)束之前，可以不用Unlock語句對(duì)已鎖定的記錄解鎖 C隨機(jī)文件就是隨機(jī)生成的文件 D用Output模式打開一個(gè)順序文件，即使不對(duì)它進(jìn)行寫操作，原來內(nèi)容也被清除12設(shè)有語句open“C：Test.Dat” For OutPut As #1，則以下錯(cuò)誤的敘述是()。 A該語句只能打開C盤根目錄下一個(gè)已存在的文件Test.Dat B該語句可在C盤根目錄下建立一個(gè)名為Test.Dat的文件 C該語句建立的文件

34、的文件號(hào)為1 D執(zhí)行該語句后，就可以通過Print #語句向文件Test.Dat中寫入信息二、填空題1用Dim abc(5，5)As Integer定義的數(shù)組abc的元素個(gè)數(shù)是【1】。2列表框的項(xiàng)目?jī)?nèi)容存在于列表框的【2】List數(shù)組中。3清除列表框的某一個(gè)列表項(xiàng)使用的方法是【3】。4給定程序其功能是：建立并打印除主、副對(duì)角線上的元素為1外，其余元素都為0的方陣。請(qǐng)?zhí)羁铡ption Base 1Private Sub Command1_Click ()Dim A(10，10)For I1 To 10For J1 To 10If【4】 Then A(I，J)1 Else A(I，J)0Next

35、 JNext IFor I1 To 10For J1 To 10圖3Print A(I，J)；Next J【5】Next IEnd Sub5下面的程序代碼執(zhí)行之后，輸出如圖3所示結(jié)果，請(qǐng)?zhí)羁?。Option Base 1Private Sub Command1_Click()Dim x(3，3)For i1 to 3For j1 to 3If 【6】 Then x(i，j)1If 【7】 Then x(i，j)1Next jNext iFor i1 to 3For j1 to 3Print x(i，j)；Next j【8】Next iEnd Sub6以下程序的功能是由隨機(jī)函數(shù)產(chǎn)生100個(gè)在100

36、600間的整數(shù)，然后找出其中最大者，并記下是第幾個(gè)數(shù)。請(qǐng)?zhí)羁?。Private Sub Form_Click( )Dim a(1 to 100)As IntegerFor j 1 To 100a(j)Int(501*Rnd 100)Print a(j)；Next jPrintP 1Max 【9】For j 2 To 100If a(j)>Max ThenMaxa(j)P 【10】End IfNext jPrint 最大值是：；MaxPrint 最大值的下標(biāo)是：； PEnd Sub12以下程序的功能是根據(jù)公式S11/31/51/71/(2n1)計(jì)算有效項(xiàng)之和，但程序不完整，請(qǐng)?jiān)凇?】【2】處

37、選擇適當(dāng)選項(xiàng)。Private Sub Form_Click ()Dim n As Integern Val (InputBox(請(qǐng)輸入項(xiàng)數(shù))Print fun(n)End SubPrivate Function fun(n As Integer)s 0f 1For i 0 To nf 1 *fw 【1】s s wNext【2】sEnd Function8學(xué)校N個(gè)學(xué)生，年齡在1825之間，程序的功能是統(tǒng)計(jì)各年齡的學(xué)生人數(shù)。請(qǐng)?zhí)羁?。Private Sub Form_Click( )Dim age As IntegerDim a(18 To 25)As IntegerFor i 18 To 25a(

38、i)0Next inVal(InputBox(請(qǐng)輸入學(xué)生人數(shù))For i 1 To nage InputBox(請(qǐng)輸入學(xué)生年齡)【13】Next i For i 【14】Print a(i)Next iEnd Sub12如圖6所示，在4個(gè)文本框中各輸入一個(gè)整數(shù)，然后單擊“按升序排序”按鈕，即可使數(shù)組按升序排序，并在文本框中顯示出來。請(qǐng)?zhí)羁铡D6Option Base 1Private Sub Command1_Click()Dim aDim Start As Integer，F(xiàn)inish As Integer，i%，j%，t%a Array(Val(Text1)，Val(Text2)，Val(

39、Text3)，Val(Text4)Start Lbound(a)Finish 【25】For i 1 To Finish1For j 1 To 【26】If a(j)【27】 a(j1)Thent a(j1)a(j1) a(j)a(j) tEnd IfNext jNext iText1.Text a(1)Text2.Text a(2)Text3.Text a(3)Text4.Text a(4)End Sub14以下是一個(gè)比賽評(píng)分程序。在窗體上建立一個(gè)名為Text1的文本框數(shù)組，然后畫一個(gè)名為Text2的文本框和名為Command1的命令按鈕。運(yùn)行時(shí)在文本框數(shù)組中輸入7個(gè)分?jǐn)?shù)，單擊“計(jì)算得分”命

40、令按鈕，則最后得分顯示在Text2文本框中(去掉一個(gè)最高分和一個(gè)最低分后的平均分即為最后得分)。請(qǐng)?zhí)羁?。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single，max As Single，min As Singlesum Text1(0)max Text1(0)min 【30】text1(0) For k 【31】1 To 6If max < Text1(k)Thenmax Text1(k)End IfIf min > Text1(k)Thenmin Text1(k)End Ifsum sum Text1(k)N

41、ext kText2 ( 【32】sum-max-min )/5End Sub15下面程序段是將列表框List1中重復(fù)的項(xiàng)目刪除，只保留一項(xiàng)。請(qǐng)?zhí)羁?。For i0 To List1.ListCount1For jList1.ListCount1 To 【33】List1.ListCount Step 1If List1.List(i)List1.List(j)Then【34】End IfNext jNext i 1在窗體畫一個(gè)命令按鈕，然后編寫如下過程：Function fun(ByVal num As Long)As LongDim k As Longk1numAbs(num)Do Whil

42、e numkk*(num Mod 10)numnum10LoopfunkEnd FunctionPrivate Sub Command1_Click()Dim n As LongDim r As LongnInputBox(請(qǐng)輸入一個(gè)數(shù))nCLng(n)rfun(n)Print rEnd Sub程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中輸入234，輸出結(jié)果為【1】24。3下列程序：Private Sub Form_Click ()k 5m 1p func(k，m)p func(k，m)Print pEnd SubPrivate Static Function func (a，b)As IntegerDim m As Integer，i As IntegerIf m 0 Then m m 1i m 1m i a bfunc mEnd Function運(yùn)行后的結(jié)果是【4】15。4設(shè)有如下程序： Private Sub Form_Click()Dim a As Integer，b As inte