VB循環(huán)應用的程序設計[精校版本]

1、實驗名稱：循環(huán)應用的程序設計實驗目的1）熟悉循環(huán)嵌套在程序設計中的運用，內(nèi)外層循環(huán)的協(xié)調(diào)。2）掌握For語句和Do While語句的使用環(huán)境，學會控制精度的級數(shù)計算。3）熟悉Exit語句和Continue語句的使用。實驗環(huán)境Visual Studio 2008實驗內(nèi)容1）求3300之間所有素數(shù)圖1求3300之間所有素數(shù)單擊“輸出素數(shù)”命令按鈕，在文本框中輸出3300之間所有素數(shù)，每行輸出9個素數(shù)。要求格式對齊，程序運行界面如圖1所示?？丶闹饕獙傩裕海?要求列出所有控件）Button1:TextText.box1: MultiLine（True），Readonly（True，ScrollBar

2、（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

3、= 0 Then Print(n) End If Next n End SubEnd Class2）計算具有精度的級數(shù)計算級數(shù)，直到精度達到10-5。在文本框中輸入x，單擊“計算”命令按鈕，在標簽中輸出計算結(jié)果。程序運行界面如圖2所示。圖2計算具有精度的級數(shù)控件的主要屬性：Button1:TextText.box1: MultiLine（True），Readonly（True，ScrollBar（Vertical）.Label.Text1-2:Text程序代碼：Imports System.MathPublic Class Form1 Private Sub Button1_Click(ByV

4、al 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

5、 Until (Abs(item) 0.00001) Label2.Text = 結(jié)果: & Format(s, 0.000000) End SubEnd Class3）輸出三角形圖案在窗體上建立文本框作為輸出三角形圖案的畫布。分別單擊“左上角”、“右上角”、“左下角”和“右下角”命令按鈕，輸出相應的“左上角”、“右上角”、“左下角”和“右下角”的三角形圖案。單擊“右上角”命令按鈕后的程序運行界面如圖3所示。圖3輸出三角形圖案控件的主要屬性：Button1-4:TextText.box1:*程序代碼：Public Class Form1 Private Sub Button1_Click(By

6、Val 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

7、 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

8、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 Sys

9、tem.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實驗小結(jié) (1)具體分析程序的運行情況，包括對不同測試數(shù)據(jù)的運行結(jié)果，最后對運行結(jié)果進行分析。 （2)通過此次實驗，你有什么體會、有哪些收獲?？傮w來說，這次實驗比較成功。程序運行都很正常。在輸出素數(shù)的實驗中，輸出的是3-300所有的素數(shù)，每行9個，程序運行正常，結(jié)果正確格式對齊。計算結(jié)果正確。在計算級數(shù)的實驗中，程序設計和運行都非常正常。當輸入X的值為3946時，得到的值為1.489707，結(jié)果正確，證明程序運行正常。精度達到了10的-5次。輸出圖案的實驗中，文本為多行顯示。分別點擊左上角，右上角，左下角，右下角時，在文本框中會顯示出不同的圖案。幾種圖案都正確，并且為多行顯示。在這次實驗