8實驗四循環(huán)結(jié)構(gòu)程序設(shè)計（續(xù)）2012年4月12日姓名：陳冬梅學(xué)號：116080020班級：醫(yī)學(xué)1班成績：一、實驗?zāi)康模赫莆誇OR語句的使用。掌握DO語句各種形式的使用。掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。掌握滾動條、進度條和定時器控件的使用。二、實驗內(nèi)容：請輸入一個整數(shù)n，求2---N之間的素數(shù)，界面如下圖所示，填空以后調(diào)試：（請參考理論教材p45例4.21、4.22以及p96中exit語句）。Dimi,mAsIntegerDimtagAsBooleanTextBox2.Text="2--"&TextBox1.Text&"之間的素數(shù)有："&vbcrlfForm=2toval(textbox2.text)Tag=trueFori=2tom-1If(mModi)=0Thentag=False'設(shè)置邏輯變量exitfor'退出循環(huán)EndIfNextIftagThentextbox1.text&=m&""Next理論教材p295第5題，操作可參照實驗教材中P51頁。理論教材p295第7題，要求運行結(jié)果為縱向形式顯示，操作可參照實驗教材中P51頁。理論教材p296第8題或者第9題（二選一）。理論教材p297第10題，操作可參照實驗教材中P53頁。附加題：使用雙重循環(huán)語句輸出如下圖形。將此實驗報告和代碼文件一起打包壓縮交上來。三、實驗步驟及結(jié)果：（實驗結(jié)果截圖，代碼拷貝過來。）PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,mAsIntegerDimtagAsBooleanTextBox1.Text="2--"&TextBox2.Text&"之間的素數(shù)有："&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="三重循環(huán)"&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="一重循環(huán)"&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)