VB程序設(shè)計實驗五.doc

信 息 工 程 學(xué) 院實驗報告的內(nèi)容與格式按任課教師的要求書寫。 程序設(shè)計基礎(chǔ)(VB) 實驗/實習(xí)報告學(xué)院:動物科技學(xué)院班級:動科123姓名:王珂學(xué)號:2012010848 成績:A實習(xí)五 過程1、 實驗/實習(xí)過程T1代碼設(shè)計：Private Sub Command1_Click()Label2 = Val(Text1) & 的絕對值= & myabs(Val(Text1)End SubPrivate Function myabs(x As Double)myabs = xIf x 0 Then myabs = -xEnd Function運行結(jié)果：T3代碼設(shè)計：Function Q(x As Integer) As Boolean W = x 2 E = Right(W, Len(Trim(x) If E = x Then Q = True Else E = False End IfEnd FunctionPrivate Sub Command1_Click() Dim i% n = 0 For i = 1 To 2000 If Q(i) Then Picture1.Print Tab(n Mod 4) * 8); i; n = n + 1 End If NextEnd Sub運行結(jié)果：T4代碼設(shè)計：Function Gdc(m%, n%) As Integer R = m Mod n Do While R 0 m = n n = R R = m Mod n Loop Gdc = nEnd FunctionPrivate Sub Command1_Click() Dim a%, b%, c% a = (Text1.Text) b = (Text2.Text) c = (Text3.Text) MsgBox 三個數(shù)的最大公約數(shù)為： & Gdc(Gdc(a, b), c)End Sub運行結(jié)果：T5代碼設(shè)計：Sub Q(min%, max%, a() As Integer) For i = LBound(a) To UBound(a) a(i) = Int(Rnd * (max - min + 1) + min) NextEnd SubPrivate Sub Command1_Click() Dim m%, n%, mn%, x%() n = (Text1.Text) m = (Text2.Text) mn = (Text3.Text) ReDim x(1 To mn) Q n, m, x() Picture1.Cls For i = 0 To mn - 1 Picture1.Print Tab(i Mod 4) * 8); x(i + 1); NextEnd Sub運行結(jié)果T6代碼設(shè)計Function sum(a!(), n%) sum = 0 For i = 1 To n sum = sum + a(i, i) + a(i, n - i + 1) NextEnd FunctionPrivate Sub Command1_Click() Dim x!(), n% n = Text1.Text ReDim x(1 To n, 1 To n) For i = 1 To n For j = 1 To n x(i, j) = Int(Rnd * 101) Picture1.Print Tab(j - 1) * 6); x(i, j); Next Next Picture1.Print Picture1.Print 兩對角線之和為：; sum(x(), n)End Sub運行結(jié)果T7代碼設(shè)計：Private Sub Command1_Click()For i = 100 To 200If Q(i) = True Then Text1 = Text1 & i & ,Next iEnd SubPrivate Function Q(ByVal a&) As BooleanFor i = 3 To Sqr(a) Step 2If a Mod i = 0 Then Q = False: Exit FunctionNext iQ = TrueEnd Function運行結(jié)果T8代碼設(shè)計Function hw(ByVal x As String) As Boolean Dim n%, i% n = Len(x) For i = 1 To n 2 If Mid(x, i, 1) Mid(x, n - i + 1, 1) Then hw = False Exit Function End If Next i hw = TrueEnd FunctionSub p(m) For i = 2 To m - 1 If m Mod i = 0 Then Exit For End If Next iIf i = m ThenText1.Text = Text1.Text & & mEnd IfEnd SubPrivate Sub Command1_Click() For m = 10000 To 99999 If hw(m) Then Call p(m)End If Next mEnd Sub運行結(jié)果T10代碼設(shè)計：Private Function A(i%)If i 3 ThenA = 1ElseA = A(i - 1) + A(i - 2)End IfEnd FunctionPrivate Sub Command1_Click()Picture1.Print Tab(8); A(20)End Sub運行結(jié)果：2、 實驗/實習(xí)總結(jié)T1,本題較簡單，初次使用Function。T3, Len(Trim(x)理解起來比較難，請教了學(xué)長才明白。T4,本題較簡單，一個Function就完成了。T5，a(i) = Int(Rnd * (max - min + 1) + min)是最重要的一步，解決這步就沒什么問題了。T6,很基礎(chǔ)的題。T7, Boolean的運用可以使這題更簡單，但如何讓TEXT