上机模拟考试习题集(01-50)解答2.pdf

《上机模拟考试习题集(01-50)解答2.pdf》由会员分享，可在线阅读，更多相关《上机模拟考试习题集(01-50)解答2.pdf（37页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、1.1 上机模拟试题1 解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()Im agel.P i ct u r e=Lo adP i ct u r e(Ap p.P at h&图片.j p g)En d S u bP r i v at e S u b Co m m an d2_Cl i ck()Im agel.P i ct u r e=Lo adP i ct u r e(”)En d S u b2.简单操作(1)程序代码如下：P r i v at e S u b Co m m an d2_Cl i ck()Di m

2、i As In t eger,m ax As In t eger,N As In t egerFo r i =1 To 100If a(i)=(In t(S q r(a(i)-2 ThenIf a(i)m ax Thenm ax=a(i)En d IfN=N+1En d IfNext iText l.Text =CS t r(m ax)Text 2.Text =CS t r(N)En d S u b(2)?aO O O r 其中？改为：Li s t l.Addi t emFo r i =0 To?其中？改为：Li s t l.Li s t Co u n t -1 Li s t l.Li s t

3、 i n dex=?其中？改为：i?Text l.Text 其中？改为：Li s t l.Addl t em?其中？改为：En d3.综合应用a(i)=Fi x(R n d*?+1)其中？改为：100Fo r j =1 To?其中？改为：i -1i =?其中?改为：i -1If a(i)=?Then 其中？改为：n u m If?10 Then 其中？改为：iL 2上机模拟试题2解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b HS 1 Chan ge()Text l.W i dt h=HS 1.V al u eEn d S u b2.简单操作(1)W hi l

4、 e(k Li s t 2.?)其中？改为:If?.S el ect ed(k)=Tr u e ThenLi s t 2.R em o v ei t em?其中？改为:Li s t l.R em o v el t em Li s t l.?Li s t l.Li s t In dex(2)程序代码如下：P r i v at e S u b C1_C1i ck()Fo r i =0 To 2If O p l(i).V al u e=Tr u e Thenn =Left(O p l(i).Cap t i o n,Li s t Co u n t中？改为：Li s t 2k其 中？改 为：2)t 二

5、1Fo r j =1 To nt =t *jNext jEn d IfNext iText l =tEn d S u b3.综合应用 CD1.Fi l t er i n dex=?其中？改为：2 Text l.Text =?其中？改为：a CD1.Act i o n =?其中？改为：2程序代码如下：P r i v at e S u b C2_Cl i ck()Text l.Text=U Cas e(Text l.Text)En d S u b1.3上机模拟试题3解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Cl _Cl i ck()Text 2.Text =

6、Text l.TextEn d S u b2.简单操作(1)S I=?其中？改为：Text l.TextDo W hi l e Mi d(S l,II,1)?An d II=?Then其中？改为：Fo r m 2.W i dt hP i ct u r el.Left =?其中？改为：0(2)If?=Tr u e Then 其中？改为：O p t i o n l.V al u e=Tr u eIf?=Tr u e Then 其中？改为：0p t i o n 3.V al u e=Tr u eLabel 2.Cap t i o n =?其中？改为：s3.综合应用程序代码如下：P r i v at

7、e S u b Co m m an dl _Cl i ck()=考生编写程序开始=Di m i As In t eger,j As In t eger,m ax As In t egerm ax=a(l,1)Fo r i =1 To 4Fo r j =1 To 4If m ax a(i,j)Then m ax=a(i,j)Next jNext iLabel 3.Cap t i o n =m ax=考生编写程序结束=不得修改以下部分s av e Labe13En d S u bP r i v at e S u b Co m m an d2_Cl i ck()二=二考生编写程序开始=Di m i

8、As In t eger,j As In t eger,s u m As In t egers u m =0Fo r i =1 To 4Fo r j =1 To 4If i =j Then s u m =s u m +a(i,j)Next jNext iLabe14.Cap t i o n =s u m=考 生编写程 序 结 束 二 二 二 二不得修改以下部分s av e Labe14En d S u bL 5上机模拟试题5解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()Ti m er l.En abl ed=Tr

9、 u eEn d S u bP r i v at e S u b Co m m an d2_Cl i ck()Ti m er l.En abl ed=Fal s eEn d S u bP r i v at e S u b Co m m an d3_Cl i ck()Cal l s u blEn d S u bP r i v at e S u b Ti m er l _Ti m er()Text l.Text =Text l.Text +1En d S u b2.简单操作(1)Fo r i =1 To?其中？改为:5Fo r j =1 To?其中？改为:2*i -1Fo r j =1 To?其中

10、？改为:i +1Fo r j =1 To?其中？改为:9-2*i(2)?=Fal s e 其中？改 为：Ti m er 1.En abl edS hap e2.To p =？+d*50 其中？改 为：S hap e2.To pIf S hap e2.To p =S hap e 1.To p +S hap e 1.Hei ght Then 其中？改 为：To pS hap e2.Left =？+d*50 其中？改 为：S hap e2.Left3.综合应用n=n +?其中？改 为：1Li s t l.Addl t em?其中？改 为：ch$程 序 代 码 如 下：P r i v at e S u

11、 b Co m m an d2_Cl i ck ()需要考生编写的内容Di m x As S i n gl e,p As S i n gl ex=V ai (Text l.Text)If x 500 ThenP =1El s el f x 1000 Thenp =0.98El s el f x 1500 Thenp =0.95El s el f x 2000 Thenp =0.92El s ep =0.9En d IfText 2.Text =CS t r (In t (x*0.3*p)En d S u bP r i v at e S u b Li s t l _Cl i ck()需要考生编写

12、而内容Di m i As In t egerFo r i =0 To Li s t l.Li s t Co u n t -1If Li s t l.S el ect ed(i)=Tr u e ThenText l.Text =CS t r(a(i +1)En d IfNext iEn d S u bL 6上 机 模 拟 试 题6解答1.基本操作(1)程 序 代 码 如 下：P r i v at e S u b Co m m an dl _Cl i ck()Co m m an dl.W i dt h=Co m m an d1.W i dt h+100En d S u b(2)程 序 代 码 如

13、下：P r i v at e S u b Ll _Cl i ck()S hap e1.S hap e=V ai(LI.Li s t(LI.Li s t i n dex)En d S u b2.简单操作(1)Cal l?其中?改为:cal c(i)Label 2.Cap t i o n =?其中?改为:O p t i o n 1(i).Cap t i o nx 二？其中？改为：Text lIf i Mo d 2?Then 其中？改为：0Label 3.Cap t i o n =?其中？改为：r es u l t(2)Ti m er l.En abl ed=?其中？改为：Fal s eTi m e

14、r l.In t er v al =?其中?改为:500If P i ct u r el.Left?Then 其中？改为：Fo r m l.W i dt hP i ct u r el.Left =?其中？改为：03.综 合应用程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()=考生编写程序异始=Di m i As In t eger,N1 As In t eger,N2 As In t eger,av g As S i n gl e,s u m As S i n gl eFo r i =1 To nIf ar r(i)=6 0 ThenN1=N1

15、+1El s eN2=N2+1En d Ifs u m =s u m +ar r(i)Next iav g=s u mText l.Text =CS t r(n)Text 2.Text =CS t r(CIn t(av g/n)Text 3.Text =CS t r(Nl)Text 4.Text =CS t r(N2)=考生编写程序结束=En d S u bL 7 上机模拟试题7解答1.基本操作(1)程序代码如下：P r i v at e S u b Tl _Chan ge()T2.Text =Tl.TextEn d S u b(2)程 序 代码 如 P r i v at e S u b C1

16、_C1i ck()Text l.Left =0En d S u b2.简单操作(1)LI.?Text l.Text 其中？改为：Addl t emLI.R em o v e It em?其中？改为：LI.Li s t i n dex(2)程序代码如下：P r i v at e S u b Cl _Cl i ck()If O p l =Tr u e Then Text l =需要 1 小时If 0p 2=Tr u e Then Text l =需要 10 小时”If 0p 3=Tr u e Then Text l =需要 15 小时”En d S u b3.综合应用程序代码如下：P r i v

17、at e S u b Co m m an d2_Cl i ck()考生应完成的程序Di m i As In t eger,s u m As In t eger,av g As S i n gl e,t em l AsIn t eger,t em 2 As In t eger,t em 3 As In t egerDi m s t r As S t r i n g,n As In t egerFo r i =1 To 100考生编写Di m i As In t eger,j av g As S i n gl e,o av g As S i n gl e,av g As S i n gl eDi

18、m n l As In t eger,n 2 As In t egerFo r i =1 To 100If a(i)Mo d 2=0 Theno av g=o av g+a(i)n l =n l +1El s ej av g=j av g+a(i)n 2=n 2+1En d Ifav g=av g+a(i)Next io av g=CIn t(o av g/n l)j av g=CIn t(o av g/n 2)av g=CIn t(av g/100)If Co m bo l.Text =所有偶数ThenText l.Text =CS t r (o av g)El s el f Co m bo

19、 l.Text =所有奇数 ThenText l.Text =CS t r(j av g)El s eText l.Text =CS t r(av g)En d IfEn d S u b3.综合应用Di m?其中？改为：m at (M,N)O p en Ap p.P at h&dat ai n.t xt?As#1其中？改为：Fo r I叩u t?其中？改为：In p u t#1,m at(i,j)?其中？改为：m at(i,4)=tL 9上机模拟试题9解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an d1_CIi ck()Im age1.P

20、i ct u r e=Lo adP i ct o r e(Ap p.P at h+“Mi s c34.i co)En d S u bP r i v at e S u b Co m m an d2_Cl i ck()I m age 1.P i ct u r e=Lo adP i c t u r e(Ap p.P at h+“Mi s c37.i co)En d S u bP r i v at e S u b Co m m an d3_Cl i ck()Im agel.P i ct u r e=Lo adP i ct u r e()En d S u b 2.简单操作(1)Fo r k =1 To?

21、其中？改为：5 If?V ai (Text l (k).Text)Then 其中？改为：a s =(s -a-b)/?其中？改为：4 s =？*3*V ai (Text 2.Text)其中？改为：s?二 In t(s *100)/100 其中？改为：Texl 3(2)程序代码如卜.：需考生编写的程序P r i v at e S u b Co m m an d1_C1i ck()Di m i As In t eger,j As In t eger,s u m As Lo n g,m u l As Lo n gs u m =0:m u l =1If O p t i o n l.V al u e=T

22、r u e ThenFo r i =1 To nm u l =m u l *iNext iText l.Text =CS t r(m u l)El s eFo r j =1 To ns u m =s u m +jNext jText l.Text =CS t r(s u m)En d IfEn d S u b3.综合应用Text 4=Text 4&a&?其中？改为：ba 二？其中？改为：b If k =?Then 其中？改为：n?=d其中？改为：bL 10上机模拟试题10解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Fo r m _Cl i ck()Labe

23、l 1.To p =0Label l.Left =Fo r m l.W i dt h-Label 1.W i dt hEn d S u b2.简单操作(1)ar r N(i)=In t(R n d*?)其中？改为：1001?=ar r N(l)其中？改为：Mi n If?Then 其中？改为：ar r N(i)n Fo r j =i To?其中？改为：na(j)二?其中？改为：a(j +1)Fo r k =1 To?其中？改为：n3.综合应用 s i 二？其中？改为：Text l.S el Len gt ha(n)二?其中？改为：a(n)+1 Fo r j =?To 26 其中？改为：2If?

24、Then 其中？改为：a(j)m ax_nIf?Then 其中？改为：a(i)=m ax_n1.13上机模拟试题13解答1.基本操作(1)程序代码如下:P r i v at e S u b Cl Cl i ck 0Fo r m l.Back Co l o r =&HFF&En d S u b(2)程序代码如下：P r i v at e S u b Fo r m _Lo ad()Li s t 1.Addl t emLi s t 1.Addl t emLi s t 1.Addl t emLi s t 1.Addl t emLi s t l.Add I t emEn d S u bP r i v a

25、t e S u b Li s t l12345ClickOS hap el.Fi 1IS t y l e=Li s t l.TextEn d S u b2.简单操作(1)If?=Tr u e Then 其中?改为:O p t i o n l (i).V al u ey =v al (O p t i o n l (i).?)其中？改为：Cap t i o n Do W hi l e i =?其中？改为：5 Li s t l.Addi t em?其中？改为：x(2)Ti m er l.In t er v al =?其中？改为：500V S cr o l 11.?=P i ct u r el.To

26、p 其中？改为：V al u eP i ct u r el.To p =?其中？改为：03.综合应用程序代码如下：P r i v at e S u b Co m m an d1_C1i ck()=二=以下考生编目程序开始=Di m i As In t eger,n l As In t eger,n 2 As In t eger,n 3 AsIn t eger,n 4 As In t eger,n 5 As In t egerFo r i =1 To nIf ar r(i)=59 Thenn l =n l +1El s el f ar r(i)=6 9 Thenn 2=n 2+1El s el

27、f ar r(i)=7 9 Thenn 3=n 3+1El s el f ar r(i)?Then 其中？改为：0Text l.En abl ed=?其中？改为：Fal s eL 15上机模拟试题15解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Fo r m _Cl i ck()Li s t l.R em o v ei t em Li s t l.Li s t Co u n t -1En d S u bP r i v at e S u b Fo r m _Lo ad()Li s t l.Li s t(Li s t l.Li s t Co u n t -1)=

28、英语En d S u b2.简单操作(1)程序代码如下：P r i v at e S u b 0p t i o n l _Cl i ck()Text l.Al i gn m en t =0En d S u bP r i v at e S u b 0p t i o n 2_Cl i ck()Text l.Al i gn m en t =2En d S u bP r i v at e S u b 0p t i o n 3_Cl i ck()Text l.Al i gn m en t =1En d S u bP r i v at e S u b 0p t i o n 4_Cl i ck()Text

29、l.Fo n t Nam e=宋体En d S u bP r i v at e S u b 0p t i o n 5_Cl i ck()Text l.Fo n t Nam e=黑体En d S u b(2)?其中？改为：Ti m er l.En abl ed=Fal s e Fo r k =0 To 359 S t ep?其中？改为：30 x 二 r adi u s *Co s (k *3.14159/180)+?其中？改为：X 0 Li n el.?=y O -l en l *S i n(a*3.14159/180)其中？改为：Y2 b=?-30/12 其中？改为：b3.综合应用s =?其中

30、？改为：0 Fo r k =2 To?其中？改为：7 get m ar k =s *3*?其中？改为：a(n,8)程序代码如下：P r i v at e S u b Co m m an d2_Cl i ck()要求考生编写的程序Di m i As In t eger,m ax As S i n gl e,s t r As S t r i n gm ax=get m ar k(1)s t r =at hl et e(l)Fo r i =2 To 5If m ax Fo r m l.W i dt h Then 其中？改为：Label 1.LeftLabel l.Left =?+100 其中？改为：

31、Label 1.Left3.综合应用a(i)=Fi x(R n d*?+1)其中？改为：9Fo r j =1 To?其中？改为：i -1If b(i)?Then fm ax=b(i)其中？改为：fm axIf b(i)=?Then 其中？改为：fm ax?其中？改为：En clL 18上机模拟试题18解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an d1_C1i ck()Text 2=Text l.S el Len gt hEn d S u b2.简单操作(1)s t =?&ch 其中？改为：s t?=Mi d(s t,k,1)其中？改为：c

32、?=其中？改为：wo r d(2)CD1.?=所 有 文 件 文 本 文 件*.t xt|W o r d 文档|do c”其中？改为：Fi l t er CD1.?其中？改为：S ho wO p enO p en?Fo r In p u t As#1 其中？改为：CD1.Fi 1 eNam e?其中？改为：Cl o s e#13.综合应用程序代码如下：P r i v at e S u b Co m m an d1_C1i ck()考生编写程序开始Di m i As In t eger,j As In t eger,a As In t eger,bAs In t eger,m ax As In

33、t egerDi m n As In t egern =V ai (Text l.Text)Fo r i =2 To nFo r j =2 To nIf Is P r i m e(i)An d Is P r i m e(j)ThenIf i +j =n ThenIf m ax stud(j).?Then 其中？改为：Average stud(k)=?其中？改为：stud(j)L 22上机模拟试题22解答(1)略(2)程序代码如下：Private Sub Commandl_Click()ConunonD i a 1 og 1.Ac t i on=2End Sub2.简单操作(1)Linel.Y2

34、=?其中？改为：Y Linel.X2=Linel.?其中？改为：XI Linel.Y2=yO-？其中？改为：radius?二鼠标位置不对 其中？改为：Label 1.Caption(2)If n?Or n?Then 其中？1.基本操作改为：0El s el f Tr i m$(Text 2)u s er s(?)Then 其中？改为：k,2L 23上机模拟试题23解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()Text 2.Text =Text l.S el S t ar tText 3.Text =Text l.

35、S el Len gt hEn d S u b2.简单操作(1)HS cr o l l l.Max=S hap e2.W i dt h+S hap e2.Left -S hap e 1.?其中？改为：S hap el.W i dt hV S cr o l l l.Max=S hap e2.Hei ght +?-S hap el.Hei ght其中？改为：S hap e2.To p?=HS cr o l l l.V al u e 其中？改为：S hap el.Left S hap el.To p =?其中？改为：V S cr o l l l.V al u e(2)Ti m er l.?=Tr u

36、 e 其中?改为：En abl ed?=Fal s e 其中？改为：Ti m er l.En abl ed d=?-I m age 1.To p 其中？改为：d t =?其中?改为：t +13.综合应用程序代码如下：P r i v at e S u b Co m m an d2 Cl i ck 0 考生编写程序开始Fo r k =1 To 30c(k)=a(k)c(30+k)=b(k)Next kFo r i =1 To 59Fo r j =i +1 To 6 0If c(i)c(j)Thent =c(i)c(i)=c(j)c(j)=tEn d IfNext jNext i考生编写程序结束 以

37、下程序将合并后的数组C显示在Text 3中Fo r k =1 To 6 0Text 3=Text 3+S t r(c(k)+S p ace(2)Next kEn d S u bL 24上机模拟试题24解答1.基本操作(1)程序代码如下：P r i v at e S u b Cl ea_Cl i ck()Ci sEn d S u bP r i v at e S u b Di s _Cl i ck()P r i n t 等级*试En d S u b(2)程序代码如下：P r i v at e S u b Ll _Dbl Cl i ck()Labi.Cap t i o n =LI.Li s t Co

38、 u n tEn d S u b2.简单操作(1)程序代码如下：P r i v at e S u b Text l _Cl i ck()If O p l =Tr u e ThenIf 0p 3=Tr u e ThenText l =坐汽车去青岛”El s eText l =坐汽车去大连En d IfEl s eIf 0p 3=Tr u e ThenText l =坐轮船去青岛”El s eText l =坐轮船去大连En d IfEn d IfEn d S u b(2)程序代码如下：P r i v at e S u b Cl _Cl i ck()If O p l =Tr u e ThenTex

39、t l =计算机Text 2=等级考试”Labi =交换成功”El s eLabi =计算机&等级考试En d IfEn d S u b3.综合应用程序代码如卜.：1.25上机模拟试题25解答1.基本操作(1)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()Fo r m l.Cap t i o n =Text l.Text&Labe12.Cap t i o n&Text 2.TextEn d S u b(2)程序代码如下：P r i v at e S u b HS cr o l l l _S cr o l l()Fo r m l.W i dt

40、h=HS cr o l 11.V al u eFo r m l.Hei ght =HS cr o l 11.V al u eEn d S u bP r i v at e S u b V S cr o l l l _Chan ge()Fo r m l.W i dt h=V S cr o l l l.V al u eFo r m l.Hei ght =V S cr o l l l.V al u eEn d S u b2.简单操作(1)Li s t l.Addi t em?其中？改为：Text l.TextFo r i =0 To?其中？改为：Li s t l.Li s t Co u n t -1I

41、f Li s t l.Li s t (i)=?Then 其中？改为：Text lLi s t l.R em o v e It em?其中？改为：i(2)S t ar t =?(a)其中？改为：LBo u n dFi n i s h=?(a)其中？改为：U Bo u n dS u m =?其中？改为：0S u m =S u m +?其中？改为：a(i)Av er age=?其中？改为：S u m /(Fi n i s h-S t ar t +1)Av er =Av er age(?)其中？改为：ar r 23.综合应用程序代码如下：P r i v at e S u b Cal c_Cl i ck

42、()Fo r i =1 To 100If Ar r(i)Mo d 3=0 Thens u m =s u m +Ar r(i)Text l.Text =Text l.Text +CS t r(Ar r(i)+S p ace(2)En d IfNext iP r i n t s u mEn d S u bP r i v at e S u b R ead_Cl i ck()Cal l R eadDat aEn d S u bP r i v at e S u b S av e_Cl i ck()Cal l W r i t eDat a(dat ao u t.t xt,s u m)En d S u bL

43、 26上机模拟试题26解答1.基本操作(1)程序代码如下：P r i v at e S u b Di s _Cl i ck()Text l =等级考试En d S u bP r i v at e S u b Exi t _Cl i ck()En dEn d S u b(2)程序代码如下:P r i v at e S u b LI Dbl Cl i ck OLI.R em o v ei t em LI.Li s t i n dexEn d S u b2.简单操作(1)程序代码如下：P r i v at e S u b Cl Cl i ck()If O p l.V al u e ThenIf 0p

44、 3.V al u e ThenText l.Text =坐&O p l.Cap t i o n&去&0p 3.Cap t i o nEl s el f 0p 4.V al u e ThenText l.Text =坐&O p l.Cap t i o n&去&0p 4.Cap t i o nEn d IfEl s el f 0p 2.V al u e ThenIf 0p 3.V al u e ThenText l.Text =坐&0p 2.Cap t i o n&去&0p 3.Cap t i o nEl s el f 0p 4.V al u e ThenText l.Text =坐&0p 2.

45、Cap t i o n&去&0p 4.Cap t i o nEn d IfEn d IfEn d S u b(2)程序代码如下：P r i v at e S u b O p l _Cl i ck()t =Text l.TextText l.Text =Text 2.TextText 2.Text =tText 3.Text =交换成功O p l.V i s i bl e=Fal s eEn d S u bP r i v at e S u b 0p 2_Cl i ck()Text 3.Text =Text l.Text +Text 2.TextEn d S u b 3.综合应用程序代码如卜.：P

46、 r i v at e S u b Cl _Cl i ck()R eadDat alR eadDat a2En d S u bP r i v at e S u b C2_Cl i ck()Di m Ar r 3(20)As In t egerFo r i =1 To 20Ar r 3(i)=Ar r l (i)+Ar r 2(i)s =s +Ar r 3(i)Next iP r i n t sEn d S u bP r i v at e S u b C3_Cl i ck()W r i t eDat a“dat ao u t”,sEn d S u b1.27上机模拟试题27解答1.基本操作(1)

47、略(2)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()Label 1.Fo n t Nam e=宋体En d S u bP r i v at e S u b Co m m an d2 Cl i ck()Label 1.Fo n t Nam e=黑体En d S u b2.简单操作(1)?=S t r (Ti m e()其中？改为：Text 1(0).Texts =?+(m -3)*0.15 其中？改为：s?=Tr u e 其中？改为：Cm dl.En abl ed?=Fal s e 其中？改为：Cm d2.En abl ed(2)O p en

48、 Ap p.P at h&i n 4.t xt Fo r?As#1其中？改为：In p u t s(i)=?其中？改为：s(i)+a(i,j)?=CIn t(s(i)/10)其中？改为：s(i)S hap e1(k -1).To p =?-S hap e1(k -1).Hei ght 其中？改为：mS hap e 1 (k -1).?=Tr u e 其中？改为：V i s i bl e3.综合应用程序代码如下：P r i v at e S u b Co m m an d2_Cl i ck()需考生编写Di m n As In t eger,i As In t eger,c As S t r i

49、 n g,l as t wo r d As S t r i n gDi m cu r wo r d As S t r i n g,m ax wo r d As S t r i n g,cu r l en As In t eger,m axl en As In t egern =Len(s)Fo r i =1 To nc=Mi d(s,i,1)If c Thencu r wo r d=cu r wo r d&ccu r l en =cu r l en +1El s eIf m axl en =cu r l en Thenm axl en =cu r l enm axwo r d=cu r wo

50、r dEn d Ifcu r l en =0cu r wo r d=En d IfNext iIf m axl en =cu r l en Thenm axl en =cu r l enm axwo r d=cu r wo r dEn d IfText l.Text =CS t r(m axl en)Text 2.Text =m axwo r dEn d S u b1.28上机模拟试题28解答1.基本操作(1)略(2)程序代码如下：P r i v at e S u b Co m m an dl _Cl i ck()S hap el.Fi l l S t y l e=3En d S u bP r