VB.循环结构程序设计

8实验四循环结构程序设计（续）2012年4月12日姓名：陈冬梅学号：116080020班级：医学1班成绩：一、实验目的：掌握FOR语句的使用。掌握DO语句各种形式的使用。掌握如何控制循环条件，防止死循环或不循环。掌握滚动条、进度条和定时器控件的使用。二、实验内容：请输入一个整数n，求2---N之间的素数，界面如下图所示，填空以后调试：（请参考理论教材p45例4.21、4.22以及p96中exit语句）。Dimi,mAsIntegerDimtagAsBooleanTextBox2.Text="2--"&TextBox1.Text&"之间的素数有："&vbcrlfForm=2toval(textbox2.text)Tag=trueFori=2tom-1If(mModi)=0Thentag=False'设置逻辑变量exitfor'退出循环EndIfNextIftagThentextbox1.text&=m&""Next理论教材p295第5题，操作可参照实验教材中P51页。理论教材p295第7题，要求运行结果为纵向形式显示，操作可参照实验教材中P51页。理论教材p296第8题或者第9题（二选一）。理论教材p297第10题，操作可参照实验教材中P53页。附加题：使用双重循环语句输出如下图形。将此实验报告和代码文件一起打包压缩交上来。三、实验步骤及结果：（实验结果截图，代码拷贝过来。）PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,mAsIntegerDimtagAsBooleanTextBox1.Text="2--"&TextBox2.Text&"之间的素数有："&vbCrLfForm=2ToVal(TextBox2.Text)tag=TrueFori=2Tom-1If(mModi)=0Thentag=FalseExitForEndIfNextIftagThenTextBox1.Text&=m&""NextEndSubEndClassPublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,j,k,tAsIntegerLabel1.Text="三重循环"&vbCrLfFori=1To9Forj=0To9Fork=0To9t=i*100+j*10+kIft=i^3+j^3+k^3ThenLabel1.Text&=t&vbCrLfEndIfNextNextNextEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimi,j,k,tAsIntegerLabel2.Text="一重循环"&vbCrLfFort=100To999i=t\100j=(tMod100)\10k=tMod10Ift=i^3+j^3+k^3ThenLabel2.Text&=t&vbCrLfEndIfNextEndSubEndClassPublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadHScrollBar1.Maximum=10HScrollBar1.Maximum=18HScrollBar2.Minimum=1HScrollBar2.Maximum=24EndSubPrivateSubHScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar1.ScrollLabel1.Text="a="&HScrollBar1.ValueEndSubPrivateSubHScrollBar2_Scroll(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar2.ScrollDima,n,iAsInteger,sum&,t&Label2.Text="n="&HScrollBar2.Valuea=HScrollBar1.Valuen=HScrollBar2.ValueLabel3.Text="sum="&vbCrLfsum=0:t=0Fori=1Tont=t*10+aLabel3.Text&=Space(15-Len(Trim(t)))&t&vbCrLfsum=sum+tNextLabel3.Text&="------------------"&vbCrLfLabel3.Text&=Space(15-Len(Trim(t)))&sumEndSubEndClassPublicClassForm1PrivateSubHScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesHScrollBar1.ScrollPictureBox1.Width=HScrollBar1.ValueEndSubPrivateSubVScrollBar1_Scroll(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.ScrollEventArgs)HandlesVScrollBar1.ScrollPictureBox1.Height=VScrollBar1.ValueEndSubEndClassPublicClassForm1Dimt%PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPressIfAsc(e.KeyChar)=13ThenProgressBar1.Minimum=0t=Val(TextBox1.Text)*60ProgressBar1.Maximum=tProgressBar1.Value=ProgressBar1.MaximumTimer1.Interval=100Timer1.Enabled=TrueEndIfEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tickt=t-1TextBox1.Text=t\60&":"&tMod60ProgressBar1.Value=tIft=0ThenTimer1.Enabled=FalseEndSubEndClassPublicClassForm1PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadDimi%,j%Label1.Text=""Fori=1To14Label1.Text&=Space(i-1)Forj=1To29-2*iIfj<15-iThenLabel1.Text&=Chr(64+i+j-1)