VB.统计定冠词个数统计文本框（要求输入字母或者空格）中定冠词‘the’出现的个数。代码PublicClassForm1DimaAsString,i%,bPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicka=TextBox1.Texti=0b=InStr(a,"the")DoWhileInStr(a,"the")<>0i=i+1a=Mid(a,b+3)LoopTextBox2.Text=iEnd...
统计文本框（要求输入字母或者空格）中定冠词‘the’出现的个数。代码PublicClassForm1DimaAsString,i%,bPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicka=TextBox1.Texti=0b=InStr(a,"the")DoWhileInStr(a,"the")<>0i=i+1a=Mid(a,b+3)LoopTextBox2.Text=iEndSubEndClass随机产生10个数，进行排序后，插入一个数值（键盘输入）到有序数数组中，显示出来。代码PublicClassForm1Dims(9),i,j,t,k,n,mAsIntegerPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Text=""Fori=0To9s(i)=Int(Rnd()*90+10)Label1.Text&=s(i)&""NextEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel2.Text=""Fori=0To8Forj=0To8-iIfs(j)>s(j+1)Thent=s(j):s(j)=s(j+1):s(j+1)=tEndIfNextjNextiFork=0To9Label2.Text&=s(k)&""NextEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Clickn=Val(TextBox3.Text)Label3.Text=""Form=0To9Ifs(m)>nThenExitForNextmReDimPreserves(10)Fori=9TomStep-1s(i+1)=s(i)Nextis(m)=nFori=0To10Label3.Text&=s(i)&Space(2)NextiEndSubEndClass要求将文本框内容从头尾至中间依次各取字符，组成一个新的字符串并输出。例如:'12345678'输出'18273645'代码：PublicClassForm1PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPressDims$Dimi,jAsIntegerIfAsc(e.KeyChar)=13Thens=TextBox1.Texti=0j=Len(s)-1DoWhilei<=jIfi=jThenTextBox2.Text&=s(i)ElseTextBox2.Text&=s(i)&s(j)EndIfi=i+1j=j-1LoopEndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=""TextBox2.Text=""Endsub
本文档为【VB.统计定冠词个数】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483