国二 综合应用题

《国二 综合应用题》由会员分享，可在线阅读，更多相关《国二 综合应用题（18页珍藏版）》请在装配图网上搜索。

1、第１套(综合应用题） 以下数列：1,1，2，３,５，８,13…从第三个数开始，每个数都是前两个数之和.选中一个单选按钮后，单击“计算”按钮，算出数列的第n项的值，n为选中单选按钮后面的数. Pｒivate　Sｕｂ　Ｃommａnd1_Click（） 　 　Ｄｉm a（） Ａs　Ｌong 　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　Ｉf 　 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 第２套（综合应用题） 从文件中读取４0个数据,统计数据中素数的个数.并找出所有素数中的最小素数，将结果显示在标签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　＋　1 　 　 ptｉｏn　＝ ａ Nexｔ Ｆor ｉ = 1 To 4０ 　　 Ｉf ｐｒimｅ（aｒr（i)） And　arr(ｉ)　<= ｂ　 Ｔhen b　= arr（ｉ） 　 ption ＝ ｂ 　 Ｎｅｘt 第4套（综合应用题） 窗体上有两文本框,三个命令按钮“读取”“排序”“存盘”.“读取"按钮的功能是将文件中得5０个整数读到数

4、组中，并在texｔ1中显示,“排序”按钮是将其按升序排列，显示在Ｔeｘｔ２中,“存盘”按钮是把排好序的数存入文件中. 答案:第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套　（综合应用题） 在窗体上建立三个菜单,标题分别为“读入数据”“计算并输出”“存盘"。如果执

6、行“读入数据”命令,则读入文件中的1０0个整数，放入一个数组中，如果单击“计算并输出”，则把数组中下标为偶数的元素在文本框中显示出来,计算和并在窗体上显示. 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 +　Ａrｒ（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套 （综合应用题) 窗体上添加两个命令按钮,单击“读入数据“按钮，将20个数分别放入Ａrｒ1和Arr2两个数组中，单击“计算"按钮,第一个数组的第n个元素减去第二个数组的第n个元素，结果作为第三个数组的第n个元素。这里的n为1、2…２0。最后计算第3个数组各元素之和,并显示在窗体上。 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ｍ　Ａs Ｉ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 　Ｐｒint ”suｍ="; sｕm WｒiteDａta "dataｏｕｔ．ｔxt”， ｓuｍ Enｄ Sub 第7套　（综合应用题

9、) 窗体上有两个命令按钮,标题分别为“读数据”和“统计",请添加一个标题为“回文个数为”的标签和一个名称为Tｅxt1初始内容为空的文本框。 程序功能如下:1)单击“读数据”按钮，则将文件夹in5。dａt的文件内容读到变量s中。 　２)单击“统计”按钮，则统计in5.ｄat文件中回文的个数，并显示在Teｘt1内。 考生编写 Ｅｎｄ Funcｔioｎ Ｐrivａte Sub　Fｏrｍ Uｎload（Canceｌ Aｓ Ｉnteger) Open　Ａｐp。Pａtｈ & "\oｕｔ5。dat” Foｒ Ｏutｐut Aｓ　＃1 Ｐｒint　#1, Text1.Ｔeｘt Cloｓe

10、＃１ End Suｂ 程序结束 参考答案 Ｆunction founｄhuiweｎ（p Aｓ　Stｒing) 　 If StｒＲeveｒｓe（p）　= p Tｈen foundhuiwen = Ｔrue Enｄ Fｕｎctiｏn 第8套 (综合应用题) 窗体上有两个标签L1和Ｌ2。标题分别为“口令"和“允许次数"。一个命令按钮C1，标题为“确定”，两文本框Texｔ1和Teｘt２。Ｔexｔ1用来输入口令（输入时文本内容显示“＊”)，初始内容为空，Tｅｘt2初始内容为3.如果输入的是“123456”则在Texｔ１中显示“正确口令"；如果输入其他内容，单击“确定”后,弹出错误提示对

11、话框，并且Ｔext２中的数字减１。最多输入三次口令。 答案：第1处填：Tｅxt1．Teｘt 第２处入：PaｓswoｒｄChar　 第3处填:0 　 　 　　第4处填：False 第9套 (综合应用题） 在窗体中有一个实心圆，当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;用鼠标右键单击窗体,则实心圆停止移动。　 答案： 第1处：0 　　　第2处：steｐy 第3处：Ｔｉmｅr1。Ｅnablｅd　 　 　　 第4处:Timｅｒ1。Ｅnａbled 第５填:stepy 第10套　(综合应用题) 从文件中读出数据，将其放入一个５×５的二

12、维数组a中,找出数组a中每行的最大值机及该值在行中的次序,并在所找到的结果分别保存到一维数组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套 （综合应用题） 计算勾股定理整数组合的个数。勾股定理中３个数的关系是：ａ^2＋b＾２=c^2,例如,３，4，5就是满足条件的整数组合。编写程序，统计满足在60以内的三个数满足上述关系的整数组合的个数,并显示在标签Ｌabel1中。 参考答案: Privaｔe　Sub Cｏｍmand1 Cｌicｋ() 　 　Ｄim i Aｓ　Ｉntegｅr 　　 Dim ｊ　Aｓ　Intｅgeｒ 　 Dim　ｋ As Integer For i =　１　To ６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２套（综合应用题） 　程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认目录为考生目录，默认文件类型为“文本文件".选中in５.ｔxt文件，单击“打开”按钮，则把文件内容读入并显示在文本框中；单击“修改内容”按钮，则将Text1中大写字母“E”“Ｎ”“T”改为小写，把小写字母“e”“n”“t"改为大写；单击“保存文件”按钮，则弹出“另存为”对话框,单击“保存”按钮，则将Text1中修改后

15、的内容存到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 Ａｓ　Ｌoｎ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套 （综合应用题) 在文本框Text1中输入一个大于２的偶数,并单击“分解为”按钮,则将该偶数分解为两个素数之和,要求其中一个素数是所能分解出的最小素数。(例如２4分解为5和19，也可分解为１１和１3,要求取含有最小素

17、数的组合。） Foｒ i　= １ Tｏ　Val（Tｅxt1。Text) 　 　 Iｆ ＩｓPrimｅ(i） And IsPrimｅ（Vａl(Text１。Tｅxｔ） –ｉ ) Theｎ Labｅl1　= i Laｂｅｌ2 =　Ｖal(Ｔexｔ1。Tｅxｔ）　- i 　　 　Exiｔ For 　 End　If Neｘt i 第14套 (综合应用题） 含三个窗体，标题为“启动”“注册”“登录”,程序运行时显示“启动"窗口,单击窗体上按钮时弹出对应窗体进行注册或登录.注册信息放入全局数组ｕserｓ中,注册用户数（小与或等于10个）

18、放在全局变量n中。注册时用户名不能重复,且“口令"与“验证口令”相同,注册成功则在“启动"窗体标签中提示“注册成功”否则提示相应错误信息。登录时,检验用户名和口令，若正确则在“启动”窗体标签中提示“登陆成功"否则提示相应错误信息 　 答案:Foｒm2中第1处：1　 　Forｍ2中第2处：０ Form2中第3处:Form1。Label１ Ｆorm3中第１处:0 Form3中第2处：k, ２ 第1５套 （综合应用题) 其功能是产生并显示一个数列的前n项。数列产生的规律是：数据前２项是小于1０的正整数，将此两数相乘，若乘积〈10，则此乘积作为第3项,若乘积≥10，则以乘积的十位数

19、为数列的第三项,以乘积的个位数作为数列第4项。直至产生第ｎ项 答案：第1个?处填入：ｂ 　 　 第2个？处填入：ｂ　　 第3个？处填入：n　 　　　 第4个？处填入:b 第16套 （综合应用题） 有一工程文件sjt5.vbp，相应窗体文件sｊt5。ｆｒm,此外还有ｄataiｎ.txt文本文件,内容:３2 43　76　58 28 １2 ９8 ５7　31　42 5３ 64 75 86　9７ 1３　24 35 ４6 5７ ６8 ７9　８０ ５9 3７ 运行后单击窗体,将把文件ｄatａin．ｔxt中的数据输入到二维数组Mat中,按5行５列矩阵形式显示与窗体上，然后交换第二列和第四列的数据,将

20、交换后的矩阵显示在窗体上　 答案： 第1个？处填入：Mａt（N，　M) Ａs Inteｇer 第2个？处填入：For Ｉnpｕｔ 　 第3个？处填入：Ｉnｐｕt　#1， Mat(i, ｊ） 第4个?处填入：Mat(i, ４） =　t 第１7套 （综合应用题） 　窗体上有三个文本框，名称为Teｘt1，Text2,Ｔext3,其中Texｔ1，Tｅxt2可多行显示.请添加３个命令按钮，名称为Ｃmｄ１,Cｍd2，Cmd３，标题为“产生数组"“统计”“退出”功能：1)单击“产生数组”按钮时，随机产生2０个0～１０之间的数值,并将其保存到一维数组ａ中，同时将这20个数显示与Ｔｅxt1

21、中。 2）单击“统计"时，统计出数组a中出现频率最高的数值及出现的次数，并将出现频率最高的数值在Text2文本框中显示,出现频率最高的次数在Ｔext3文本框中显示。 　 ３)单击“退出”按钮,结束程序 答案: 第1处填:9 　 第2处填:i –　1　 第3处填:ｆｍax 　第4处填：fmax 第5填:Eｎd 第18套 （综合应用题) 窗体上有两个命令按钮，标题为“读数据”和“统计”,请添加两个标签，名称为Laｂeｌ1和Laｂel2，标题为“出现次数最多的字母"和“它出现的次数为"；在添加两个初始内容为空的文本框Ｔext1,Text2。 功能:1）单击“读数据”按

22、钮，则将考生文件夹下iｎ５。ｄaｔ文件内容读到变量s中。 2）单击“统计"按钮，则自动统计in5．dat文件中所含各字母出现的次数,并统计次数最多的字母显示在Text1文本框内，它所出现的次数显示在Ｔｅｘt２文本框内。 Privａte Ｓ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 　 　 　　Ｉf （ｋ >＝ 9７　Aｎd k　<=　122） Thｅn 　 　 a(k － 96) = a(k － ９6) ＋ 1 　 End Ｉf 　　 　Neｘt ｉ 　 max　= ０ 　 　Ｆor　m = 1 To　26 　 Iｆ maｘ < a（m)　Thｅn 　 　　 　 max　=　ａ（m） 　 　 Ｅnd Ｉf 　 Next Ｔext

24、2　= mａx For m = 1 To 26 Iｆ a(ｍ） = ｍax Then 　 　 　　　　l = ｍ 　 　Ｅnd Iｆ Neｘｔ　m Ｔeｘt1 = Chr(l + 64) 第19套 (综合应用题） 运行程序时，单击“装入数据"按钮,则从考生文件夹的ｉn5.txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框Lisｔ1中，距离放到数组a中;当选中列表框中的一个城市时，它的距离就在Teｘt1中显示。单击“计算运算"按钮，则计算到该城市的每吨运费(结果取整,不四舍五入)并在Ｔexｔ2中显示。每吨运费的计算:距

25、离*折扣＊单价.单价为０。3 折扣为 距离<500 折扣为1 　 ５０0≤距离<１00０ 折扣为0。98 ﻩ 1０００≤距离〈1５00 折扣为0．9５ 　 １50０≤距离＜200０ 折扣为0。92 ２0０0≤距离 折扣为0.9 单击“保存”按钮,则把距离和每吨运费存到文件ouｔ5。txt中。 答案： 第１个?处填入:１　 　 第2个？处填入:ch 参考答案： Privａte Sub Commanｄ２_Cｌiｃｋ（) 　 ｂ　= Vａl（Texｔ1） If b ＞＝　０ Anｄ　b ＜ 500 Then 　　 m = 0．3 ＊　b 　

26、　 　ＥlseIf　b 〉= 500 And　b 〈　1000 Theｎ 　 m = 0．３ * b ＊ 0。９８ 　　 ElseIｆ　ｂ　〉＝ 100０ And b ＜ 1５00 Ｔhen 　 　　 m　=　0．３　＊　b ＊ 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 =　ａ（List1。LｉsｔIndex + 1） Ｅnd Sub 第20套 （综合应用题） 运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数）。要求编写程序，统计总人数,同时统计不及格，60~6９，70~79，80～89及９0~100各分数段的人数,将统计结果显示在相应的文本框中.程序运行前，必须单击“保存”按钮，保存统计结果 Pｒｉvａtｅ 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 =　Ｖａｌ（Ｔext3） + １ 　 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　Ａnd arr(i） 〈= 10０ Tｈen 　 　 　 Ｔｅxt6 = Vaｌ（Teｘt6） + １ 　　　 　 　　End If 　　　 Texｔ1　=　Val（Teｘｔ１） + 1 　Next End　Ｓub 第21套 （综合应用题） . 在考生文件夹中有一个工程文件sjt5。ｖbp。窗体外观如图所示，运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量并显示在Ｌａbeｌ２标签中。单击“排序”命令按钮时,对读入的数据从小到大排序,并将排序结果在窗体的Ｌable4控件中显示 答案： 第1个？处填入:EＯＦ

30、(1） 第2个?处填入：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套 （综合应用题） 窗体中有一个文本框数组,名称为Ｔeｘt1，下标从0开始。单击“产生随机数"按钮，就会随机产生10个3位数,并放入Ｔext1数组中,单击“重排数据"按钮,则把Text１中奇数移到前面,偶数移到后面。 答案：第１个?处填入：9 　第2个？处填入：temp 第3个?处填入:j 　 第４个？处填入:1 第２3套 （综合应用题） 1．ﻩ单击“读数据”命令按钮，将考生文件夹下in５．dat文件中10０个正整数读入数组a中，同时显示在文本框Text１中 2。ﻩ单击“素数"按钮，

32、则将数组a中所有素数存入数组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４套　（综合应用题） 有一工程文件ｓjｔ5。vbp，窗体上有命令按钮标题为“读数据”和“统计”。请添加两标签Label1和Lａbel２，标题为“最长单词的长度”“以该长度最后一次出现的单词”，再添加两个初始内容为空的文本框Ｔext1和Tｅxt2 a. 单击“读数据”按钮，将考生文件夹下in5.ｄat

34、文件内容读到变量ｓ中 b． 单击“统计”,程序自动统计将iｎ５.dat文件中最长单词长度,以及最后一个以该长度出现的单词，并将该单词长度显示在Texｔ1中,单词显示在Teｘt2中 Pｒｉvａｔe　Ｓub 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ｅ　Ｅlｓe 　 Miｄ(ｓ， i, 1） ＝　＂

35、—" 　　　 Eｎd Select 　　 Nｅｘt i 　 　 Ｊ　= Ｌen（s)　－　1 　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ｔ ＝　Ｒ（m） End Ｓub 第25套 (综合应用题）

37、 有一工程文件sjt5。vbp，窗体上有两个命令按钮,三个标签,三个文本框 a。单击“读数据”命令按钮,将文件ｉn５．ｄat中两组已按升序方式排列的数分别放入数组A和B中，并分别在Texｔ1,Tｅxｔ2中显示。 b　．单击“合并”,则将Ａ,Ｂ两数组合并为另一个按从小到大的排列数组C,并显示在Text3中 步骤1:打开本题工程文件,利用菜单编辑器，按表３.6９中的设置建立菜单项,在窗体Ｆorm1中绘制一个文本框,其相关属性设置见表３。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 　 　Ｆor i　= 1 Ｔo 60 　 　 ｆ = Tｒuｅ 　 For j = 1　To ５9 　 　 　 　　 If c（j) 〉 c（j ＋　1) Then 　 　 　 　 t = c（j） 　　　 　 　 　 　 　ｃ(j)　=　ｃ（j + １) 　 　　　 c（j ＋　1) = t 　　 　 　 　 f ＝ False 　

39、 End Iｆ 　 　 　Nｅxｔ 　　　 If　f Theｎ 　　 　Exit Foｒ End If 　 Next 第26套（综合应用题) 在窗体上建立三个菜单,名称分别为Ｒeａd， Cａlc和Save标题为“输入数据”“计算并输出"“存盘”然后添加一个文本框，名称为Tｅxt1,Mulｔｉlｉne为Tｕre，ScrollBars为2.如果执行“读入数据”命令,则读入daｔain１。ｔxt文件中的１00个整数，将其放入一数组中，下届为1，单击“计算并输出”按钮，则把数组中下标为奇数的元素在文本框中显示出来,求出和,并把所求和

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",　ｓum End Suｂ 第27套 （综合应用题） 在考生文件夹下有一个工程文件sjt5.vｂｐ，窗体上有一个名称为CＤ1的通用对话框；有一个文本框，名称为Texｔ１，可以多行显示，还有三个命令按钮,名称分别为Ｃ1﹑C2﹑C3标题分别为“打开文件”“转换”“存盘”。命令按钮的功能是：“打开文件"——弹出“打开文件"对话框,默认打开文件的类型为“文本文件。“转换”——把text1中所有小写英文字母转换成大写 答案:第1个？处填入：２　　 第２个?处填入a 第３个？处填入：２ ”转换"按钮的事件过程： Prｉvate Sub C2＿Click() 　 Ｔex

42、t1．Text = UＣase(Ｔeｘt1.Text） Enｄ Ｓub 第２8套　（综合应用题) 在窗体上建立三个菜单项(名称分别为Reａｄ,Caｌc和Saｖｅ，标题分别为“读入数据”“计算并输出”“存盘”）,然后添加一个文本框（名称为Teｘt1,Multiline属性设置为Ture，ScrｏlｌBars属性设置为2）程序执行后，如果执行“读入数据"命令，则读入datain１。tｅｔ文件中的100个整数，将其放入一个数组中,数组的下届为1;如果单击“计算并输出"命令按钮，则把该数组中可以被3整除的元素显示在文本框中,求出它们的和，并把所求得的和显示在窗体上；如果单击“存盘”命令,则将所求

43、得的和存入考生文件夹下。 Privａtｅ Ｓub Calc_Cｌicｋ() 　Ｔeｘt１。Ｔｅxt =　＂＂ 　　 Foｒ i ＝　1　Tｏ １00 　 Ｉf （Arr（i)　Mod 3) = 0 Ｔheｎ 　　　　　 Text1.Text　=　Ｔext1。Tｅxt　＆　Ａrｒ(i) ＆ Ｓpａce（5) sum =　ｓum ＋ 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ａte Sub　Save_Click(） 　 WriteＤata ”dataout.txt＂, ｓｕm End Ｓub 第29套 （综合应用题） 在窗体上建立三个菜单项（名称分别为Reａd，Ｃaｌｃ和Save,标题分别为“读入数据"“计算并输出"“存盘”),然后添加一个文本框(名称为Ｔｅxｔ1,可显示多行，ScorllBars属性设置为2)程序执行后，如果执行“读入数据”命令，则读入datain1。tｅｔ文件中的100个整数，将其放入一个数组中，数组的下届为1;如果单击“计算并输出”命令按钮,则把该数组中可以大于等于50的元素显示在文本框中，求出它们的和,

45、并把所求得的和显示在窗体上;如果单击“存盘”按钮，则将所求得的和存入考生文件夹下。 Prｉvａte　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 +　Ａｒr(i) 　 Ｎｅxt i 　　Ｐrint sum End Ｓuｂ Ｐrivａtｅ 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０套 (综合应用题) 在窗体上建立三个菜单项（名称分别为Read,Calc和Savｅ，标题分别为“读入数据”“计算并输出"“存盘”),然后添加一个文本框（名称为Ｔｅxt１，可显示多行,ScorｌｌＢaｒs属性设置为２）程序执行后，如果执行“读入数据"命令，则读入daｔａin１.tet文件中的10０个整数，将其放入一个数组中，数组的下届为１；如果单击“计算并输出"命令按钮,则把该数组中小于５０的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上;

47、如果单击“存盘”命令,则将所求得的和存入考生文件夹下. 参考答案 Prｉｖａtｅ　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ａte　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套　（综合应用题) 在考生文件夹中有如下内容：32 ４3 7８ 58 28 １2　9８ 57 3１　42 ５3 64 75 8６ ９7 13 ２4 ３5 46 5７ 68 7９ ８０ ５9 37 程序运行后,单击窗体,将把文件ｄatａiｎ。txt中的数据输入二维数组Mat中,按５行5列的矩阵形显示在窗体上，并输出矩阵左上—右下对角线上的数据。 答案：第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套 （综合应用题) 本程序的功能:如果单击“取数"按钮,则把开始文件夹下的in5。txt文件中的1５个姓读到数组a中,并在窗体上显示这些姓名;当在Tｅxt1中输入一个姓氏，或一个姓名，单击“查找”按钮，则进行查找，若找到,就把所有与Ｔeｘt1中所有具有Ｔext1中姓氏的姓名或相同的姓名显示在Ｔexｔ2中，若未找到，则在Ｔext2中显示“未找到！"；若Texｔ1中没有查找内容,则在Ｔeｘt２中显示“未输入查找内容！

50、”。 答案：第1个？处填入：＃1　 第２个?处填入:Text1。Text 第３个？处填入:n 　 第4个?处填入：a(k） 第５个？处填入：c 第３3套 （综合应用题) 考生文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行，顺序是:姓名、7个分数、难度系数。程序运行时，单击“输入"按钮，可把iｎ5。daｔ文件中的5　个姓名读入数组atｈｌeｔe中，把5组得分(每组７个）和难度系数读入二维数组a中，并把这些数据显示在Teｘt1文本框中；单击“选出冠军”按钮，则把冠军的姓名和成绩分别显示在文本框Tｅｘt2、Ｔext3中。成绩的计算方法：去掉一个最高分和

51、一个最低分，求剩下得分的平均分，再乘以难度系数，再乘以3；单击“存盘”按钮,则把冠军姓名和成绩存入考生文件夹下. 答案：　第1个？处填入：a(n,　１) 　 第2个?处填入：7 第3个?处填入：a（ｎ, 8) Pｒiｖate Ｓub Comｍanｄ2_Cｌick(） Dim　n　As Inｔegｅr For　n = 1　Ｔo　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套 (综合应用题） 在考生文件夹下，其窗体上有两个标题分别为“读数据”和“统计”命令按钮。请添加两个标签,其名称分别是Label１和Ｌａbeｌ２，标题分别为“单词的平均长度为”和“最长单词的长度为”；再添加两个名称分别为Text1和Texｔ2，Text属性为空的文本框，程序功能如下: 1如果单击“读数据”命令按钮，则将考生文件下in５．dat文件的内容读到变量s中(此程序已给出） ２如果单击“统计”按钮，则自动统计变量s（s中仅含有字母和空格，而空格是用来分隔不同单词的)中每个单词的长度

53、,并将所有单词的平均长度在Texｔ1文本框内显示，将最长单词的长度在Ｔext2文本框内显示。 Ｐ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， 1） ＝　”—” Tｈen 　 　 s = Left（s，　ｉ）　+ Ｒight（s， J —　ｉ） 　　　 　 J ＝ J　— １ 　 　 i ＝ i － 1 　 　 　 End If 　　Ｎext　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套 (综合应用题) 在考生文件夹下，其功能如下: 1）单击“读数据”按钮,则将考生文件夹下ｉｎ5．ｄａt文件中的100正整数读入到数组ａ中，同时在Text１文本框中显示. 2）单击“分组"按钮,则将数组a中所有3的倍数的元素存入数组a中,并对数组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ｅ 　 　 　　 Ｅｎｄ　Ｉf 　 　 Nexｔ j 　 　　　 If f Tｈeｎ 　　　 　 　　 Exiｔ Ｆｏｒ 　 　 End　Ｉf 　 　Next i 第3６套　（综合应用题)

58、 考生文件夹下有１个初始文本为空的文本框Tｅxｔ1,2个标题分别为“读数据”和“计算”的命令按钮;请添加１个标题为“各行最小数的平均值为”的标签Laｂel2,再添加1个初始文本为空的文本框Ｔext２，如图所示。程序功能如下： 1） 单击“读数据”按钮，则将考生文件夹下iｎ5.ｄat文件的内容读入20行5列的二维数组a中，同时在Text1文本框内显示. ２） 单击“计算”按钮,程序则自动统计二维数组中各行的最小数,并将这些最小数的平均值显示在Teｘｔ２文本框内。 参考答案 Privａte Ｓuｂ Commaｎd２_Ｃliｃk（) 　 '考生编写 　 Diｍ sum As Ｌ

59、onｇ 　 Dim ｍｉn Ａs Loｎg 　　Ｄim 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 　 　Ｎext j 　b(ｉ） = mｉn 　 Next i 　 sum =　0 　 Ｆor　ｉ ＝ 1 To 20 　 sum = sｕm + b（i） Neｘt 　 　Teｘt2 = sｕm /　２0 Enｄ Sｕb 文中如有不足，请您指教！ 18 / 18