vb程序改错题3.docVIP

vb程序改错题3 程序改错题 第 42 题答案：275.43 程序功能：求1~55的平方根的和并输出结果。（保留小数点两位）程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Integer Dim sum As Integer x = 1 Do While x = 55 sum = sum + Sqrt(x) x = x + 1 Loop Print Round(sum, 2) End Sub 第 43 题答案：1078289 程序功能：设某四位数的千位数字与十位数字的和等于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，求所有这样的四位数之和。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() sum = 0 For x = 1000 To 9999 a = Int(x / 1000) b = Int(x / 100) - a * 100 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 If a + c = b * d Then sum = sum + x End If Next x Print sum End Sub 第 115 题答案：2025 程序功能：求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 s = s + i i = i + 1 Loop Print s End Sub 第 116 题答案：3025 程序功能：求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 s = s + i i = i + 1 Loop Print s End Sub 第 117 题答案：45 程序功能：求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim a As Integer, b As Integer, c As Integer Dim x As Integer count = 0 x = 100 While x = 999 a = Int(x / 100) b = Int(x / 10) - a * 10 c = x - a * 100 - b * 10 if x mod 2=0 Or b+c mod 10=a then count = count + 1 End If x = x + 1 Loop Print count End Sub 第 118 题答案：21 程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 500 If x Mod 13 = 0 Or x Mod 17 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub 第 119 题答案：3070 程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。 Option Explicit Private Sub Form_Click() Dim day As Integer, sum As Integer day = 10; sum = 1 Do While day 0 sum = sum * 2 day = day - 1 L