国二 综合应用题

第套(综合应用题）以下数列：1,1，2，,，,13从第三个数开始，每个数都是前两个数之和.选中一个单选按钮后，单击“计算”按钮，算出数列的第n项的值，n为选中单选按钮后面的数. PivateSommnd1_Click（） m a（） song Dim i s Inte Din AsIntege Fr i 0 To Op.Count 1 f Op1().Vae TruThe n = Val(Op1（）.Caption） Exit Fo Endf Nxt Rm a（n） a（) = a(） =1 r = 3 To a（i） a（i 1） + （i - 2） Nxt Text1。t =(n)End Sub第套（综合应用题）从文件中读取0个数据,统计数据中素数的个数.并找出所有素数中的最小素数，将结果显示在标签Le3和Lbel中。Dim a As Inegr ib As Ineger a 0 b =ar（1) Fori = o40 If prie(ar(i) hn a = a1 ptn Nex or = 1 To 4 f im（ar（i)） Andarr()= hen b= arr（） ption t第4套（综合应用题）窗体上有两文本框,三个命令按钮“读取”“排序”“存盘”.“读取按钮的功能是将文件中得5个整数读到数组中，并在tex1中显示,“排序”按钮是将其按升序排列，显示在e中,“存盘”按钮是把排好序的数存入文件中.答案:第1处?填：a(） 第2处？填:c”排序按钮的代码Privae Sub C2_lick(） Dim t As Iege Dim i As Itegr Dim s Integer Dim As Sri c = ” oi =50 T Sp 1 For = 1To 4 If (j) a(j + 1） The t= （j +1) a( +1） = a（j） a(j) = t En f NextjNext i Frj = 1 To5 ch c+ Str（a(j）) x Tt2.ext=chEd Su第5套（综合应用题）在窗体上建立三个菜单,标题分别为“读入数据”“计算并输出”“存盘。如果执行“读入数据”命令,则读入文件中的10个整数，放入一个数组中，如果单击“计算并输出”，则把数组中下标为偶数的元素在文本框中显示出来,计算和并在窗体上显示.Dm sum AInegerPrivate Sub Cc_Click() T1.Txt= ” F = To 10 Sep 2 Tet1.Tex = Tt1.Tet & Arr（i) pace(5) sum = um +r（i） Nexti rin sEnd SuPrivat S Read_Clic（） ReDaEnd SubPri ub Save_Cik（） WriteData dauttt,sumEnd Sub第6套 （综合应用题)窗体上添加两个命令按钮,单击“读入数据“按钮，将20个数分别放入r1和Arr2两个数组中，单击“计算按钮,第一个数组的第n个元素减去第二个数组的第n个元素，结果作为第三个数组的第n个元素。这里的n为1、20。最后计算第3个数组各元素之和,并显示在窗体上。Pivate bC_Click（） Cll eadDa1 Call ReaDat2End ubPrivate b C2_ic（） m Ar3(1 o20） As Integer Dim sus negr sm 0 Fr i To20 r3(i）= Ar(i） -Arr2（i） sum = su+ Ar3（） Nxi int ”su=; sm WiteDta dataxt”， uEn Sub第7套（综合应用题) 窗体上有两个命令按钮,标题分别为“读数据”和“统计,请添加一个标题为“回文个数为”的标签和一个名称为Txt1初始内容为空的文本框。程序功能如下:1)单击“读数据”按钮，则将文件夹in5。dt的文件内容读到变量s中。 )单击“统计”按钮，则统计in5.at文件中回文的个数，并显示在Tet1内。考生编写 Funciorivte SubFr Uload（Cance A nteger)Openp。Pt & o5。dat” Fo utut A1int#1, Text1.etCloe End Su程序结束参考答案unction founhuiwe（p ASting) If Stevee（p）= p Ten foundhuiwen = rueEn Fctin第8套 (综合应用题)窗体上有两个标签L1和2。标题分别为“口令和“允许次数。一个命令按钮C1，标题为“确定”，两文本框Tex1和Tet。ex1用来输入口令（输入时文本内容显示“”)，初始内容为空，Tt2初始内容为3.如果输入的是“123456”则在Tex中显示“正确口令；如果输入其他内容，单击“确定”后,弹出错误提示对话框，并且ext中的数字减。最多输入三次口令。答案：第1处填：Txt1Tet 第处入：PaswoChar 第3处填:0 第4处填：False第9套 (综合应用题）在窗体中有一个实心圆，当用鼠标左键单击窗体任何空白位置时,实心圆则向单击位置直线移动;用鼠标右键单击窗体,则实心圆停止移动。 答案： 第1处：0 第2处：stey 第3处：mr1。nabld 第4处:Tim1。nbled 第填:stepy第10套(综合应用题)从文件中读出数据，将其放入一个的二维数组a中,找出数组a中每行的最大值机及该值在行中的次序,并在所找到的结果分别保存到一维数组b,c中，a中第一行的最大值保存在b(1）中，最大值的列次序保存在(1）中。 参考答案：Max = a(i， ) Fo j= To f Max = 6 Ad 9Ad k=122） Thn a(k 96) = a(k 6) 1 End f Net max= orm = 1 To26 I ma a（m)Thn max=（m） nd f Next ext2= mx For m = 1 To 26 I a(） = ax Then l = nd I Nemet1 = Chr(l + 64)第19套 (综合应用题）运行程序时，单击“装入数据按钮,则从考生文件夹的n5.txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框Lis1中，距离放到数组a中;当选中列表框中的一个城市时，它的距离就在Tet1中显示。单击“计算运算按钮，则计算到该城市的每吨运费(结果取整,不四舍五入)并在ex2中显示。每吨运费的计算:距离*折扣单价.单价为。3折扣为距离500折扣为1 0距离= 500And b 200Thn = 0。3* *092 ElseIf b 2000 hen m= 0。 End If Tt2= Int()EnSubPrivaSubLi1Clic（) Tet1 =（List1。LsIndex + 1）nd Sub第20套 （综合应用题） 运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数）。要求编写程序，统计总人数,同时统计不及格，606，7079，8089及0100各分数段的人数,将统计结果显示在相应的文本框中.程序运行前，必须单击“保存”按钮，保存统计结果 Pvt Sub Comand_Click() Fo i = T n I arr（i） 60hen Tet2 = Val（Txt2） + 1 ElseI rr（i） = 0 Adr（i) 70 en Text3 =（ext3） + Esf （i） 7 And arr() = 90nd arr(i） = 10 Ten xt6 = Va（Tet6） + End If Tex1=Val（Te） + 1 NextEndub第21套 （综合应用题） .在考生文件夹中有一个工程文件sjt5。bp。窗体外观如图所示，运行程序，单击“读数据”按钮，读入文件中的数据到字符串变量并显示在be标签中。单击“排序”命令按钮时,对读入的数据从小到大排序,并将排序结果在窗体的able4控件中显示 答案： 第1个？处填入:E(1） 第2个?处填入：a（i） For i = 1 10 = Tu o j= T If a（) (j + 1） Te t= （j) （j） = （j 1) a（j+ 1） = t f =alse End Nex j f fThen EtFr End I Nxt i第2套 （综合应用题）窗体中有一个文本框数组,名称为et1，下标从0开始。单击“产生随机数按钮，就会随机产生10个3位数,并放入ext1数组中,单击“重排数据按钮,则把Text中奇数移到前面,偶数移到后面。答案：第个?处填入：9 第2个？处填入：temp 第3个?处填入:j 第个？处填入:1第3套 （综合应用题）1单击“读数据”命令按钮，将考生文件夹下indat文件中10个正整数读入数组a中，同时显示在文本框Text中2。单击“素数按钮，则将数组a中所有素数存入数组b中，并将b中的元素显示在文本框Text2中 F or k 1 T 10 flg= Tre i 2 DoWhilei In（a（k) / 2） An la f Int(a（k) / ) = a（k) Then flag = False Ele = i+1 Ed If oop Iflg = TrueThenu num + 1 b（num） a（k） En f Nek第2套（综合应用题）有一工程文件j5。vbp，窗体上有命令按钮标题为“读数据”和“统计”。请添加两标签Label1和Lbel，标题为“最长单词的长度”“以该长度最后一次出现的单词”，再添加两个初始内容为空的文本框ext1和Txt2a.单击“读数据”按钮，将考生文件夹下in5.at文件内容读到变量中b单击“统计”,程序自动统计将i.dat文件中最长单词长度,以及最后一个以该长度出现的单词，并将该单词长度显示在Tex1中,单词显示在Tet2中Pveub Commnd2_Clic(） For i= To n（s） =sc(id（s， i, 1) lct Cse J Case 48To 57, 6 T90,7To 122 Casle Mi(， i, 1） Ed Select Nt 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 = Splt(，”) = R(） Fo=To UBun(R) I Ln(） en（R(i) Then= R（） exti Fo m UBo（R) To te -1 If Len（B） = n(R（m)） Then Exi Fr End If xt Text1。Txt = Le（B） Text.Tx （m）End ub第25套 (综合应用题）有一工程文件sjt5。vbp，窗体上有两个命令按钮,三个标签,三个文本框a。单击“读数据”命令按钮,将文件nat中两组已按升序方式排列的数分别放入数组A和B中，并分别在Tex1,Tx2中显示。b单击“合并”,则将,两数组合并为另一个按从小到大的排列数组C,并显示在Text3中步骤1:打开本题工程文件,利用菜单编辑器，按表.6中的设置建立菜单项,在窗体orm1中绘制一个文本框,其相关属性设置见表。85和表.86。 c（1）= a（1） For 2 To 30 c（i) = a(i) ext c（31） (1） or =3 To c（j) = b（j- 30) ext or i= 1 o 60 = Tu For j = 1To 9 If c（j) c（j 1) Then t = c（j） (j)=（j + ) c（j 1) = t f False End I Nx Iff The Exit Fo End If Next第26套（综合应用题)在窗体上建立三个菜单,名称分别为ed， Clc和Save标题为“输入数据”“计算并输出“存盘”然后添加一个文本框，名称为Txt1,Mullne为Tre，ScrollBars为2.如果执行“读入数据”命令,则读入daain。xt文件中的00个整数，将其放入一数组中，下届为1，单击“计算并输出”按钮，则把数组中下标为奇数的元素在文本框中显示出来,求出和,并把所求和显示在窗体上.Prvae Sub lc_ick() Tex1.Text = or i 1 T100 tp 2 Tet1.Tex TexTet A（） & Space（5) u= s+Arr（i） Nex Prnt sumEd SubPrivateSb ReadClck(） RedatEn Subrivate ubSae_lk（) rieDaa ”datat.t,umEnd Su第27套 （综合应用题）在考生文件夹下有一个工程文件sjt5.v，窗体上有一个名称为C1的通用对话框；有一个文本框，名称为Tex，可以多行显示，还有三个命令按钮,名称分别为1C2C3标题分别为“打开文件”“转换”“存盘”。命令按钮的功能是：“打开文件弹出“打开文件对话框,默认打开文件的类型为“文本文件。“转换”把text1中所有小写英文字母转换成大写答案:第1个？处填入： 第个?处填入a第个？处填入：”转换按钮的事件过程：Prvate Sub C2Click() ext1Text = Uase(et1.Text）En ub第8套（综合应用题)在窗体上建立三个菜单项(名称分别为Re,Cac和Sa，标题分别为“读入数据”“计算并输出”“存盘”）,然后添加一个文本框（名称为Tet1,Multiline属性设置为Ture，ScrlBars属性设置为2）程序执行后，如果执行“读入数据命令，则读入datain。t文件中的100个整数，将其放入一个数组中,数组的下届为1;如果单击“计算并输出命令按钮，则把该数组中可以被3整除的元素显示在文本框中,求出它们的和，并把所求得的和显示在窗体上；如果单击“存盘”命令,则将所求得的和存入考生文件夹下。Privt ub Calc_Cic() et。xt = Fo i 1T 00 f （Arr（i)Mod 3) = 0 he Text1.Text=ext1。Txtr(i) pce（5) sum =um Arr（i) Ed Nxt i Pnt suEd SubPriaeSub Read_Cic() RadDaaEn SbPrivte SubSave_Click(） Writeata ”dataout.txt, mEnd ub第29套 （综合应用题）在窗体上建立三个菜单项（名称分别为Red，a和Save,标题分别为“读入数据“计算并输出“存盘”),然后添加一个文本框(名称为x1,可显示多行，ScorllBars属性设置为2)程序执行后，如果执行“读入数据”命令，则读入datain1。t文件中的100个整数，将其放入一个数组中，数组的下届为1;如果单击“计算并输出”命令按钮,则把该数组中可以大于等于50的元素显示在文本框中，求出它们的和,并把所求得的和显示在窗体上;如果单击“存盘”按钮，则将所求得的和存入考生文件夹下。PrvteSu Calc_Click(） Tet。Tet ” For i = 1 T 10 Ifr(i)=50 The TtTx =Text1。Tt & Ar(i) pce(5） um = sum +r(i) xt i rint sumEnd urivt SuRad_Clik() RaDaaEnd SubPivateSb Sav_Clik(） WriteDat dataut。txt”， sumEd Sub第3套 (综合应用题)在窗体上建立三个菜单项（名称分别为Read,Calc和Sav，标题分别为“读入数据”“计算并输出“存盘”),然后添加一个文本框（名称为xt，可显示多行,Scoras属性设置为）程序执行后，如果执行“读入数据命令，则读入dain.tet文件中的10个整数，将其放入一个数组中，数组的下届为；如果单击“计算并输出命令按钮,则把该数组中小于的元素显示在文本框中，求出它们的和，并把所求得的和显示在窗体上;如果单击“存盘”命令,则将所求得的和存入考生文件夹下.参考答案PrtSub Calc_Click（） Text。Tet ” For i 1 To 100 I rr（) 50Thn Txt1。ext Text。Tet & Arr（） pce(5） su =su + Ar(i） En I Nexti rin sumEnd SbrivteSub Rd_l（） ReaDatEdSubPrvate SbSaveClick（） riteData ”ataouttx”， smEd Sub第31套（综合应用题)在考生文件夹中有如下内容：32 3 7 58 28 29 57 342 3 64 75 8 7 13 4 5 46 5 68 7 9 37 程序运行后,单击窗体,将把文件ati。txt中的数据输入二维数组Mat中,按行5列的矩阵形显示在窗体上，并输出矩阵左上右下对角线上的数据。答案：第1处填:Mat(N， ） As Iner或Mat(5,5）A Integer第2处填：ForInput第处填：Iput#， （i, j）第4处填：i = j 第32套 （综合应用题)本程序的功能:如果单击“取数按钮,则把开始文件夹下的in5。txt文件中的1个姓读到数组a中,并在窗体上显示这些姓名;当在Txt1中输入一个姓氏，或一个姓名，单击“查找”按钮，则进行查找，若找到,就把所有与et1中所有具有ext1中姓氏的姓名或相同的姓名显示在ex2中，若未找到，则在ext2中显示“未找到！；若Tex1中没有查找内容,则在et中显示“未输入查找内容！”。答案：第1个？处填入：1 第个?处填入:Text1。Text 第个？处填入:n 第4个?处填入：a(k）第个？处填入：c第3套 （综合应用题)考生文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行，顺序是:姓名、7个分数、难度系数。程序运行时，单击“输入按钮，可把i5。da文件中的5个姓名读入数组atee中，把5组得分(每组个）和难度系数读入二维数组a中，并把这些数据显示在Tet1文本框中；单击“选出冠军”按钮，则把冠军的姓名和成绩分别显示在文本框Tt2、ext3中。成绩的计算方法：去掉一个最高分和一个最低分，求剩下得分的平均分，再乘以难度系数，再乘以3；单击“存盘”按钮,则把冠军姓名和成绩存入考生文件夹下.答案：第1个？处填入：a(n,) 第2个?处填入：7第3个?处填入：a（, 8)Piate ub Coman2_Cick(） DimnAs Inegr Forn = 1o5 f gtmark（) en m = gmak(n） Next ext。Tex= m For 1T f m = etmrk（n) Thn Text2。Text= alet（n） Nex 第4套 (综合应用题）在考生文件夹下，其窗体上有两个标题分别为“读数据”和“统计”命令按钮。请添加两个标签,其名称分别是Label和be，标题分别为“单词的平均长度为”和“最长单词的长度为”；再添加两个名称分别为Text1和Tex2，Text属性为空的文本框，程序功能如下:1如果单击“读数据”命令按钮，则将考生文件下indat文件的内容读到变量s中(此程序已给出）如果单击“统计”按钮，则自动统计变量s（s中仅含有字母和空格，而空格是用来分隔不同单词的)中每个单词的长度,并将所有单词的平均长度在Tex1文本框内显示，将最长单词的长度在ext2文本框内显示。rvate mmand_Click（） For i =1 o Len(s) Ac(Md(, i， 1)） SlctCase J Case 48T 57， 65 T90, To 122 Cas E Mid（s, i,1） =” EndSelect Nxt i J en() Foi 1T J f Md(,i， 1） ” And id（s, i1， 1） ” Ten s = Left（s，）+ ight（s， J ） J J i i 1 End If exti s = Left(s， n(s） 1） = Spli（, -) = R(0) F 1To ound（R） IfLen（B) Ln(R(i）The = R(i) Nxt Te2.Text= en() xt.Te In(Len（s) -UBoun（）/ （Bou（R） ） 05)Ed Su第5套 (综合应用题)在考生文件夹下，其功能如下:1）单击“读数据”按钮,则将考生文件夹下5t文件中的100正整数读入到数组中，同时在Text文本框中显示.2）单击“分组按钮,则将数组a中所有3的倍数的元素存入数组a中,并对数组b中的元素按升序排序后显示在文本框Text2中.参考答案 n = 0 Fok = 1 T 100 f a(k) Mod 3 = 0 hen num = um （num） = a（) E I Next Fori 1 To num fTru For j = 1To nm - If （) （j+ 1） The t （j） b（j） =（j +） （j + 1)= t f =Fs f Nex j If f Te Exi Endf Next i第3套（综合应用题)考生文件夹下有个初始文本为空的文本框Tx1,2个标题分别为“读数据”和“计算”的命令按钮;请添加个标题为“各行最小数的平均值为”的标签Lael2,再添加1个初始文本为空的文本框ext，如图所示。程序功能如下：1）单击“读数据”按钮，则将考生文件夹下i5.at文件的内容读入20行5列的二维数组a中，同时在Text1文本框内显示.）单击“计算”按钮,程序则自动统计二维数组中各行的最小数,并将这些最小数的平均值显示在Te文本框内。参考答案Privte u Commad_lik（) 考生编写 Di sum As on Dim n s Log im b(20) s nteger o i = 1To 2 min a( ，1) For j =1 To 5 If a(i , j） min hen min = a（i ， j） End f ext j b(） = mn Next i sum =0 or 1 To 20 sum = sm + b（i） Net Tet2 = sm /0En Sb文中如有不足，请您指教！18 / 18