vb课堂作业-1答案.docVIP

程序编写练习 【课堂作业1-1】改编[2009秋1填空] Private Sub Command1_Click() Dim n As Integer, X As Single, S As Single Dim t As Integer, I As Single 方法1不必声明t，方法3不必声明t和I 输入 n = Val(InputBox(n=)) Do X = Val(InputBox(X=)) Loop Until Abs(X) 1 方法1 For I = 0 To n - 1 S = S + (-X) ^ I / (I + 1) Next I Print S 方法2 S = 1: t = 1 For I = 2 To n t = -t * X S = S + t / I Next I Print S 方法3 S = 0 Do While n 0 S = S + (-X) ^ (n - 1) / n n = n - 1 Loop Print S End Sub  程序编写练习 【课堂作业1-2】改编[2009秋编程1] Private Sub Command1_Click() Cls Dim x As Single, f As Single Do x = Val(InputBox(x=)) Loop While x -5 If x 5 Then f = Sqr(x + 5) Else f = 3 + Log(x) / Log(10) End If Print f(x) = f End Sub  程序编写练习 Private Sub Form_Click() Dim f1 As Long, f2 As Long, f3 As Long Dim i As Integer f1 = 1: f2 = 1: i = 2 Do While f3 10000 i = i + 1 f3 = f2 + f1 f1 = f2: f2 = f3 Loop Print 共; i - 1; 项小于 10000 ，其最大值是; f1 End Sub  程序编写练习 【课堂作业1-4】改编[2010春编程1] Private Sub Command1_Click() Dim n As Byte, x As Single, L As Single n = Val(InputBox(n =)) x = Val(InputBox(x =)) Select Case n Case 0: L = 1 Case 1: L = x Case 2: L = (3 * x * x - 1) / 2 Case 3: L = (5 * x * x - 3) * x / 2 Case 4 L = ((35 * x * x - 30) * x * x + 3) / 8 End Select MsgBox L( n , x ) = L End Sub  程序编写练习 【课堂作业1-5】改编[2010春编程2] 方法1：用动态数组存放a1、a2、a3、… Private Sub Form_Click() Dim n As Integer, I As Integer, S As Single Dim A() As Single n = Val(InputBox(n =)) ReDim A(n) For I = 1 To n A(I) = Val(InputBox(A I =)) Next I For I = 1 To n - 1 S = S + A(I) / A(I + 1) Next I Print S End Sub 方法2：用两个变量存放分子和分母 Private Sub Form_Click() Dim n As Integer, I As Integ