VB程序设计多试题及答案资料.doc
9、Visual Basic程序改错81. 程序功能：求s=1+3+5+7+.直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 (2025) 平方和Private Sub Form_Click()Dim i As Integer, s As Longs = 0 : i = 1Do Until s < 2000s = s + ii = i + 1LoopPrint sEnd Sub答案：s>2000 ; i+22. 程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。 (40346)Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i <= 3t = 1k = 1While k <= 2*it = t * kk = k + 1Wends = s + ti = i + 1wendPrint sEnd Sub答案：k<=2i ; loop 3. 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 (41066)Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0 : i = 1Do While i <= 4t = 1k = 1While k <= 2it = t * kk = k + 1Wends = s + ti = i + 1wendPrint sEnd Sub答案：k<=2*i ; loop4. 程序功能：求200到400间，能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(57)Private Sub Command1_Click()Dim count As IntegerDim x As Integercount = 0x = 200 While x <= 400If x Mod 3 = 0 or x Mod 7 <> 0 Thencount = count + 1End Ifx = x + 1LoopPrint countEnd Sub答案： and ; wend5. 程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(19)Private Sub Form_Click()Dim count As IntegerDim x As IntegerFor x = 1 To 400if mod(x,3)=0 and mod(x,7)=0 thencount = count + 1end ifNext countPrint countEnd Sub 答案：x Mod 3 = 0 And x Mod 7= 0; x6. 程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(85)Private Sub Command1_Click()Dim count As IntegerDim a As Integer, b As Integer, c As IntegerDim x As Integerx = 100do While x <= 999If x Mod 3 = 0 Thena = Int(x / 100)b = Int(x - a * 100) / 10)c = x - a * 100 - b * 10If a = 5 and b = 5 and c = 5 Thencount = count + 1End IfEnd Ifx = x + 1wendPrint countEnd Sub答案：a = 5 or b = 5 or c = 5 ; loop7. 程序功能：求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(45) 奇数都是45Private Sub Command1_Click()Dim count As IntegerDim a As Integer, b As Integer, c As IntegerDim x As Integercount = 0x = 100While x <= 999a = Int(x / 100)b = Int(x / 10) - a * 10c = x - a * 100 - b * 10If Mod(x,2) = 0 or mod(b + c,10) = a Thencount = count + 1End Ifx = x + 1loopPrint countEnd Sub 答案：x Mod 2 = 0 And (b + c) Mod 10 = a; wend8. 程序功能：求平方和小于2000的最大自然数。程序中有两行有错误。改正错误，使它能输出正确的结果。(18)Private Sub Form_Click()Dim x As IntegerDim s As Integers = 0x = 0Do While s >= 2000x = x + 2s = s + x * xloopPrint xEnd Sub 答案：s<=2000 ; x = x + 19. 程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合? 程序中有三行有错误。改正错误，使它能输出正确的结果。( 6 )Private Sub Form_Click()Dim x As Integer, y As Integer, z As IntegerDim s As Integers = 0For x = 1 To 33For y = 1 To 50z = 100 - x - yIf 3 * x + 2 * y + z / 2 <>100 Thens = s + 1End IfNext xNext yPrint sEnd Sub 答案：3 * x + 2 * y + z / 2 = 100; Next y; Next x10. 程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。( 21)Private Sub Command1_Click()Number = 0For x = 101 To 199 Step 2i = 2k = Int(x/2)Do While i <= kIf x Mod i = 0 Then Exit fori = i + 1LoopIf i < k ThenNumber = Number + 1End IfNext xPrint NumberEnd Sub 答案：exit do ;i>k11. 程序功能：sum=d+dd+ddd+ddd.d(d为1-9的数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为8，n的值为9，求sum的值。程序中有两行有错误。改正错误，使它能输出正确的结果。 987654312Private Sub Form_Click()Dim d As Integer, n As Integer, i As IntegerDim sum As Longsum = 0d = Val(InputBox("d:")n = Val(InputBox("n:")For i = 1 To ntn = tn + dsum = sun + tnNext iPrint sumEnd Sub答案：tn = tn * 10 + d；sum=sum+tn12. 程序功能：输出水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。例如153是一个水仙花数，因为13+53+33=153）程序中有两行有错误。改正错误，使它能输出正确的结果。 4Private Sub Form_Click()Dim number As IntegerDim n As Integer, i As Integer, j As Integer, k As IntegerFor n = 100 To 999i = n / 100 百位j = Int(n / 10)-I*10 十位k = n Mod 10If n = i * i * i + j * j * j + k * k * k Then number = numbre + 1End IfNext nPrint numberEnd Sub 答案：j = Int(n - i * 100) / 10); number=number+113. 程序功能：求数列2/1，3/2，5/3，8/5，13/8，的前10项之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 16.47991Private Sub Form_Click()Dim i As Integer, t As Integer, n As IntegerDim a As Integer, b As IntegerDim s As Singlea = 2: b = 1: n = 10: s = 0For i = 1 To ns = s + a / bt =ba = a + ba = tNext iPrint sEnd Sub答案：t = a ; b = t14. 程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。 1534Private Sub Form_Click()Dim day As Integer, sum As Integerday = 10 ; sum = 1Do While day > 1sum = sum * 2day = day - 1LoopPrint sumEnd Sub 答案：day = 10 : sum = 1 ; sum = (sum + 1) * 215. 程序功能：求1200之间的能被7整除的数的平方和。程序有两处错误。改正错误，使它能输出正确的结果。 377986Private Sub Command1_Click()Dim x As IntegerDim sum As Integerx = 1sum = 0While x <= 200If x Mod 7 = 0 sum = sum + x 2End Ifx = x + 1Wend
