蚂编程题【1】罿26-01莇N=Val(Text1.Text)芅SelectCaseN聿Case80To100蚈Text2.Text="优良"蒇Case60To79莁Text2.Text="合格"螁Case0To59蒆Text2.Text="不合格"蒇EndSelect【2】袂25-01艿Dimi%,s&葿N=Val(Text1.Text)薇s=0芃Fori=1ToN羁IfiMod2=0Thens=s+i芈Nexti蚇Text2.Text=Str(s)【3】蚄24-01葿DimiAsInteger肇N=Val(Text1.Text)螆Text2.Text=""肅Fori=NTo1000膁IfiMod8=1ThenText2.Text=Text2.Text&i&""肀Nexti【4】袆23-01膂DimiAsInteger袃s=0衿N=Val(Text1.Text)羆Fori=1ToN薃s=s+i^i莁Nexti薈Text2.Text=s【5】肆22-01羄Dimi%,n%,aAsString*1肃n=0莇Fori=1ToLen(Text1.Text)肆a=Mid(Text1.Text,i,1)莅Ifa>="0"Anda<="9"Thenn=n+1蒀Nexti荿Text2.Text=Str(n)【6】膆21-01蒁DimaAsDouble,bAsDouble,cAsDouble'保留本行定义膂a=Val(Text1.Text)膈b=Val(Text2.Text)芆c=Val(Text3.Text)袂Ifb^2-4*a*c>=0Then蚀Text4.Text="实数解"羇Else莆Text4.Text="复数解"芃EndIf【7】莂20-01羀N！蒅S=1蚄Fori=1ton袀S=s*i蝿Nexti薅1+1!+2!+3！+。。。+n！肅Dimi%,t&,n%,s&薂n=val(text1.text)薈t=1蚅s=1节Fori=1ton羀s=s*i芇t=t+1.0/s蚅Nexti蚃DimiAsInteger,jAsInteger,sAsLong螂N=Val(Text1.Text)莀Text2.Text=Str(e)【8】螅19-01肄DimNAsInteger,sAsSingle'保留腿Dimi%肈N=Val(Text1.Text)袅s=0蒄Fori=1ToN袁s=s+(-1)^(i+1)/i袇Nexti羅Text2.Text=Str(s)【9】袅18-01荿Dimi%袀Text1.Text=""肅Fori=100To200羂IfiMod3=0AndiMod6<>0ThenText1.Text=Text1.Text&i&""肁Nexti【10】虿17-01膄DimA(1To20)AsInteger,iAsInteger莃Text1.Text=""螃Text2.Text=""蒈Randomize芄Fori=1To20螄A(i)=Int(Rnd*90+10)芁Text1.Text=Text1.Text&A(i)&""膇Text2.Text=Text2.Text&IIf(A(i)>=65AndA(i)<=90,Chr(A(i))&"","")芄Nexti【11】膅27-02羃PrivateSubCommand1_Click()芀'不得删改本行注释莄Randomize莂Text1.Text=Int(Rnd*9000+1000)莀EndSub罿PrivateSubCommand2_Click()蒄'不得删改本行注释螃Dimi%,s%膂s=0螇Fori=1ToLen(Text1.Text)袈s=s+Val(Mid(Text1.Text,i,1))膃Nexti薀Text2.Text=Str(s)螀EndSub【12】袈23-02薄PrivateSubCommand1_Click()节'不得删改本行注释蕿DimiAsInteger羈Text2.Text=""羅Fori=1ToLen(Text1.Text)螀Text2.Text=Mid(Text1.Text,i,1)&Text2.Text莈Nexti肇EndSub【13】肂22-02蒂PrivateSubcommand1_click()膇'''不得删改本行注释膇Dimi%,chrAsString*1蒃Text3.Text=""羀Fori=1ToLen(Text1.Text)膀chr=Mid(Text1.Text,i,1)芇Ifchr<>Text2.TextThenText3.Text=Text3.Text&chr袄'或者Ifchr=Text2.TextThenText3.Text=Replace(Text1.Text,chr,"")蚂Nexti罿EndSub莇27-01芅Dimi%聿Dimn%蚈n=Val(Text1.Text)蒇Fori=1Ton莁Label2.Caption=Label2.Caption+Sjzf螁Nexti蒆FunctionSjzf()AsString蒇DimkAsInteger袂Randomize艿k=Int(Rnd*2)葿Ifk=0Then薇Sjzf=Chr$(Int(Rnd*26)+65)芃Else羁Sjzf=Chr$(Int(Rnd*26)+97)芈EndIfEndFunction
本文档为【福建省计算机二级VB编程题】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483