《程序设计基础——Visual Basic学习与实验指导 教学课件 ppt 作者 陈丽芳习题答案 第10章实验答案》由会员分享,可在线阅读,更多相关《程序设计基础——Visual Basic学习与实验指导 教学课件 ppt 作者 陈丽芳习题答案 第10章实验答案(5页珍藏版)》请在金锄头文库上搜索。
1、实验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 SubPrivate Sub calc(y As Integer) ClearList i = 1 x = Val(Text1.Text) + 1 Do While i n Then Text2 = m Else Text2 = nEnd Sub在标准模块中Public Sub f(a As Int
2、eger, b As Integer, c As Integer, x As Integer)If a b Then x = a Else x = bIf x c Then x = cEnd Sub实验10-5:Option ExplicitPrivate 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 IfEnd FunctionPriv
3、ate 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 pEnd 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 IfEnd FunctionPrivate Sub Command1
4、_Click() Dim m As Integer, i As Integer m = InputBox(请输入项数:) For i = 1 To m List1.AddItem fib(i) Next iEnd Sub实验10-8-2:Function fxn(x!, n%) As Single If n 0 Then fxn = fxn(x, n + 1) / x ElseIf n = 0 Then fxn = 1 Else fxn = x * fxn(x, n - 1) End If End FunctionPrivate Sub Command1_Click() Dim x As Si
5、ngle, n As Integer x = Val(Text1) n = Val(Text2) Text3 = fxn(x, n) End Sub实验10-9:Function proc1(n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 1 To n f = f * i Next i proc1 = fEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, sum As Single i = 1: n = 1 Do t = i / proc1(i +
6、1) sum = sum + (-1) (n + 1) * t i = i + 2 n = n + 1 Loop Until Abs(t) = 0 Then Call qg(a, b, c, x1, x2) Text4 = x1 Text5 = x2 End IfEnd Sub实验10-11:Private Sub Command1_Click() Dim i As Integer, N As Integer, n1 As Integer, n2 As Integer For i = 1000 To 9999 n1 = i 100 n2 = i Mod 100 If sum(n1) = sum
7、(n2) Then N = N + 1 List1.AddItem CStr(i) End If Next i Text1 = N End Sub Private Function sum(s As Integer) As Integer Dim p As Integer, Q As Integer p = s 10 Q = s Mod 10 sum = p + Q End Function实验10-12:Private Function change(s As String) As StringDim p As String, i As IntegerFor i = 1 To Len(s) If i 2 Then p = p & Mid(s, i, 1) End IfNext ichange = pEnd FunctionPrivate Sub Command1_Click() Dim i As Integer, s As String For i = 1000 To 9999 s = CStr(i) If Mid(s, 2, 1) = 0 Then If Val(change(s) * 9 = i Then List1.AddItem (s + = + change(s) + *9) End If End IfNext iEnd Sub