源代码及答案.docVIP

问题、源代码及答案 问题、源代码及答案 问题、源代码及答案 问题、源代码及答案 程序功能：求s=1+3+5+7+...直到s2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s 2000 ‘s2000 s = s + i i = i + 1 ‘I=I+2 Loop Print s End Sub 答案：2025 程序功能：根据整型参数m的值，计算公式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值(m=100)。程序的函数fun()中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(100), 0.######) End Sub Private Function fun(n As Integer) As Integer ‘ Single Dim t As Single Dim i As Integer i = 2: t = 1 Do While i =n t = t - 1 / (i * i) i = i + 1 Loop fun = t End Function 答案：0.365016 程序功能：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim N As Integer Dim s As Integer Dim i As Integer For N = 300 To 100 ‘step -1 s = 0 For i = 1 To N If N Mod i = 0 Then s = s + 1 End If Next i If s Mod N = 0 Then ‘N Mod s=0 Print N Exit For End If Next N End Sub 答案：296 程序功能：求四位偶数中，各位数字之和是30的倍数的数之和。程序中有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Dim x%, a%, b%, c%, d% Dim num1 num1 = 0 For x = 1000 To 9999 a = Int(x / 1000) b = Int(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 If a + b + c + d Mod 30 = 0 Then num1 = num1 + x End If Next x Print num1 End Sub 答案：288840 修改如下： For x = 1000 To 9999 Step 2 a = Fix(x / 1000) b = Fix((x - a * 1000) / 100) c = Fix((x - a * 1000 - b * 100) / 10) d = x - a * 1000 - b * 100 - c * 10 If (a + b + c + d) Mod 30 = 0 Then 程序功能：求s=1+3+5+7+...直到s3000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 i = 1 Do Until s 3000 ‘S3000 s = s + i i = i + 1 ‘I=I+2 Loop Print s End Sub 答案：3025 程序功能：根据整型参数m的值，计算公式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值(m=123)。程序的函数fun()中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(123), 0.######) End Sub Private Funct