【隐身守候】
2020-05-30 17:05
采纳率: 100%
浏览 243

编程初学者,求各位大佬帮忙!真的非常谢谢了!

程序改错
1.程序功能:把一张百元钞票,换成一元、二元和五钞票,每种至少8张,求对换方案数。程序中有两行有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
n = 0
'下一行程序有错!
For x = 1 To 100
For y = 8 To 50
For z = 8 To 20
'下一行程序有错!
If x + y + z = 100 Then n = n + 1
Next z
Next y
Next x
End sub

2.程序功能:计算y=1+2/3+3/5+4/7+…+n/(2*n-1)(n=50), 要求:按四舍五入的方式精确到小数点后第二位。程序中有一处错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim s As Single
Dim n As Integer
s = 0
For n = 1 To 50
'下一行程序有错
s = s + n / 2 * n - 1
Next n
Print Round(s, 2)
End Sub

3.程序功能:求[351,432]之间既不能被3整除,也不能被8整除的正整数的个数。程序中有一处错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim c As Integer
Dim x As Integer
For x = 351 To 432
If x Mod 3 <> 0 And x Mod 8 <> 0 Then
c = c + 1
End If
'下一行程序有错
Next c
Print c
End Sub

4.程序功能:求1~200之间的能被7整除的数的平方和。程序有一处错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim x As Integer
Dim sum As Long
x = 1
sum = 0
While x <= 200
'下一行程序有错
If x / 7 = 0 Then
sum = sum + x ^ 2
End If
x = x + 1
Wend
Print sum
End Sub

5.程序功能:求1到400间,同时能被3和7整除的数的个数。程序中有一处错误。改正错误,使它能输出正确的结果。
Private Sub Form_Click()
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 x
Print count
End Sub

6.程序功能:求200到400间,能被3整除但不能被7整除的数的个数。程序中有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim count As Integer
Dim x As Integer
count = 0
x = 200
While x <= 400
If x Mod 3 = 0 And x Mod 7 <> 0 Then
count = count + 1
End If
x = x + 1
'下一行程序有错
Loop

7.程序功能:求s=1+3+5+7+...直到s>2000为止。程序中有一行有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim i As Integer, s As Long
s = 0
i = 1
Do Until s > 2000
s = s + i
'下一行程序有错
i = i + 1
Loop
Print s
End Sub

8.程序功能:求个位数是6,且能被3整除的所有四位数之和。程序中有一行错误,改正错误,使程序能输出正确的结果。
Private Sub Command1_Click()
Dim i%
Dim s&
s = 0
For i = 1000 To 9999
'下一行程序有错!
If i Mod 3 = 0 and i Mod 1000 = 6 Then
s = s + i
End If
Next I
Print s
End Sub

9.程序功能:求所有符合算式ij*ji=1300的最小数ij。其中i、j是1~9之间的一位整数。 程序中有一行错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To 9
'下一行程序有错!
If ij * ji = 1300 Then
Print 10 * i + j
Exit Sub
End If
Next j
Next I
End Sub

10.程序功能:我国今年的国民生产总值为275600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误,使它能输出正确的结果。
Private Sub Command1_Click()
Dim p As Long, p1 As Long
Dim n As Integer
n = 0
p1 = 275600
p = p1
Do
'下一行程序有错!
p = p * (1 + 9)
n = n + 1
'下一行程序有错!
Loop Until p <= 2 * p1
Print n
End Sub

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 邀请回答

1条回答 默认 最新

相关推荐 更多相似问题