2007-9上机-级数练习3.docVIP

【典型题1:(改错题)】下列程序的功能是：当自变量x＝0.8时，计算arcsh(x)函数值。计算精确到级数第n项的绝对值小于等于10-5为止。改错时，不得增加或删除语句，但可适当调整语句位置。 1 Option Explicit 2 Private Sub Command1_Click() 3 　　Dim X As Single, I As Integer, N As Single, Sum As Single 4 　　X = Val(Text1) 5 　　Sum = X 6 　　Do 7 　　　　I = 1 8 　　　　N = fun1(X, I) 9 　　　　Sum = Sum + N 10 　　　　I = I + 1 11 　　Loop While N = 0.00001 12 　　Text2 = Sum 13 End Sub 14 Private Function fun1(X As Single, N As Integer) As Single 15 　　Dim I As Integer, Sn As Double 16 　　Sn = 1 17 　　For I = 1 To N 18 　　　　Sn = Sn * (2 * I - 1) / (2 * I) 19 　　Next I 20 　　Sn = (-1) ^ N * Sn * X ^ (2 * N + 1) / (2 * N + 1) 21 End Function 【典型题2:(编程题)】编写程序实现如下功能：按下列公式编写计算正弦函数值的程序。当通项绝对值小于10-5时停止计算。 【编程要求】 1. 程序参考界面如下图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。 2. 标题“求正弦函数值”要求居中，按“计算”按钮，则运行程序；按“清除”按钮，则将文本框Text1和Text2清空，且将焦点设置在Text1上；按“结束”按钮，则停止程序运行。 3. 程序中应至少有一个函数过程。 【典型题6:(改错题)】下列程序的功能是：求出10～99之间所以因子(包含1与该数本数)为奇数，且个数为6的数(下图为参考界面)。改错时，不得增加或删除语句，但可适当调整语句位置。 Option Explicit 2 Private Sub Command1_Click() 3 　　Dim I As Integer, cn() As Integer, S As String 4 　　Dim k As Integer, J As Integer 5 　　For I = 10 To 100 6 　　　　Call cd(I, cn) 7 　　　　For k = 1 To UBound(cn) 8 　　　　　　If cn(k) Mod 2 = 0 Then Exit For 9 　　　　Next k 10 　　　　If k UBound(cn) And UBound(cn) = 6 Then 11 　　　　　　S = CStr(I) = 12 　　　　　　For J = 1 To UBound(cn) 13 　　　　　　　　S = S Str(cn(J)) 14 　　　　　　Next J 15 　　　　　　S = S vbCrLf 16 　　　　End If 17 　　　　 18 　　Next I 19 　　Text1 = S 20 End Sub 21 Private Sub cd(N As Integer, cn() As Integer) 22 　　Dim I As Integer, k As Integer 23 　　For I = 1 To N 24 　　　　k = k + 1 25 　　　　If N Mod I = 0 Then 26 　　　　　　ReDim Preserve cn(k) 27 　　　　　　cn(k) = I 28 　　　　End If 29 　　Next I 30 End Sub