VB循环应用的程序设计

.实验名称：循环应用的程序设计实验目的1）熟悉循环嵌套在程序设计中的运用，内外层循环的协调。2）掌握For语句和Do While语句的使用环境，学会控制精度的级数计算。3）熟悉Exit语句和Continue语句的使用。实验环境Visual Studio 2008实验内容1）求3300之间所有素数图1求3300之间所有素数单击“输出素数”命令按钮，在文本框中输出3300之间所有素数，每行输出9个素数。要求格式对齐，程序运行界面如图1所示。控件的主要属性：（ 要求列出所有控件）Button1:TextText.box1: MultiLine（True），Readonly（True，ScrollBar（Vertical）程序代码：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer, k As Integer TextBox1.Text = For n = 3 To 300 Step 2 For k = 2 To n - 1 If n Mod k = 0 Then Exit For End If Next k If k = n Then If n Mod 9 = 0 Then Print(n) End If Next n End SubEnd Class2）计算具有精度的级数计算级数，直到精度达到10-5。在文本框中输入x，单击“计算”命令按钮，在标签中输出计算结果。程序运行界面如图2所示。图2计算具有精度的级数控件的主要属性：Button1:TextText.box1: MultiLine（True），Readonly（True，ScrollBar（Vertical）.Label.Text1-2:Text程序代码：Imports System.MathPublic Class Form1 Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, flag As Integer, s, item, x, t As Double x = Val(TextBox1.Text) s = 1 + (3 * x) / 2 t = 3 / 2 item = t * x i = 2 flag = -1 Do t = (2 * i + 1) / (i * (i + 1) item = t * (x i) * flag i = i + 1 s = s + item flag = -flag Loop Until (Abs(item) 0.00001) Label2.Text = 结果: & Format(s, 0.000000) End SubEnd Class3）输出三角形图案在窗体上建立文本框作为输出三角形图案的画布。分别单击“左上角”、“右上角”、“左下角”和“右下角”命令按钮，输出相应的“左上角”、“右上角”、“左下角”和“右下角”的三角形图案。单击“右上角”命令按钮后的程序运行界面如图3所示。图3输出三角形图案控件的主要属性：Button1-4:TextText.box1:*程序代码：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Dim i, j, k As Integer For i = 11 To 1 Step -1 For k = 1 To i - 1 TextBox1.Text &= & * Next For j = 1 To 10 - i TextBox1.Text &= Next TextBox1.Text &= vbCrLf Next i End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox1.Text = Dim i, j, k As Integer For i = 1 To 11 For k = 1 To i - 1 TextBox1.Text &= & * Next For j = 1 To 10 - i TextBox1.Text &= Next TextBox1.Text &= vbCrLf Next i End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = Dim i, j, k As Integer For i = 11 To 1 Step -1 For j = 1 To 11 - i TextBox1.Text &= Next For k = 1 To i - 1 TextBox1.Text &= & * Next TextBox1.Text &= vbCrLf Next i End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = Dim i, j, k As Integer For i = 1 To 11 For j = 1 To 11 - i TextBox1.Text &= Next For k = 1 To i - 1 TextBox1.Text &= & * Next TextBox1.Text &= vbCrLf Next i End SubEnd Class实验小结 (1)具体分析程序的运行情况，包括对不同测试数据的运行结果，最后对运行结果进行分析。 （2)通过此次实验，你有什么体会、有哪些收获。总体来说，这次实验比较成功。程序运行都很正常。在输出素数的实验中，输出的是3-300所有的素数，每行9个，程序运行正常，结果正确格式对齐。计算结果正确。在计算级数的实验中，程序设计和运行都非常正常。当输入X的值为3946时，得到的值为1.489707，结果正确，证明程序运行正常。精度达到了10的-5次。输出图案的实验中，文本为多行显示。分别点击左上角，右上角，左下角，右下角时，在文本框中会显示出不同的图案。几种图案都正确，并且为多行显示。在这