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

实验名称：循环应用的程序设计 实验目的 1） 熟悉循环嵌套在程序设计中的运用，内外层循环的协调。 2） 掌握For语句和Do While语句的使用环境，学会控制精度的级数计算。 3） 熟悉Exit语句和Continue语句的使用。 实验环境 Visual Studio 2008 实验内容 1 ）求3?300之间所有素数 单击输出素数”命令按钮，在文本框中输出 3?300之间所有素数，每行输出 9个素数。要求格式 对齐，程序运行界面如图1所示。 输岀素敎 □ 5 7 11 13 31 37 41 43 47 67 T1 T3 阳 B3 as 103 1「T toe 113 127 131 13TT 139 149 151 157 1B3 167 173 1SL 193 回 211 223 227 229 233 239 241 251 257 2 3 抚9 271 277 281 283 293 图1求3?300之间所有素数 控件的主要属性： (要求列岀所有控件) Butto n1:Text :MultiLine (True) , Readonly (True , ScrollBar (Vertical ) 程序代码： Public Class Form1 Private Sub Button1_Click( ByVal sender As , ByVal e As Handles Dim n As Integer , k As Integer Illi For n = 3 To 300 Step 2 For k = 2 To n - 1 If n Modk = 0 Then Exit For End If Next k If k = n Then If n Mod9 = 0 Then Print(n) End If Next n End Sub End Class 2）计算具有精度的级数 计算级数S 13x1 2 计算级数S 1 3x 1 2 5x2 7x3 2 3 3 4 9x4 4 5 5 …，直到精度达到10-。在文本框中输入 x，单击计 算”命令按钮，在标签中输出计算结果。程序运行界面如图 2所示。 咄计 咄计嚴荀稿度比觀目I亘 x；却46 [Hg]站果；1,459705 图2计算具有精度的级数 控件的主要属性： Butto n1:Text :MultiLine (True) ， Readonly (True，ScrollBar ( Vertical ) .:Text 程序代码： Imports Public Class Form1 Private Sub Button1_Click( ByVal sender As Object, ByVal e As Handles As DoubleDim i, flag As Integer , s, item, x, t As Double x = Val 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 A i) * flag i = i + 1 s = s + item flag = -flag Loop Un til (Abs(item) = 结果: Format(s,) End Sub End Class 3 ）输出三角形图案 在窗体上建立文本框作为输出三角形图案的画布。分别单击“左上角”、“右上角”、“左下角 和“右下角”命令按钮，输出相应的“左上角”、“右上角”、“左下角”和“右下角”的三角形图 案。单击“右上角”命令按钮后的程序运行界面如图 3所示。 图3输岀三角形图案 控件的主要属性： Button1-4:Text 程序代码： Public Class Form1 Private Sub Button1_Click( ByVal sender As , ByVal e As Handles Illi Dim i, j, k As Integer For i = 11 To 1 Step -1 For k = 1 To i - 1 = * Next For j = 1 To 10 - i = Next = vbCrLf Next i End Sub Private Sub Button4_Click( ByVal sender As , ByVal e As Illi Handles Dim i, j, k As Integer For i = 1 To 11 For k = 1 To i - 1 = * Next For j = 1 To 10 - i = II II N