VB程序设计题库.docx

文档介绍：9、Visual Basic 程序改错
程序功能：求s=l+3+5+7+...直到s>2000为止。程 序中有两行有错误。改正错误，使它能输出正确的结果。 (2025)平方和
Private Sub Form_Click 0
Dim i As Integer, s As Long
s = 0 : i = 1
Do Until s v 2000
s 二 s + i
i = i+ 1
Loop
Print s
End Sub
答案：s>2000 ; i+2
程序功能：计算s=2!+4!+8!。程序中有两行有错误。 改正错误，使它能输出正确的结果。(40346)
Private Sub Commandl_Click0
Dim k As Integer, i As Integer
Dim s As Long, t As Long
s = 0
i = 1
Do Wh订e i <= 3
t = 1
k = 1
While k 〈二 2*i
t = t * k
k 二 k + 1
Wend
s = s + t
i = i + 1
wend
Print s
End Sub
答案：k〈=2"i ; loop
程序功能：计算s=2!+4!+6!+8!o程序中有错误。改 正错误，使它能输出正确的结果。(41066)
Private Sub Commandl_Click 0
Dim k As Integer, i As Integer
Dim s As Long, t As Long
s 二 0 : i = 1
Do i <= 4
t = 1
k = 1
While k〈= 2"
t = t * k
k 二 k + 1
Wend
s = s + t
i = i + 1
wend
Print s
End Sub
答案：k〈=2*i ; loop
程序功能：求200到400间，能被3整除但不能被 7整除的数的个数。程序中有两行有错误。改正错误， 使它能输出正确的结果。(57)
Private Sub Commandl_Click0
Dim count As Integer
Dim x As Integer
count = 0
x 二 200
While x <= 400
If x Mod 3 = 0 or x Mod 700 Then count = count + 1
End If
x = x + 1
Loop
Print count
End Sub
答案： and ; wend
程序功能：求1到400间，同时能被3和7整除的 数的个数。程序中有两行有错误。改正错误，使它能输 出正确的结果。(19)
Private Sub Form_Click 0
Dim count As Integer
Dim x As Integer
For x = 1 To 400
if mod(x,3)=0 and mod(x,7)=0 then
count 二 count + 1
end if
Next count
Print count
End Sub
答案：x Mod 3 = 0 And x Mod 7= 0; x
程序功能：求能被3整除且至少有一位数字为5的 三位数的个数。程序中有两行有错误。改正错误，使它 能输出正确的结果。(85)
Private Sub Commandl_Click0
Dim count As Integer
Dim a As Integer, b As Integer, c As Integer
Dim x As Integer
x 二 100
do x〈二 999
If x Mod 3=0 Then
a = Int(x / 100)
b 二 Int ((x - a * 100) / 10)
c 二 x - a * 100 - b * 10
If a 二 5 and b = 5 and c = 5 Then
count 二 count + 1
End If
End If
x 二 x + 1
wend
Print count
End Sub
答案：a = 5orb = 5orc = 5 ; loop
程序功能：求三位偶数中，个位数字与十位数字之 和除以10所得的余数是百位数字的数的个数。程序中 有两行有错误。改正错误，使它能输出正确的结果。(45) 奇数都是45
Private Sub Commandl_Click0
Dim count As Integer
Dim a As Integer, b As Integer, c