問題源代碼及答案

程序功能：求s=1+3+5+7+...直到s>2000為止。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
i = 1
Do Until s < 2000?????? ‘s>2000
?? s = s + i
?? i = i + 1??????????? ‘I=I+2
Loop
Print? s
End Sub
?
答案：2025
程序功能：根據(jù)整型參數(shù)m的值，計(jì)算公式t=1-1/(2*2)-1/(3*3)-…-1/(m*m)的值(m=100)。程序的函數(shù)fun()中有一行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。
?
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個(gè)正整數(shù)因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子個(gè)數(shù)8整除。求[100,300]之間能被其因子數(shù)目整除的數(shù)中最大的數(shù)。程序中有兩行有錯(cuò)誤。改正錯(cuò)誤，使它能輸出正確的結(jié)果。
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