程序设计基础——Visual Basic学习与实验指导 教学课件 作者 陈丽芳习题答案 第10章实验答案.docVIP

实验10-2： Private Sub Command1_Click() Dim y As Integer For i = 0 To 2 If Option1(i) = True Then y = Val(Option1(i).Caption) End If Next Call calc(y) End Sub Private Sub calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 Do While i = 5 If x Mod y = 0 Then List1.AddItem x i = i + 1 End If x = x + 1 Loop End Sub Private Sub ClearList() For k = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem k Next k End Sub 实验10-3： Private Sub Command1_Click() Dim m As Integer Dim n As Integer, i As Integer, s As Long m = Val(Text1.Text) n = Val(Text2.Text) s = 0 For i = m To n t = f(i) s = s + t Next lblresult.Caption = s End Sub Private Function f(ByRef x As Integer) As Long Dim t As Long t = 1 For i = 1 To x t = t * i Next f = t End Function 实验10-4： 在窗体模块中 Private Sub Form_Click() Dim m As Integer, n As Integer Call f(Val(Text1(0).Text), Val(Text1(1)), Val(Text1(2)), m) Call f(Val(Text1(3)), Val(Text1(4)), Val(Text1(5)), n) If m n Then Text2 = m Else Text2 = n End Sub 在标准模块中 Public Sub f(a As Integer, b As Integer, c As Integer, x As Integer) If a b Then x = a Else x = b If x c Then x = c End Sub 实验10-5： Option Explicit Private Function gcd(ByVal m As Integer, ByVal n As Integer) As Integer Dim r As Integer r = m Mod n If r = 0 Then gcd = n Else m = n: n = r gcd = gcd(m, n) End If End Function Private Sub Command1_Click() Dim n As Integer, p As Integer n = Val(Text1) For p = n - 1 To 2 Step -1 If gcd(n, p) = 1 Then List1.AddItem p Next p End Sub 实验10-8-1： Function fib(n As Integer) As Integer If n = 1 Or n = 2 Then fib = 1 Else fib = fib(n - 1) + fib(n - 2) End If End Function Private Sub Command1_Click() Dim m As Integer, i As Integer m =