VB循环应用的程序设计

实验名称：循环应用的程序设计实验目的熟悉循环嵌套在程序设计中的运用，内外层循环的协调。掌握For语句和DoWhile3）熟悉ExitContinue实验环境VisualStudio2008实验内容3～300113～300之间所有素数控件的主要属性：（要求列出所有控件）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计算具有精度的级数3xS1

5x

7x3

9x

...计算级数

12 23 34 4

，直到精度达到1-。在文本框中输入，单击“计算”命令按钮，在标签中输出计算结果。程序运行界面如图2所示。图2计算具有精度的级数控件的主要属性：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="结果:"&Format(s,"0.000000")EndSubEndClass输出三角形图案和“右下角”命令按钮，输出相应的“左上角”、“右上角”、“左下角”和“右下角”的三角形图案。单击“右上角”命令按钮后的程序运行界面如图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实验小结(1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。（2)通过此次实验，你有什么体会、有哪些收获。总体来说，这次实验比较成功。程序运行都很正常。在输出素数的实验中，输出的是3-300所有的素数，每行9个，程序运行正常，结果正确格式对齐。计算结果正确。在计算级数的实验中，程序设计和运行都非常正常。当输入X时，得到的值为1.48970710次。右下角时，在文本框中会显示出不同的图案。几种图案都正确，并且为多行显示。在这次实验中，我懂得了利用函数，运算符来设计程序。并且知道了各种数据，常量和变量的定义，可谓是受益匪浅。当然，在实验中我还遇到了许