問(wèn)題源代碼及答案
推薦 + 挑錯(cuò) + 收藏(0) + 用戶評(píng)論（0）
問(wèn)題源代碼及答案
程序功能：求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
非常好我支持^.^
(6) 100%
不好我反對(duì)
(0) 0%
下載地址
問(wèn)題源代碼及答案下載
相關(guān)電子資料下載
- Makefile簡(jiǎn)介和使用方法 530
- 當(dāng)一名高職生成為開(kāi)源代碼頂級(jí)貢獻(xiàn)者 111
- git命令的基本使用 361
- 分享一套生產(chǎn)管理MES系統(tǒng)源碼，可以直接拿來(lái)搞錢(qián)的好項(xiàng)目 142
- C/c++源代碼qt軟件 svn版本管理開(kāi)發(fā)如何防泄密？ 48
- 為什么安秉信息的源代碼防泄密軟件這么穩(wěn)定？ 76
- C語(yǔ)言必備知識(shí)編譯預(yù)處理 421
- 非常可靠的c#+svn或git服務(wù)器源代碼防泄密方案 全解析 82
- 極狐GitLab—新一代源代碼管理倉(cāng)庫(kù) 153
- 能夠生成java文檔注釋的命令 140