《國(guó)二 綜合應(yīng)用題》由會(huì)員分享，可在線閱讀，更多相關(guān)《國(guó)二 綜合應(yīng)用題（18頁珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、第１套(綜合應(yīng)用題） 以下數(shù)列：1,1，2，３,５，８,13…從第三個(gè)數(shù)開始，每個(gè)數(shù)都是前兩個(gè)數(shù)之和.選中一個(gè)單選按鈕后，單擊“計(jì)算”按鈕，算出數(shù)列的第n項(xiàng)的值，n為選中單選按鈕后面的數(shù). Pｒivate　Sｕｂ?。胦mmａnd1_Click（） 　 　Ｄｉm a（） Ａs?。蘯ng 　Dim i Ａs Intｅｇeｒ Diｍ　n As　Integeｒ Fｏr i ＝ 0 To Op１.Count －　1 　 　 　Ｉf Op1(ｉ).Vaｌｕe?。?Truｅ　Theｎ 　 n = Val(Op1（ｉ）.Caption）

2、 Exit Foｒ 　　 　 End?。蒮 　 Nｅxt RｅＤｉm a（n） 　 a（１) = １ a(２） =　1 Ｆｏr ｉ　= 3 To ｎ 　　 a（i） ＝ a（i — 1） + ａ（i - 2） 　Nｅxt 　　 Text1。Ｔｅｘt =?。?n) End Sub 第２套（綜合應(yīng)用題） 從文件中讀?。?個(gè)數(shù)據(jù),統(tǒng)計(jì)數(shù)據(jù)中素?cái)?shù)的個(gè)數(shù).并找出所有素?cái)?shù)中的最小素?cái)?shù)，將結(jié)果顯示在標(biāo)簽Lａｂeｌ3和Lａbel４中。 Dim a As Inｔegｅr Ｄiｍ　b As Inｔege

3、r 　　　a?。?0 　　 　b =　arｒ（1) 　 For　i =?。?Ｔo　40 　 If 　priｍe(arｒ(i)) Ｔhｅn a = a?。? 　 　 ptｉｏn　＝ ａ Nexｔ Ｆor ｉ = 1 To 4０ 　　 Ｉf ｐｒimｅ（aｒr（i)） And　arr(ｉ)　<= ｂ　 Ｔhen b　= arr（ｉ） 　 ption ＝ ｂ 　 Ｎｅｘt 第4套（綜合應(yīng)用題） 窗體上有兩文本框,三個(gè)命令按鈕“讀取”“排序”“存盤”.“讀取"按鈕的功能是將文件中得5０個(gè)整數(shù)讀到數(shù)

4、組中，并在texｔ1中顯示,“排序”按鈕是將其按升序排列，顯示在Ｔeｘｔ２中,“存盤”按鈕是把排好序的數(shù)存入文件中. 答案:第1處?填：a(ｋ）　 　　 第2處？填:cｈ ”排序"按鈕的代碼 Privaｔe Sub C2_Ｃlick(） 　 Dim t As Iｎｔegeｒ 　 Dim i As Iｎtegｅr Dim ｊ　Ａs Integer 　 Dim ｃｈ　As Sｔriｎｇ cｈ = "” Ｆoｒ　i =　50 Tｏ ２ Sｔｅp －1 For ｊ　= 1　To 4９ 　 　 If ａ(j) 〉

5、 a(j + 1） Theｎ 　 　 　 　　 　 t　= ａ（j +　1) 　 　 a(ｊ +　1） = a（j） 　 　 　 　 a(j) = t 　 　　　 　Enｄ Ｉf 　 Next　j 　　　　Next i 　　　Fｏr　j = 1 To　5０ 　 　 ch ＝ cｈ　+ Str（a(j）) ＋ ＂＂ 　Ｎｅxｔ ｊ Tｅｘt2.Ｔext　=　ch Eｎd Suｂ 第5套?。ňC合應(yīng)用題） 在窗體上建立三個(gè)菜單,標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出”“存盤"。如果執(zhí)

6、行“讀入數(shù)據(jù)”命令,則讀入文件中的1０0個(gè)整數(shù)，放入一個(gè)數(shù)組中，如果單擊“計(jì)算并輸出”，則把數(shù)組中下標(biāo)為偶數(shù)的元素在文本框中顯示出來,計(jì)算和并在窗體上顯示. Dｉm sum Aｓ　Inｔeger Private Sub Cａｌc_Click() 　　Tｅｘｔ1.Tｅxt　= "” 　 Fｏｒ?。?= ２　To 10０ Sｔep 2 　 　Teｘt1.Texｔ = Tｅｘt1.Teｘt & Arr（i) ＆ Ｓpace(5) 　 sum = ｓum +?。羠ｒ（i） 　　 Next　i 　　　 Ｐrinｔ sｕｍ End Suｂ Privatｅ

7、 Sｕｂ Read_Clicｋ（） ReａｄDａｔa End Sub Priｖａｔｅ Ｓub Save_Cｌiｃk（） 　 　 WriteData ＂dａｔaｏut．tｘt",　sum End Sub 第6套 （綜合應(yīng)用題) 窗體上添加兩個(gè)命令按鈕,單擊“讀入數(shù)據(jù)“按鈕，將20個(gè)數(shù)分別放入Ａrｒ1和Arr2兩個(gè)數(shù)組中，單擊“計(jì)算"按鈕,第一個(gè)數(shù)組的第n個(gè)元素減去第二個(gè)數(shù)組的第n個(gè)元素，結(jié)果作為第三個(gè)數(shù)組的第n個(gè)元素。這里的n為1、2…２0。最后計(jì)算第3個(gè)數(shù)組各元素之和,并顯示在窗體上。 Pｒivate Ｓｕb　C１_Click（） 　 Cａll ＲeadDaｔａ1

8、 Call ReaｄDatａ2 End Ｓub Private Ｓｕb C2_Ｃｌicｋ（） Ｄｉm Arｒ3(1 Ｔo　20） As Integer Dim suｍ?。羢 Ｉnｔegｅr 　sｕm　＝ 0 　 Fｏr i?。?１ To　20 　 Ａrｒ3(i）　= Aｒr１(i） -Arr2（i） 　　 　 sum = suｍ　+ Aｒr3（ｉ） 　　 Nｅxｔ　i ?。校騣nt ”suｍ="; sｕm WｒiteDａt(yī)a "dataｏｕｔ．ｔxt”， ｓuｍ Enｄ Sub 第7套　（綜合應(yīng)用題

9、) 窗體上有兩個(gè)命令按鈕,標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)",請(qǐng)?zhí)砑右粋€(gè)標(biāo)題為“回文個(gè)數(shù)為”的標(biāo)簽和一個(gè)名稱為Tｅxt1初始內(nèi)容為空的文本框。 程序功能如下:1)單擊“讀數(shù)據(jù)”按鈕，則將文件夾in5。dａt(yī)的文件內(nèi)容讀到變量s中。 ?。?單擊“統(tǒng)計(jì)”按鈕，則統(tǒng)計(jì)in5.ｄat文件中回文的個(gè)數(shù)，并顯示在Teｘt1內(nèi)。 考生編寫 Ｅｎｄ Funcｔioｎ Ｐrivａt(yī)e Sub　Fｏrｍ Uｎload（Canceｌ Aｓ Ｉnteger) Open　Ａｐp。Pａt(yī)ｈ & "\oｕｔ5。dat” Foｒ Ｏutｐut Aｓ?。? Ｐｒint　#1, Text1.Ｔeｘt Cloｓe

10、＃１ End Suｂ 程序結(jié)束 參考答案 Ｆunction founｄhuiweｎ（p Aｓ　Stｒing) 　 If StｒＲeveｒｓe（p）　= p Tｈen foundhuiwen = Ｔrue Enｄ Fｕｎctiｏn 第8套 (綜合應(yīng)用題) 窗體上有兩個(gè)標(biāo)簽L1和Ｌ2。標(biāo)題分別為“口令"和“允許次數(shù)"。一個(gè)命令按鈕C1，標(biāo)題為“確定”，兩文本框Texｔ1和Teｘt２。Ｔexｔ1用來輸入口令（輸入時(shí)文本內(nèi)容顯示“＊”)，初始內(nèi)容為空，Tｅｘt2初始內(nèi)容為3.如果輸入的是“123456”則在Texｔ１中顯示“正確口令"；如果輸入其他內(nèi)容，單擊“確定”后,彈出錯(cuò)誤提示對(duì)

11、話框，并且Ｔext２中的數(shù)字減１。最多輸入三次口令。 答案：第1處填：Tｅxt1．Teｘt 第２處入：PaｓswoｒｄChar　 第3處填:0 　 　 　　第4處填：False 第9套 (綜合應(yīng)用題） 在窗體中有一個(gè)實(shí)心圓，當(dāng)用鼠標(biāo)左鍵單擊窗體任何空白位置時(shí),實(shí)心圓則向單擊位置直線移動(dòng);用鼠標(biāo)右鍵單擊窗體,則實(shí)心圓停止移動(dòng)?！? 答案： 第1處：0 　　　第2處：steｐy 第3處：Ｔｉmｅr1。Ｅnablｅd　 　 　　 第4處:Timｅｒ1。Ｅnａbled 第５填:stepy 第10套　(綜合應(yīng)用題) 從文件中讀出數(shù)據(jù)，將其放入一個(gè)５×５的二

12、維數(shù)組a中,找出數(shù)組a中每行的最大值機(jī)及該值在行中的次序,并在所找到的結(jié)果分別保存到一維數(shù)組b,c中，a中第一行的最大值保存在b(1）中，最大值的列次序保存在ｃ(1）中。 參考答案：　　 Max = a(i， １) 　 　　　　Foｒ j　= １ To　５ 　 　 　 Ｉf Max <　a（i,?。? Tｈen 　 　 　　 Maｘ = ａ(i， j) 　 　 　 End If 　 　 　 　b(i）　= Ｍａx 　　　　 　　 If Mａｘ = a(i，　j) Tｈen?。悖ǎ椋?=　j 　　　　 　

13、Nｅxt j 　第11套 （綜合應(yīng)用題） 計(jì)算勾股定理整數(shù)組合的個(gè)數(shù)。勾股定理中３個(gè)數(shù)的關(guān)系是：ａ^2＋b＾２=c^2,例如,３，4，5就是滿足條件的整數(shù)組合。編寫程序，統(tǒng)計(jì)滿足在60以內(nèi)的三個(gè)數(shù)滿足上述關(guān)系的整數(shù)組合的個(gè)數(shù),并顯示在標(biāo)簽Ｌabel1中。 參考答案: Privaｔe　Sub Cｏｍmand1 Cｌicｋ() 　 ?。膇m i Aｓ?。蒼tegｅr 　　 Dim ｊ　Aｓ　Intｅgeｒ 　 Dim?。?As Integer For i =?。薄o ６0 Foｒ j　＝　1 Tｏ 60 　 　For k = 1　Tｏ　60 Iｆ

14、i ^ 2 ＝ ｊ　^ 2 + k ^ 2 Then 　 m = m　+ 1 　End　If 　　Next　ｋ 　　Nｅxｔ j 　　Nｅxｔ　i Label１ =　m /　2 第1２套（綜合應(yīng)用題） 　程序運(yùn)行時(shí)，單擊“打開文件”按鈕，則彈出“打開”對(duì)話框，默認(rèn)目錄為考生目錄，默認(rèn)文件類型為“文本文件".選中in５.ｔxt文件，單擊“打開”按鈕，則把文件內(nèi)容讀入并顯示在文本框中；單擊“修改內(nèi)容”按鈕，則將Text1中大寫字母“E”“Ｎ”“T”改為小寫，把小寫字母“e”“n”“t"改為大寫；單擊“保存文件”按鈕，則彈出“另存為”對(duì)話框,單擊“保存”按鈕，則將Text1中修改后

15、的內(nèi)容存到ouｔ5.txt 答案：第１處?填：2 第2處？填:ComｍonＤialog1.　 第３處？填：s　 第4處？填:2 Pｒiｖaｔe　Suｂ Ｃommａnd2　Cliｃk(） Dim　ｃh Aｓ Strｉng Dim s As　Strｉng Dｉm n Ａｓ?。蘯ｎg ｓ = Text１。Ｔeｘｔ 　　　Texｔ１．Text = "” 　 For n = 1　To Len(ｓ） 　　 ｃh?。?Ｍid(s，ｎ， １) 　 　 Ｉｆ ch =　"E＂ Oｒ ch = ”Ｎ” Oｒ cｈ

16、＝　"T＂ Ｔｈen 　　 　 ｃh = LCase（cｈ） 　 EｌseIf ｃh ＝ ＂e" Ｏr ｃh = "n" Or cｈ =　"ｔ”　Then ?。悖?＝ UCase(ch） 　 Eｎd Ｉｆ 　 Ｔext1.Ｔext = Tｅxｔ1 ＆ ch 　 Next n Ｅnd Sub 第13套 （綜合應(yīng)用題) 在文本框Text1中輸入一個(gè)大于２的偶數(shù),并單擊“分解為”按鈕,則將該偶數(shù)分解為兩個(gè)素?cái)?shù)之和,要求其中一個(gè)素?cái)?shù)是所能分解出的最小素?cái)?shù)。(例如２4分解為5和19，也可分解為１１和１3,要求取含有最小素

17、數(shù)的組合。） Foｒ i　= １ Tｏ　Val（Tｅxt1。Text) 　 　 Iｆ ＩｓPrimｅ(i） And IsPrimｅ（Vａl(Text１。Tｅxｔ） –ｉ ) Theｎ Labｅl1　= i Laｂｅｌ2 =?。謅l(Ｔexｔ1。Tｅxｔ）　- i 　　 　Exiｔ For 　 End　If Neｘt i 第14套 (綜合應(yīng)用題） 含三個(gè)窗體，標(biāo)題為“啟動(dòng)”“注冊(cè)”“登錄”,程序運(yùn)行時(shí)顯示“啟動(dòng)"窗口,單擊窗體上按鈕時(shí)彈出對(duì)應(yīng)窗體進(jìn)行注冊(cè)或登錄.注冊(cè)信息放入全局?jǐn)?shù)組ｕserｓ中,注冊(cè)用戶數(shù)（小與或等于10個(gè)）

18、放在全局變量n中。注冊(cè)時(shí)用戶名不能重復(fù),且“口令"與“驗(yàn)證口令”相同,注冊(cè)成功則在“啟動(dòng)"窗體標(biāo)簽中提示“注冊(cè)成功”否則提示相應(yīng)錯(cuò)誤信息。登錄時(shí),檢驗(yàn)用戶名和口令，若正確則在“啟動(dòng)”窗體標(biāo)簽中提示“登陸成功"否則提示相應(yīng)錯(cuò)誤信息 　 答案:Foｒm2中第1處：1　 　Forｍ2中第2處：０ Form2中第3處:Form1。Label１ Ｆorm3中第１處:0 Form3中第2處：k, ２ 第1５套 （綜合應(yīng)用題) 其功能是產(chǎn)生并顯示一個(gè)數(shù)列的前n項(xiàng)。數(shù)列產(chǎn)生的規(guī)律是：數(shù)據(jù)前２項(xiàng)是小于1０的正整數(shù)，將此兩數(shù)相乘，若乘積〈10，則此乘積作為第3項(xiàng),若乘積≥10，則以乘積的十位數(shù)

19、為數(shù)列的第三項(xiàng),以乘積的個(gè)位數(shù)作為數(shù)列第4項(xiàng)。直至產(chǎn)生第ｎ項(xiàng) 答案：第1個(gè)?處填入：ｂ 　 　 第2個(gè)？處填入：ｂ　　 第3個(gè)？處填入：n　 　　　 第4個(gè)？處填入:b 第16套 （綜合應(yīng)用題） 有一工程文件sjt5.vbp，相應(yīng)窗體文件sｊt5。ｆｒm,此外還有ｄataiｎ.txt文本文件,內(nèi)容:３2 43　76　58 28 １2 ９8 ５7　31　42 5３ 64 75 86　9７ 1３　24 35 ４6 5７ ６8 ７9?。福?５9 3７ 運(yùn)行后單擊窗體,將把文件ｄatａin．ｔxt中的數(shù)據(jù)輸入到二維數(shù)組Mat中,按5行５列矩陣形式顯示與窗體上，然后交換第二列和第四列的數(shù)據(jù),將

20、交換后的矩陣顯示在窗體上　 答案： 第1個(gè)？處填入：Mａt(yī)（N，　M) Ａs Inteｇer 第2個(gè)？處填入：For Ｉnpｕｔ 　 第3個(gè)？處填入：Ｉnｐｕt　#1， Mat(i, ｊ） 第4個(gè)?處填入：Mat(i, ４） =　t 第１7套 （綜合應(yīng)用題） 　窗體上有三個(gè)文本框，名稱為Teｘt1，Text2,Ｔext3,其中Texｔ1，Tｅxt2可多行顯示.請(qǐng)?zhí)砑樱硞€(gè)命令按鈕，名稱為Ｃmｄ１,Cｍd2，Cmd３，標(biāo)題為“產(chǎn)生數(shù)組"“統(tǒng)計(jì)”“退出”功能：1)單擊“產(chǎn)生數(shù)組”按鈕時(shí)，隨機(jī)產(chǎn)生2０個(gè)0～１０之間的數(shù)值,并將其保存到一維數(shù)組ａ中，同時(shí)將這20個(gè)數(shù)顯示與Ｔｅxt1

21、中。 2）單擊“統(tǒng)計(jì)"時(shí)，統(tǒng)計(jì)出數(shù)組a中出現(xiàn)頻率最高的數(shù)值及出現(xiàn)的次數(shù)，并將出現(xiàn)頻率最高的數(shù)值在Text2文本框中顯示,出現(xiàn)頻率最高的次數(shù)在Ｔext3文本框中顯示。 　 ３)單擊“退出”按鈕,結(jié)束程序 答案: 第1處填:9 　 第2處填:i –　1　 第3處填:ｆｍax 　第4處填：fmax 第5填:Eｎd 第18套 （綜合應(yīng)用題) 窗體上有兩個(gè)命令按鈕，標(biāo)題為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”,請(qǐng)?zhí)砑觾蓚€(gè)標(biāo)簽，名稱為L(zhǎng)aｂeｌ1和Laｂel2，標(biāo)題為“出現(xiàn)次數(shù)最多的字母"和“它出現(xiàn)的次數(shù)為"；在添加兩個(gè)初始內(nèi)容為空的文本框Ｔext1,Text2。 功能:1）單擊“讀數(shù)據(jù)”按

22、鈕，則將考生文件夾下iｎ５。ｄaｔ文件內(nèi)容讀到變量s中。 2）單擊“統(tǒng)計(jì)"按鈕，則自動(dòng)統(tǒng)計(jì)in5．dat文件中所含各字母出現(xiàn)的次數(shù),并統(tǒng)計(jì)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Ｔｅｘt２文本框內(nèi)。 Privａt(yī)e Ｓub Coｍmand2_Ｃlicｋ（） 　　 ＇ 考生編寫 Diｍ ａ（1 Ｔo 26)　As Inｔeger Ｄim ｍax　As Iｎtegeｒ 　 n =　Len（s) 　 　　Fｏr?。?= 1 To n 　 　 　　k = Asｃ(Ｍid＄(s， ｉ， 1）) Ｉf （k >= 6５ A

23、ｎd ｋ <= 90)　Tｈen 　　 　 a（k — ６4）　=　a（k —　64）　+ １ 　 　 Eｎd If 　 　 　?。蒮 （ｋ >＝ 9７　Aｎd k　<=　122） Thｅn 　 　 a(k － 96) = a(k － ９6) ＋ 1 　 End Ｉf 　　 　Neｘt ｉ 　 max　= ０ 　 ?。苚r　m = 1 To　26 　 Iｆ maｘ < a（m)　Thｅn 　 　　 　 max　=?。幔╩） 　 　 Ｅnd Ｉf 　 Next Ｔext

24、2　= mａx For m = 1 To 26 Iｆ a(ｍ） = ｍax Then 　 　 　　　　l = ｍ 　 ?。舗d Iｆ Neｘｔ　m Ｔeｘt1 = Chr(l + 64) 第19套 (綜合應(yīng)用題） 運(yùn)行程序時(shí)，單擊“裝入數(shù)據(jù)"按鈕,則從考生文件夾的ｉn5.txt文件中讀入所有城市名稱和距離，城市名稱按順序添加到列表框Lisｔ1中，距離放到數(shù)組a中;當(dāng)選中列表框中的一個(gè)城市時(shí)，它的距離就在Teｘt1中顯示。單擊“計(jì)算運(yùn)算"按鈕，則計(jì)算到該城市的每噸運(yùn)費(fèi)(結(jié)果取整,不四舍五入)并在Ｔexｔ2中顯示。每噸運(yùn)費(fèi)的計(jì)算:距

25、離*折扣＊單價(jià).單價(jià)為０。3 折扣為 距離<500 折扣為1 　 ５０0≤距離<１00０ 折扣為0。98 ? 1０００≤距離〈1５00 折扣為0．9５ 　 １50０≤距離＜200０ 折扣為0。92 ２0０0≤距離 折扣為0.9 單擊“保存”按鈕,則把距離和每噸運(yùn)費(fèi)存到文件ouｔ5。txt中。 答案： 第１個(gè)?處填入:１　 　 第2個(gè)？處填入:ch 參考答案： Privａt(yī)e Sub Commanｄ２_Cｌiｃｋ（) 　 ｂ　= Vａl（Texｔ1） If b ＞＝?。?Anｄ　b ＜ 500 Then 　　 m = 0．3 ＊　b 　

26、　 ?。舕seIf　b 〉= 500 And　b 〈　1000 Theｎ 　 m = 0．３ * b ＊ 0。９８ 　　 ElseIｆ?。狻　担?100０ And b ＜ 1５00 Ｔhen 　 　　 m　=　0．３?。 ＊ 0.95 　 ＥlseIf b >= １500　And b < 2０00　Thｅn 　 　 　 ｍ = 0。3　*?。?*　0．92 ElseIf b 〉＝ 2000 Ｔhen 　 m　= ０．３?。?ｂ ＊ 0。９ 　 End If Tｅｘt2　= Int(ｍ) Enｄ　Sub Pri

27、vaｔｅ　Sub　Liｓｔ1＿Clicｋ（) 　Teｘt1 =?。幔↙ist1。LｉsｔIndex + 1） Ｅnd Sub 第20套 （綜合應(yīng)用題） 運(yùn)行程序時(shí),從考生文件夾數(shù)據(jù)文件中讀取學(xué)生的成績(jī)(均為整數(shù)）。要求編寫程序，統(tǒng)計(jì)總?cè)藬?shù),同時(shí)統(tǒng)計(jì)不及格，60~6９，70~79，80～89及９0~100各分?jǐn)?shù)段的人數(shù),將統(tǒng)計(jì)結(jié)果顯示在相應(yīng)的文本框中.程序運(yùn)行前，必須單擊“保存”按鈕，保存統(tǒng)計(jì)結(jié)果 Pｒｉvａt(yī)ｅ Sub Comｍand１_Click() Foｒ i = １ Tｏ n Iｆ arr（i） ＜ 60　Ｔhen 　　　

28、 　Teｘt2 = Val（Tｅxt2） + 1 　　 　 ElseIｆ ａrr（i） 〉= ６0 Aｎd　ａｒr（i)?。?70 Ｔｈen 　Text3 =?。郑幔欤ǎ詄xt3） + １ 　 EｌsｅＩf ａｒｒ（i） ＞＝ 7０ And arr(ｉ) < 80 Then 　 　 　Text4 ＝ Vaｌ(Texｔ4) ＋ １ 　 　　ElseIｆ arr（ｉ) ＞=　80　And　arr(i） 〈 ９０ Tｈen 　 　　 Teｘt5 = Val(Ｔext5) + １ 　　　 　　　 ElｓeIf　

29、ａrr(i）　>= 90?。羘d arr(i） 〈= 10０ Tｈen 　 　 　 Ｔｅxt6 = Vaｌ（Teｘt6） + １ 　　　 　 　　End If 　　　 Texｔ1　=　Val（Teｘｔ１） + 1 　Next End　Ｓub 第21套 （綜合應(yīng)用題） . 在考生文件夾中有一個(gè)工程文件sjt5。ｖbp。窗體外觀如圖所示，運(yùn)行程序，單擊“讀數(shù)據(jù)”按鈕，讀入文件中的數(shù)據(jù)到字符串變量并顯示在Ｌａbeｌ２標(biāo)簽中。單擊“排序”命令按鈕時(shí),對(duì)讀入的數(shù)據(jù)從小到大排序,并將排序結(jié)果在窗體的Ｌable4控件中顯示 答案： 第1個(gè)？處填入:EＯＦ

30、(1） 第2個(gè)?處填入：a（i） For i = 1 Ｔｏ 10 　 ｆ = Tｒuｅ 　 　 Ｆoｒ j　= １ Tｏ ９ If a（ｊ) 〉 ａ(j + 1） Tｈeｎ 　 　 　 　　 t　= ａ（j) 　 　 ａ（j） = ａ（j ＋ 1) 　 　 　 a（j　+ 1） = t 　 　　 　 　 f =　Ｆalse 　　 　　 End Ｉｆ 　 　 Nexｔ j 　 Ｉf f　Then 　　　　　 　

31、 　Eｘｉt　Fｏr 　 　 　 　　End Iｆ 　　Nｅxt i 第２2套 （綜合應(yīng)用題） 窗體中有一個(gè)文本框數(shù)組,名稱為Ｔeｘt1，下標(biāo)從0開始。單擊“產(chǎn)生隨機(jī)數(shù)"按鈕，就會(huì)隨機(jī)產(chǎn)生10個(gè)3位數(shù),并放入Ｔext1數(shù)組中,單擊“重排數(shù)據(jù)"按鈕,則把Text１中奇數(shù)移到前面,偶數(shù)移到后面。 答案：第１個(gè)?處填入：9 　第2個(gè)？處填入：temp 第3個(gè)?處填入:j 　 第４個(gè)？處填入:1 第２3套 （綜合應(yīng)用題） 1．?單擊“讀數(shù)據(jù)”命令按鈕，將考生文件夾下in５．dat文件中10０個(gè)正整數(shù)讀入數(shù)組a中，同時(shí)顯示在文本框Text１中 2。?單擊“素?cái)?shù)"按鈕，

32、則將數(shù)組a中所有素?cái)?shù)存入數(shù)組b中，并將b中的元素顯示在文本框Text2中 F or k ＝ 1 Tｏ 10０ 　 　 flａg　= Trｕe 　 i ＝　2 　 　 Do　While　i <＝ Inｔ（a（k) / 2） Anｄ ｆlaｇ 　　 　 　 Ｉf Int(a（k) / ｉ) = a（k) ／ ｉ Then 　　　 　 　 　　 　　　 flag = False 　　　　　 Elｓe 　 　 　 　　 　 　 ｉ = i　+　1 　 　 　

33、　 　Eｎd If 　 　 　 Ｌoop 　 Iｆ　flａg = True　Theｎ nuｍ ＝ num + 1 　 　 b（num） ＝　a（k） 　 　Enｄ Ｉf 　 　　 　 Neｘｔ　k 第2４套?。ňC合應(yīng)用題） 有一工程文件ｓjｔ5。vbp，窗體上有命令按鈕標(biāo)題為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”。請(qǐng)?zhí)砑觾蓸?biāo)簽Label1和Lａbel２，標(biāo)題為“最長(zhǎng)單詞的長(zhǎng)度”“以該長(zhǎng)度最后一次出現(xiàn)的單詞”，再添加兩個(gè)初始內(nèi)容為空的文本框Ｔext1和Tｅxt2 a. 單擊“讀數(shù)據(jù)”按鈕，將考生文件夾下in5.ｄat

34、文件內(nèi)容讀到變量ｓ中 b． 單擊“統(tǒng)計(jì)”,程序自動(dòng)統(tǒng)計(jì)將iｎ５.dat文件中最長(zhǎng)單詞長(zhǎng)度,以及最后一個(gè)以該長(zhǎng)度出現(xiàn)的單詞，并將該單詞長(zhǎng)度顯示在Texｔ1中,單詞顯示在Teｘt2中 Pｒｉvａｔe?。觰b Commａnd2_Clicｋ(） 　 　For i　= １ To Ｌｅn（s） 　　 Ｊ =　Ａsc(Ｍid（s， i, 1)) 　 　 Ｓｅlｅct Cａse J 　 　 　 Case 48　To 57, 6５ Tｏ　90,　９7　To 122 　　 Casｅ?。舕ｓe 　 Miｄ(ｓ， i, 1） ＝　＂

35、—" 　　　 Eｎd Select 　　 Nｅｘt i 　 　 Ｊ　= Ｌen（s)?。? 　For i = 1 To J 　　　 If Miｄ（ｓ， i， １） = ”—” Ａnｄ Ｍid（ｓ, i ＋ 1,?。? ＝ ”—＂ Then 　　 　　 s =　Left（ｓ, i) ＋ Rigｈｔ（s，　J　– ｉ) 　 　J?。?J － 1 　 　 i = i — 1 　 　 Eｎｄ Ｉｆ 　　 Ｎｅxｔ i 　 　 s?。?Left(ｓ， Leｎ(s） -　1) 　R = Splｉ

36、t(ｓ，　"—”) 　Ｂ = R(０） 　 　Foｒ?。椤?　１　To UBｏunｄ(R) Iｆ Lｅn(Ｂ） 〈 Ｌen（R(i)) Then?。隆? R（ｉ） Ｎext　i 　 Foｒ m ＝　UBoｕｎｄ（R) To １ Ｓteｐ -1 　 　 　If Len（B） = Ｌｅn(R（m)） Then 　 Exiｔ Fｏr 　 　　　　　End If 　 Ｎｅxt Text1。Tｅxt = Leｎ（B） 　 　 Text２.Tｅxｔ ＝?。遥╩） End Ｓub 第25套 (綜合應(yīng)用題）

37、 有一工程文件sjt5。vbp，窗體上有兩個(gè)命令按鈕,三個(gè)標(biāo)簽,三個(gè)文本框 a。單擊“讀數(shù)據(jù)”命令按鈕,將文件ｉn５．ｄat中兩組已按升序方式排列的數(shù)分別放入數(shù)組A和B中，并分別在Texｔ1,Tｅxｔ2中顯示。 b　．單擊“合并”,則將Ａ,Ｂ兩數(shù)組合并為另一個(gè)按從小到大的排列數(shù)組C,并顯示在Text3中 步驟1:打開本題工程文件,利用菜單編輯器，按表３.6９中的設(shè)置建立菜單項(xiàng),在窗體Ｆorm1中繪制一個(gè)文本框,其相關(guān)屬性設(shè)置見表３。85和表３.86。 　c（1）　= a（1） 　 For ｉ ＝ 2 To 30 　　 　c（i) = a(i) 　 　 Ｎext 　

38、 c（31） ＝ ｂ(1） 　 Ｆor ｊ　=　3２ To ６０ 　c（j) = b（j　- 30) Ｎext 　 ?。苚r i　= 1 Ｔo 60 　 　 ｆ = Tｒuｅ 　 For j = 1　To ５9 　 　 　 　　 If c（j) 〉 c（j ＋　1) Then 　 　 　 　 t = c（j） 　　　 　 　 　 　 ?。?j)　=?。悖╦ + １) 　 　　　 c（j ＋　1) = t 　　 　 　 　 f ＝ False 　

39、 End Iｆ 　 　 　Nｅxｔ 　　　 If　f Theｎ 　　 　Exit Foｒ End If 　 Next 第26套（綜合應(yīng)用題) 在窗體上建立三個(gè)菜單,名稱分別為Ｒeａd， Cａlc和Save標(biāo)題為“輸入數(shù)據(jù)”“計(jì)算并輸出"“存盤”然后添加一個(gè)文本框，名稱為Tｅxt1,Mulｔｉlｉne為Tｕre，ScrollBars為2.如果執(zhí)行“讀入數(shù)據(jù)”命令,則讀入daｔain１。ｔxt文件中的１00個(gè)整數(shù)，將其放入一數(shù)組中，下屆為1，單擊“計(jì)算并輸出”按鈕，則把數(shù)組中下標(biāo)為奇數(shù)的元素在文本框中顯示出來,求出和,并把所求和

40、顯示在窗體上. Prｉvaｔe Sub Ｃａlc_Ｃｌick() 　　 　Texｔ1.Text = "＂ 　 Ｆor i ＝ 1 Tｏ　100 Ｓtｅp 2 　 　 Teｘt1.Texｔ?。?Texｔ１．Teｘt ＆　Aｒｒ（ｉ） & Space（5) 　　　 ｓuｍ　= sｕｍ　+　Arr（i） Nexｔ ｉ Prｉnt sum Eｎd Sub Private　Sｕb Read＿Clｉck(） 　ReａdＤatａ Enｄ Sub Ｐrivate Ｓub　Saｖe_Ｃlｉｃk（) 　 ＷriｔeDaｔa ”dataｏｕt.

41、ｔｘt",?。髐m End Suｂ 第27套 （綜合應(yīng)用題） 在考生文件夾下有一個(gè)工程文件sjt5.vｂｐ，窗體上有一個(gè)名稱為CＤ1的通用對(duì)話框；有一個(gè)文本框，名稱為Texｔ１，可以多行顯示，還有三個(gè)命令按鈕,名稱分別為Ｃ1﹑C2﹑C3標(biāo)題分別為“打開文件”“轉(zhuǎn)換”“存盤”。命令按鈕的功能是：“打開文件"——彈出“打開文件"對(duì)話框,默認(rèn)打開文件的類型為“文本文件?！稗D(zhuǎn)換”——把text1中所有小寫英文字母轉(zhuǎn)換成大寫 答案:第1個(gè)？處填入：２　　 第２個(gè)?處填入a 第３個(gè)？處填入：２ ”轉(zhuǎn)換"按鈕的事件過程： Prｉvate Sub C2＿Click() 　 Ｔex

42、t1．Text = UＣase(Ｔeｘt1.Text） Enｄ Ｓub 第２8套?。ňC合應(yīng)用題) 在窗體上建立三個(gè)菜單項(xiàng)(名稱分別為Reａｄ,Caｌc和Saｖｅ，標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出”“存盤”）,然后添加一個(gè)文本框（名稱為Teｘt1,Multiline屬性設(shè)置為Ture，ScrｏlｌBars屬性設(shè)置為2）程序執(zhí)行后，如果執(zhí)行“讀入數(shù)據(jù)"命令，則讀入datain１。tｅｔ文件中的100個(gè)整數(shù)，將其放入一個(gè)數(shù)組中,數(shù)組的下屆為1;如果單擊“計(jì)算并輸出"命令按鈕，則把該數(shù)組中可以被3整除的元素顯示在文本框中,求出它們的和，并把所求得的和顯示在窗體上；如果單擊“存盤”命令,則將所求

43、得的和存入考生文件夾下。 Privａt(yī)ｅ Ｓub Calc_Cｌicｋ() 　Ｔeｘt１。Ｔｅxt =　＂＂ 　　 Foｒ i ＝　1　Tｏ １00 　 Ｉf （Arr（i)　Mod 3) = 0 Ｔheｎ 　　　　　 Text1.Text　=?。詄xt1。Tｅxt?。Α。羠ｒ(i) ＆ Ｓpａce（5) sum =?。髐m ＋ Arr（i) Eｎd Ｉｆ 　 　　Nｅxt i 　 　 Pｒｉnt suｍ Eｎd Sub Priｖaｔe　Sub Read_Cｌicｋ() 　　 RｅadDaｔa

44、Enｄ Sｕb Privａt(yī)e Sub　Save_Click(） 　 WriteＤata ”dataout.txt＂, ｓｕm End Ｓub 第29套 （綜合應(yīng)用題） 在窗體上建立三個(gè)菜單項(xiàng)（名稱分別為Reａd，Ｃaｌｃ和Save,標(biāo)題分別為“讀入數(shù)據(jù)"“計(jì)算并輸出"“存盤”),然后添加一個(gè)文本框(名稱為Ｔｅxｔ1,可顯示多行，ScorllBars屬性設(shè)置為2)程序執(zhí)行后，如果執(zhí)行“讀入數(shù)據(jù)”命令，則讀入datain1。tｅｔ文件中的100個(gè)整數(shù)，將其放入一個(gè)數(shù)組中，數(shù)組的下屆為1;如果單擊“計(jì)算并輸出”命令按鈕,則把該數(shù)組中可以大于等于50的元素顯示在文本框中，求出它們的和,

45、并把所求得的和顯示在窗體上;如果單擊“存盤”按鈕，則將所求得的和存入考生文件夾下。 Prｉvａt(yī)e　Suｂ Calc_Click(） 　Teｘt１。Teｘt ＝ ”＂ 　 For i = 1 Tｏ 10０ 　 　 If　Ａｒr(i)　〉=　50 Theｎ Tｅｘt１．Tｅxｔ =　Text1。Tｅｘt & Arｒ(i) ＆ Ｓpａce(5） 　 ｓum = sum +?。粒騬(i) 　 Ｎｅxt i 　?。衦int sum End Ｓuｂ Ｐrivａt(yī)ｅ Suｂ　Rｅad_Cliｃk() 　RｅaｄDaｔa End Sub P

46、ｒivate　Sｕb Savｅ_Cliｃk(） 　　 WriteDatａ "dataｏut。txt”， sum Eｎd Sub 第3０套 (綜合應(yīng)用題) 在窗體上建立三個(gè)菜單項(xiàng)（名稱分別為Read,Calc和Savｅ，標(biāo)題分別為“讀入數(shù)據(jù)”“計(jì)算并輸出"“存盤”),然后添加一個(gè)文本框（名稱為Ｔｅxt１，可顯示多行,ScorｌｌＢaｒs屬性設(shè)置為２）程序執(zhí)行后，如果執(zhí)行“讀入數(shù)據(jù)"命令，則讀入daｔａin１.tet文件中的10０個(gè)整數(shù)，將其放入一個(gè)數(shù)組中，數(shù)組的下屆為１；如果單擊“計(jì)算并輸出"命令按鈕,則把該數(shù)組中小于５０的元素顯示在文本框中，求出它們的和，并把所求得的和顯示在窗體上;

47、如果單擊“存盤”命令,則將所求得的和存入考生文件夾下. 參考答案 Prｉｖａt(yī)ｅ　Sub Calc_Click（） 　 Text１。Teｘt ＝　”" 　For i ＝　1 To 100 　 Iｆ Ａrr（ｉ) < 50　Thｅn 　　 　 Tｅxt1。Ｔext?。?Text１。Teｘt & Arr（ｉ）?。?Ｓpａce(5） 　　 suｍ =　suｍ + Aｒr(i） 　 　　 　Enｄ Iｆ Next　i 　　 Ｐrinｔ sum End Sｕb Ｐrivａt(yī)e　Sub Rｅａd_Ｃlｉｃｋ（）

48、 　 ReaｄDatａ Eｎd　Sub Prｉvate Sｕb　Save＿Click（） ＷriteData ”ｄataout．txｔ”， sｕm Eｎd Sub 第31套　（綜合應(yīng)用題) 在考生文件夾中有如下內(nèi)容：32 ４3 7８ 58 28 １2　9８ 57 3１　42 ５3 64 75 8６ ９7 13 ２4 ３5 46 5７ 68 7９ ８０ ５9 37 程序運(yùn)行后,單擊窗體,將把文件ｄatａiｎ。txt中的數(shù)據(jù)輸入二維數(shù)組Mat中,按５行5列的矩陣形顯示在窗體上，并輸出矩陣左上—右下對(duì)角線上的數(shù)據(jù)。 答案：第1處填:Mat(N， Ｍ） As Inｔeｇｅr或M

49、at(5,　5）　Aｓ Integer第2處填：For　Input 第３處填：Iｎput　#１， Ｍａｔ（i, j） 第4處填：i = j 　 　 第32套 （綜合應(yīng)用題) 本程序的功能:如果單擊“取數(shù)"按鈕,則把開始文件夾下的in5。txt文件中的1５個(gè)姓讀到數(shù)組a中,并在窗體上顯示這些姓名;當(dāng)在Tｅxt1中輸入一個(gè)姓氏，或一個(gè)姓名，單擊“查找”按鈕，則進(jìn)行查找，若找到,就把所有與Ｔeｘt1中所有具有Ｔext1中姓氏的姓名或相同的姓名顯示在Ｔexｔ2中，若未找到，則在Ｔext2中顯示“未找到！"；若Texｔ1中沒有查找內(nèi)容,則在Ｔeｘt２中顯示“未輸入查找內(nèi)容！

50、”。 答案：第1個(gè)？處填入：＃1　 第２個(gè)?處填入:Text1。Text 第３個(gè)？處填入:n 　 第4個(gè)?處填入：a(k） 第５個(gè)？處填入：c 第３3套 （綜合應(yīng)用題) 考生文件中有5個(gè)運(yùn)動(dòng)員的姓名、7個(gè)裁判的打分和動(dòng)作的難度系數(shù)。每人的數(shù)據(jù)占一行，順序是:姓名、7個(gè)分?jǐn)?shù)、難度系數(shù)。程序運(yùn)行時(shí)，單擊“輸入"按鈕，可把iｎ5。daｔ文件中的5　個(gè)姓名讀入數(shù)組atｈｌeｔe中，把5組得分(每組７個(gè)）和難度系數(shù)讀入二維數(shù)組a中，并把這些數(shù)據(jù)顯示在Teｘt1文本框中；單擊“選出冠軍”按鈕，則把冠軍的姓名和成績(jī)分別顯示在文本框Tｅｘt2、Ｔext3中。成績(jī)的計(jì)算方法：去掉一個(gè)最高分和

51、一個(gè)最低分，求剩下得分的平均分，再乘以難度系數(shù)，再乘以3；單擊“存盤”按鈕,則把冠軍姓名和成績(jī)存入考生文件夾下. 答案：　第1個(gè)？處填入：a(n,?。? 　 第2個(gè)?處填入：7 第3個(gè)?處填入：a（ｎ, 8) Pｒiｖate Ｓub Comｍanｄ2_Cｌick(） Dim　n　As Inｔegｅr For　n = 1?。詏　5 　 Ｉf ｍ ＜　gｅtmark（ｎ) Ｔｈen m = gｅｔmaｒk(n） 　 Next Ｔext３。Texｔ　= m 　　 For ｎ ＝ 1　Tｏ ５ 　 Ｉf m = ｇetmａ

52、rk（n) Thｅn Text2。Text　= aｔｈletｅ（n） 　 Nexｔ ｎ 第３4套 (綜合應(yīng)用題） 在考生文件夾下，其窗體上有兩個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“統(tǒng)計(jì)”命令按鈕。請(qǐng)?zhí)砑觾蓚€(gè)標(biāo)簽,其名稱分別是Label１和Ｌａbeｌ２，標(biāo)題分別為“單詞的平均長(zhǎng)度為”和“最長(zhǎng)單詞的長(zhǎng)度為”；再添加兩個(gè)名稱分別為Text1和Texｔ2，Text屬性為空的文本框，程序功能如下: 1如果單擊“讀數(shù)據(jù)”命令按鈕，則將考生文件下in５．dat文件的內(nèi)容讀到變量s中(此程序已給出） ２如果單擊“統(tǒng)計(jì)”按鈕，則自動(dòng)統(tǒng)計(jì)變量s（s中僅含有字母和空格，而空格是用來分隔不同單詞的)中每個(gè)單詞的長(zhǎng)度

53、,并將所有單詞的平均長(zhǎng)度在Texｔ1文本框內(nèi)顯示，將最長(zhǎng)單詞的長(zhǎng)度在Ｔext2文本框內(nèi)顯示。 Ｐrｉvate Ｓｕｂ Ｃｏmmand２_Click（） 　 For i =　1 Ｔo Len(s) 　 　 Ｊ ＝ Aｓc(Mｉd(ｓ, i， 1)） 　 Sｅlｅct　Case J 　 　Case 48　Tｏ 57， 65 Tｏ　90, ９７ To 122 　 　 Casｅ Eｌｓｅ 　 Mid（s, i,　1） =　”－" 　　 End　Select Nｅxt i J ＝

54、Ｌen(ｓ) — １ 　 Foｒ　i　＝ 1　Tｏ J 　 Ｉf Mｉd(ｓ,　i， 1） ＝ ”—＂ And Ｍid（s, i?。?， 1） ＝　”—” Tｈen 　 　 s = Left（s，　ｉ）　+ Ｒight（s， J —?。椋? 　　　 　 J ＝ J　— １ 　 　 i ＝ i － 1 　 　 　 End If 　?。蝒xt　i 　s = Left(s， Ｌｅn(s） — 1） 　 ?。摇? Spliｔ（ｓ, "-") 　 Ｂ = R(0) 　 Fｏｒ ｉ ＝ 1　To ＵＢ

55、ound（R） 　 　If　Len（B) < Lｅn(R(i））　Theｎ Ｂ = R(i) 　 Nｅxt?。? 　 Teｘｔ2.Text　= Ｌen(Ｂ) 　 　 Ｔｅxt１.Teｘｔ?。?Inｔ((Len（s) -　UBounｄ（Ｒ））　/ （ＵBouｎｄ（R） ＋ １） ＋ 0．5) Eｎd Suｂ 第３5套 (綜合應(yīng)用題) 在考生文件夾下，其功能如下: 1）單擊“讀數(shù)據(jù)”按鈕,則將考生文件夾下ｉｎ5．ｄａt(yī)文件中的100正整數(shù)讀入到數(shù)組ａ中，同時(shí)在Text１文本框中顯示. 2）單擊“分組"按鈕,則將數(shù)組a中所有3的倍數(shù)的元素存入數(shù)組a中,并對(duì)數(shù)組b中的

56、元素按升序排序后顯示在文本框Text2中. 參考答案 　　　　　 　n = 0 　 　　 　 Foｒ　k = 1 Tｏ 100 　 　 　 Ｉf a(k) Mod 3 = 0 Ｔhen 　 　 　 　 num = ｎum ＋　１ 　 　　 　　 　 ｂ（num） = a（ｋ) 　 　 　　 Eｎｄ Iｆ 　 　 Next?。? 　 For　i ＝ 1 To num 　　 　 　 f　＝　Truｅ 　 　　　 　 　For j = 1　To nｕm -?。? 　 　

57、 If ｂ（ｊ)　〉 ｂ（j　+ 1） Theｎ 　 　 　 　　 t ＝ ｂ（j） 　　 　　 　 b（j） =　ｂ（j +?。保? 　 　　　 ｂ（j + 1)　= t 　 　 　　 　 f =　Fａｌsｅ 　 　 　　 Ｅｎｄ?。蒮 　 　 Nexｔ j 　 　　　 If f Tｈeｎ 　　　 　 　　 Exiｔ Ｆｏｒ 　 　 End?。蒮 　 　Next i 第3６套?。ňC合應(yīng)用題)

58、 考生文件夾下有１個(gè)初始文本為空的文本框Tｅxｔ1,2個(gè)標(biāo)題分別為“讀數(shù)據(jù)”和“計(jì)算”的命令按鈕;請(qǐng)?zhí)砑樱眰€(gè)標(biāo)題為“各行最小數(shù)的平均值為”的標(biāo)簽Laｂel2,再添加1個(gè)初始文本為空的文本框Ｔext２，如圖所示。程序功能如下： 1） 單擊“讀數(shù)據(jù)”按鈕，則將考生文件夾下iｎ5.ｄat文件的內(nèi)容讀入20行5列的二維數(shù)組a中，同時(shí)在Text1文本框內(nèi)顯示. ２） 單擊“計(jì)算”按鈕,程序則自動(dòng)統(tǒng)計(jì)二維數(shù)組中各行的最小數(shù),并將這些最小數(shù)的平均值顯示在Teｘｔ２文本框內(nèi)。 參考答案 Privａt(yī)e Ｓuｂ Commaｎd２_Ｃliｃk（) 　 '考生編寫 　 Diｍ sum As Ｌ

59、onｇ 　 Dim ｍｉn Ａs Loｎg 　?。膇m b(20) Ａs Ｉnteger 　 Ｆoｒ i = 1　To 2０ 　　 min ＝ a(ｉ ，　1) 　　 　For j =　1 To 5 　　 　　　　 If a(i , j） ＜ min Ｔhen 　 　 min = a（i ， j） 　 　 　　 End Ｉf 　 ?。蝒xt j 　b(ｉ） = mｉn 　 Next i 　 sum =　0 　 Ｆor?。?＝ 1 To 20 　 sum = sｕm + b（i） Neｘt 　 　Teｘt2 = sｕm /?。? Enｄ Sｕb 文中如有不足，請(qǐng)您指教！ 18 / 18