VB循环应用的程序设计.doc

《VB循环应用的程序设计.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、实验报告姓名唐宇伟班级0914111学号26实验日期课程名称VB程序设计指导教师张晓梅成绩实验名称：循环应用的程序设计实验目的1）熟悉循环嵌套在程序设计中的运用，内外层循环的协调。2）掌握For语句和DoWhile语句的使用环境，学会控制精度的级数计算。3）熟悉Exit语句和Continue语句的使用。实验环境VisualStudio2008实验内容1）求3～300之间所有素数图1求3～300之间所有素数单击“输出素数”命令按钮，在文本框中输出3～300之间所有素数，每行输出9个素数。要求格式对齐，程序运

2、行界面如图1所示。控件的主要属性：（要求列出所有控件）Button1:TextText.box1:MultiLine（True），Readonly（True，ScrollBar（Vertical）程序代码：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimnAsInteger,kAsIntegerTextBox1.Text=""

3、Forn=3To300Step2Fork=2Ton-1IfnModk=0ThenExitForEndIf实验报告姓名唐宇伟班级0914111学号26实验日期课程名称VB程序设计指导教师张晓梅成绩NextkIfk>=nThenIfnMod9=0ThenPrint(n)EndIfNextnEndSubEndClass2）计算具有精度的级数计算级数，直到精度达到10-5。在文本框中输入x，单击“计算”命令按钮，在标签中输出计算结果。程序运行界面如图2所示。图2计算具有精度的级数控件的主要属性：Button1:T

4、extText.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(Tex

5、tBox1.Text)s=1+(3*x)/2t=3/2item=t*xi=2flag=-1Do实验报告姓名唐宇伟班级0914111学号26实验日期课程名称VB程序设计指导教师张晓梅成绩t=(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")EndSubEndClass3）输出三角形图案在窗体上建立文本框作为输出三角

6、形图案的画布。分别单击“左上角”、“右上角”、“左下角”和“右下角”命令按钮，输出相应的“左上角”、“右上角”、“左下角”和“右下角”的三角形图案。单击“右上角”命令按钮后的程序运行界面如图3所示。图3输出三角形图案控件的主要属性：Button1-4:TextText.box1:*程序代码：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Cl

7、ickTextBox1.Text=""Dimi,j,kAsIntegerFori=11To1Step-1Fork=1Toi-1TextBox1.Text&=""&"*"Next实验报告姓名唐宇伟班级0914111学号26实验日期课程名称VB程序设计指导教师张晓梅成绩Forj=1To10-iTextBox1.Text&=""NextTextBox1.Text&=vbCrLfNextiEndSubPrivateSubButton4_Click(ByValsenderAsSystem.Object,ByVale

8、AsSystem.EventArgs)HandlesButton4.ClickTextBox1.Text=""Dimi,j,kAsIntegerFori=1To11Fork=1Toi-1TextBox1.Text&=""&"*"NextForj=1To10-iTextBox1.Text&=""NextTextBox1.Text&=vbCrLfNextiEndSubPrivateSubButton2_Click(ByValsen