VB循环应用的程序设计.docx
实验名称：循环应用的程序设计实验目的1）熟悉循环嵌套在程序设计中的运用，内外层循环的协调。2）掌握For语句和DoWhi1e语句的使用环境，学会控制精度的级数计算。3）熟悉EXit语句和Cor1tinUe语句的使用。实验环境Visua1Studio2008实验内容在文本框中输出3300之间所有素数，每行输出9个素数。要求格式图1求3-300之间所有素数1）求3300之间所有素数单击“输出素数”命令按钮,对齐，程序运行界面如图1所示。控件的主要属性：(要求列出所有控件)Butto1:7extTextbox1:MuIti1ine(True),Readon1y(True,ScroIIBar(Vertica1)程序代码：Pub1icC1assForm1PrivateSubButton1_C1ick(ByVa1senderAsSystem.Object,ByVa1eAsSystem.EventArgs)Hand1esButton1.C1ickDimnAsInteger,kAsIntegerTextBox1.Text=""Forn=3To300Step2Fork=2Ton-1IfnModk=0ThenExitForEndIfNextkIfk>=nThenIfnMod9=0ThenPrint(n)EndIfNextnEndSubEndC1ass2)计算具有精度的级数3rSx吁计算具有精度的级数IDII回I唇X：3946I计算I结果：1.489705图2计算具有精度的级数控件的主要属性：ButtonkTextText.box1:MuIti1ine(True),Readon1y(True,ScroIIBar(Vertica1).1abe1Text1-2:1ext程序代码：ImportsSystem.MathPub1icC1assForm1PrivateSubButton1_C1ick(ByVa1senderAsObject,ByVa1eAsSystem.EventArgs)Hand1esButton1.C1ickDimi,f1agAsInteger,s,item,x,tAsDoub1ex=Va1(TextBox1.Text)s=1+(3*x)2t=3/2item=t*x=2f1ag=-17xDo9rt=(2*i+1)/(i*(i+1)item=t*(x'i)*f1agi=i+1=s+itemf1ag-f1ag1oopUnti1(Abs(item)<0.00001)1abe12.Text="结果:"&Format(s,"0.000000")EndSubEndC1ass3)输出三角形图案在窗体上建立文本框作为输出三角形图案的画布。分别单击“左上角”、“右上角”、“左下角”和“右计算级数S=1+±-*+上-+直到精度达到104在文本框中输入X,单击“计1×22×33×44×5算”命令按钮，在标签中输出计算结果。程序运行界面如图2所示。下角”命令按钮，输出相应的“左上角”、“右上角”、“左下角”和“右下角”的三角形图案。单击“右上角”命令按钮后的程序运行界面如图3所示。图3输出三角形图案控件的主要属性：Button1-4:TextText.box1:*程序代码：Pub1icC1assForm1PrivateSubButton!C1ick(ByVa1senderAsSystem.Object,ByVa1esSystem.EventArgs)Hand1esButton1.C1ickTextBox1.Text="”Dimi,j,kAsIntegerFori=11To1Step-1Fork=1Toi-1TextBox1Text&="&*”NextForj=1To10-iTextBox1.Text&="“NextTextBox1.Text&=vbCr1fNextiEndSubPrivateSubButton4_C1ick(ByVa1senderAsSystem.Object,ByVa1eAsSystem.EventArgs)Hand1esButton4.C1ickTextBox1.Text="”Dimi,j,kAsIntegerFori=1To11Fork=1Toi-1TextBox1Text&=&NextForj=1To10-iTextBox1.Text&=""NextTextBox1.Text&=vbCr1fNextiEndSubPrivateSubButton2_C1ick(ByVa1senderAsSystem.Object,ByVa1eAsSystem.EventArgs)Hand1esButton2.C1ickTextBox1.Text="”Dimi,j,kAsIntegerFori=11To1Step-1Forj=1To11-iTextBox1.Text&=""NextFork=1Toi-1TextBox1Text&=&*NextTextBox1.Text&=vbCr1fNextiEndSubPrivateSubButton3_C1ick(ByVa1senderAsSystem.Object,ByVa1eAsSystem.EventArgs)Hand1esButton3.C1ickTextBox1.Text="”Dimi,j,kAsIntegerFori=1To11Forj=1To11-iTextBox1.Text&="NextFork=1Toi-1TextBox1.Text&=&*NextTextBox1.Text&.=vbCr1fNextiEndSubEndC1ass实验小结(1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。(2)通过此次实验，你有什么体会、有哪些收获。总体来说，这次实验比较成功。程序运行都很正常。在输出素数的实验中，输出的是3-300所有的素数，每行9个，程序运行正常，结果正确格式对齐。计算结果正确。在计算级数的实验中，程序设计和运行都非常正常。当输入X的值为3946时，得到的值为1489707,结果正确，证明程序运行正常。精度达到了10的-5次。输出图案的实验中，文本为多行显示。分别点击左上角，右上角，左下角,右下角时，在文本框中会显示出不同的图案。几种图案都正确，并且为多行显Jo在这次实验中，我懂得了利用函数，运算符来设计程序。并且知道了各种数据，常量和变量的定义，可谓是受益匪浅。当然，在实验中我还遇到了许多的问题，比如没注意循环使结果出现错误。我还知道了在设计程序时一定要定义一些量，这样才会便于设计和操作。当然，我还明白了做事要仔细，不能粗细大意，要注意细节，这样才能做好自己的事。
