VB循環(huán)應(yīng)用的程序設(shè)計

實驗名稱：循環(huán)應(yīng)用的程序設(shè)計實驗?zāi)康氖煜ぱh(huán)嵌套在程序設(shè)計中的運用，內(nèi)外層循環(huán)的協(xié)調(diào)。掌握For語句和DoWhile3）熟悉ExitContinue實驗環(huán)境VisualStudio2008實驗內(nèi)容3～300113～300之間所有素數(shù)控件的主要屬性：（要求列出所有控件）Button1:TextText.box1:MultiLine（True），Readonly（True，ScrollBar（Vertical）程序代碼：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimnAsInteger,kAsIntegerTextBox1.Text=""Forn=3To300Step2Fork=2Ton-1IfnModk=0ThenExitForEndIfNextkIfk>=nThenIfnMod9=0ThenPrint(n)EndIfNextnEndSubEndClass計算具有精度的級數(shù)3xS1

5x

7x3

9x

...計算級數(shù)

12 23 34 4

，直到精度達(dá)到1-。在文本框中輸入，單擊“計算”命令按鈕，在標(biāo)簽中輸出計算結(jié)果。程序運行界面如圖2所示。圖2計算具有精度的級數(shù)控件的主要屬性：Button1:TextText.box1:MultiLine（True），Readonly（True，ScrollBar（Vertical）.Label.Text1-2:Text程序代碼：ImportsSystem.MathPublicClassForm1PrivateSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi,flagAsInteger,s,item,x,tAsDoublex=Val(TextBox1.Text)s=1+(3*x)/2t=3/2item=t*xi=2flag=-1Dot=(2*i+1)/(i*(i+1))item=t*(x^i)*flagi=i+1s=s+itemflag=-flagLoopUntil(Abs(item)<0.00001)Label2.Text="結(jié)果:"&Format(s,"0.000000")EndSubEndClass輸出三角形圖案和“右下角”命令按鈕，輸出相應(yīng)的“左上角”、“右上角”、“左下角”和“右下角”的三角形圖案。單擊“右上角”命令按鈕后的程序運行界面如圖3圖3輸出三角形圖案控件的主要屬性：Button1-4:TextText.box1:*程序代碼：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox1.Text=""Dimi,j,kAsIntegerFori=11To1Step-1Fork=1Toi-1TextBox1.Text&=""&"*"NextForj=1To10-iTextBox1.Text&=" NextTextBox1.Text&=vbCrLfNextiEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickTextBox1.Text=""Dimi,j,kAsIntegerFori=1To11Fork=1Toi-1TextBox1.Text&=""&"*"NextForj=1To10-iTextBox1.Text&=" NextTextBox1.Text&=vbCrLfNextiEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox1.Text=""Dimi,j,kAsIntegerFori=11To1Step-1Forj=1To11-iTextBox1.Text&=" NextFork=1Toi-1TextBox1.Text&=""&"*"NextTextBox1.Text&=vbCrLfNextiEndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox1.Text=""Dimi,j,kAsIntegerFori=1To11Forj=1To11-iTextBox1.Text&=" NextFork=1Toi-1TextBox1.Text&=""&"*"NextTextBox1.Text&=vbCrLfNextiEndEndClass實驗小結(jié)(1)具體分析程序的運行情況，包括對不同測試數(shù)據(jù)的運行結(jié)果，最后對運行結(jié)果進(jìn)行分析。（2)通過此次實驗，你有什么體會、有哪些收獲?？傮w來說，這次實驗比較成功。程序運行都很正常。在輸出素數(shù)的實驗中，輸出的是3-300所有的素數(shù)，每行9個，程序運行正常，結(jié)果正確格式對齊。計算結(jié)果正確。在計算級數(shù)的實驗中，程序設(shè)計和運行都非常正常。當(dāng)輸入X時，得到的值為1.48970710次。右下角時，在文本框中會顯示出不同的圖案。幾種圖案都正確，并且為多行顯示。在這次實驗中，我懂得了利用函數(shù)，運算符來設(shè)計程序。并且知道了各種數(shù)據(jù)，常量和變量的定義，可謂是受益匪淺。當(dāng)然，在實驗中我還遇到了許