1、实验名称：循环应用的程序设计实验目的1）熟悉循环嵌套在程序设计中的运用，内外层循环的协调。2）掌握 For 语句和 Do While 语句的使用环境，学会控制精度的级数计算。3）熟悉 Exit 语句和 Continue 语句的使用。实验环境Visual Studio 2008实验内容1）求 3300 之间所有素数单击“输出素数”命令按钮，在文本框中输出 3300 之间所有素数，每行输出 9 个素数。要求格式对齐，程序运行界面如图 1 所示。控件的主要属性：（ 要求列出所有控件）Button1:TextText.box1: MultiLine（True） ，Readonly（True，Scrol
2、lBar（Vertical）程序代码：Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim n As Integer, k As IntegerTextBox1.Text = “For n = 3 To 300 Step 2For k = 2 To n - 1If n Mod k = 0 ThenExit ForEnd IfNext kIf k = n ThenIf n Mod 9 = 0 T
3、hen Print(n)End IfNext n图 1 求 3300 之间所有素数End SubEnd Class2）计算具有精度的级数计算级数 ，直到精度达到 10-5。在文本框中输入 x，单击.54937251xxS“计算”命令按钮，在标签中输出计算结果。程序运行界面如图 2 所示。图 2 计算具有精度的级数控件的主要属性：Button1:TextText.box1: MultiLine（True） ，Readonly（True，ScrollBar（Vertical）.Label.Text1-2:Text程序代码：Imports System.MathPublic Class Form1P
4、rivate Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickDim i, flag As Integer, s, item, x, t As Doublex = 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 + itemfl
5、ag = -flagLoop Until (Abs(item) 0.00001)Label2.Text = “结果:“ & Format(s, “0.000000“)End SubEnd Class3）输出三角形图案在窗体上建立文本框作为输出三角形图案的画布。分别单击“左上角” 、 “右上角” 、 “左下角”和“右下角”命令按钮，输出相应的“左上角” 、 “右上角” 、 “左下角”和“右下角”的三角形图案。单击“右上角”命令按钮后的程序运行界面如图 3 所示。图 3 输出三角形图案控件的主要属性：Button1-4:TextText.box1:*程序代码：Public Class Form1P
6、rivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickTextBox1.Text = “Dim i, j, k As IntegerFor i = 11 To 1 Step -1For k = 1 To i - 1TextBox1.Text &= “ “ & “*“NextFor j = 1 To 10 - iTextBox1.Text &= “ “NextTextBox1.Text &= vbCrLfNext iEnd SubPriva
7、te Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickTextBox1.Text = “Dim i, j, k As IntegerFor i = 1 To 11For k = 1 To i - 1TextBox1.Text &= “ “ & “*“NextFor j = 1 To 10 - iTextBox1.Text &= “ “NextTextBox1.Text &= vbCrLfNext iEnd SubPrivate Sub Butto
8、n2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickTextBox1.Text = “Dim i, j, k As IntegerFor i = 11 To 1 Step -1For j = 1 To 11 - iTextBox1.Text &= “ “NextFor k = 1 To i - 1TextBox1.Text &= “ “ & “*“NextTextBox1.Text &= vbCrLfNext iEnd SubPrivate Sub Button3_C
9、lick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickTextBox1.Text = “Dim i, j, k As IntegerFor i = 1 To 11For j = 1 To 11 - iTextBox1.Text &= “ “NextFor k = 1 To i - 1TextBox1.Text &= “ “ & “*“NextTextBox1.Text &= vbCrLfNext iEnd SubEnd Class实验小结(1)具体分析程序的运行情况，包括对不同
10、测试数据的运行结果，最后对运行结果进行分析。（2)通过此次实验，你有什么体会、有哪些收获。总体来说，这次实验比较成功。程序运行都很正常。在输出素数的实验中，输出的是 3-300 所有的素数，每行 9 个，程序运行正常，结果正确格式对齐。计算结果正确。在计算级数的实验中，程序设计和运行都非常正常。当输入 X 的值为 3946时，得到的值为 1.489707，结果正确，证明程序运行正常。精度达到了 10 的-5 次。输出图案的实验中，文本为多行显示。分别点击左上角，右上角，左下角，右下角时，在文本框中会显示出不同的图案。几种图案都正确，并且为多行显示。在这次实验中，我懂得了利用函数，运算符来设计程序。并且知道了各种数据，常量和变量的定义，可谓是受益匪浅。当然，在实验中我还遇到了许多的问题，比如没注意循环使结果出现错误。我还知道了在设计程序时一定要定义一些量，这样才会便于设计和操作。当然，我还明白了做事要仔细，不能粗细大意，要注意细节，这样才能做好自己的事。
