vb改错Word格式.docx

1、。Dim k As Integer, i As IntegerDim s As Long, t As LongDo While i &= 3 t = 1 k = 1 While k &= 2 * i t = t * k k = k + 1 Wend s = s + tWend403463004题:+6!= 2 i410663005题:求200到400间，能被整除但不能被整除的数的个数。Dim count As IntegerDim x As Integercount = 0x = 200While x &= 400 If x Mod 3 = 0 Or x Mod 7 & 0 Then coun

2、t = count + 1 End If x = x + 1Print count573006题:求200到500间，能被13整除但不能被17整除的数的个数。= 500 If x Mod 13 = 0 Or x Mod 17 &213007题:求1到400间，同时能被3和7整除的数的个数。Private Sub Form_Click（）For x = 1 To 400 if mod（x,3）=0 and mod（x,7）=0 then end ifNext countprint count193008题:求1到500间，同时能被5和9整除的数的个数。For x = 1 To 500 if mo

3、d（x,5）=0 and mod（x,9）=0 then end if113009题:求能被3整除且至少有一位数字为5的三位数的个数。Dim a As Integer, b As Integer, c As Integerx = 100Do While 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 Then853010题:求能被7整除且至少有一位数字为9的三位数的个数。 If x Mod

4、7 & If a = 9 and b = 9 And c = 9 Thenx = x + 1363011题:求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。 b = Int（x / 10） - a * 10 if mod（x,2）=0 OR mod（b+c,10）=a then Loop453012题:求三位奇数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。 if x mod 2=0 Or b+c mod 10=a then3013题:求平方和小于2000的最大自然数。Dim s As Integerx = 0Do While s &= 2000

5、 x = x + 2 s = s + x * xloopPrint x183017题:解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合? 程序中有三行有错误。Dim x As Integer, y As Integer, z As IntegerFor x = 1 To 33 For y = 1 To 50 z = 100 - x - y If 3 * x + 2 * y + z / 2 & 100 Then s = s + 1 Next xNext yPrint s 63018题: 程序中有一行有错误。dm =

6、 1Do While dm &= 100 / 3 xm = 1 Do While xm &= 100 / 2 - dm mj = 100 - dm - xm If dm + xm + mj = 100 Then xm = xm + 1 dm = dm + 13019题:求100-200之间的所有素数个数，程序中有两行有错误。Number = 0For x = 101 To 199 Step 2 i = 2 k = Int（x / 2） Do While i &= k If x Mod i = 0 Then Exit For If i & k Then Number = Number + 1Ne

7、xt xPrint Number3020题:sum=d+dd+ddd+ddd.d（d为1-9的数字）。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为8，n的值为9，求sum的值。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 n tn = tn + d sum = sun + tn Next i Print sum8641975233021题:输出水仙花的个

8、数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。例如153是一个水仙花数，因为13+53+33=153）程序中有两行有错误。Option ExplicitDim number As IntegerDim n As Integer, i As Integer, j As Integer, k As IntegerFor n = 100 To 999 i = n / 100 百位 j = Int（n / 10） - i * 10 十位 k = n Mod 10 个位 If （n = i * i * i + j * j * j + k * k * k） Then numbe

9、r = numbre + 1Next nPrint number43022题:求数列2/1，3/2，5/3，8/5，13/8，的前10项之和。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=0 s = s + a / b t = b a = a + b a = tNext i16.479913023题:猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问

10、第1天共摘了多少桃子。Dim day As Integer, sum As Integerday = 10; sum = 1Do While day &1 sum = sum * 2 day = day - 1Print sum15343025题:求1200之间的能被7整除的数的平方和。程序有两处错误。Dim sum As integerx = 1= 200If x Mod 7 = 0 sum = sum + x 2End If3779863026题:求199的平方根的和并输出结果。（保留小数点两位），程序中有两行有错误。Dim sum As Integer= 99 sum = sum + S

11、qrt（x）Print Round（sum, 2） 661.463027题:求155的平方根的和并输出结果。（保留小数点两位）程序中有两行有错误。= 55275.433028题:统计11000中能被3整除的数的个数。Dim i As Integeri = 3Do While I&= 1000 If x mod 3 = 0 Theni = i + 13333029题:输出1100中所有整数的平方和。程序中有错误。Do Until x & 100 sum = sum + x 23283503030题:求1,5000内能被5整除的前若干个偶数之和，直到和大于50000为止。Dim s As Long

12、x = 2= 5000 If x Mod 50 Then s = s + x If s & 50000 Then Exit for x = x +1505003031题:求3000以内能被17或23整除的正整数的个数。For x = 1 To 3000 step -1 If x Mod 17 = 0 and x Mod 23 = 0 Then2993032题:已知一个数列的前3项为0，0，1，以后每项为前3项的和，求此数列的第36项。Dim a As LongDim b As LongDim c As LongDim d As Longa = 0: b = 0: c = 1For i = 1

13、To 36 d=a a=b b=c c=a+b+cPrint c3347457773033题:求数列2,4,8,16,32,前若干项之和。当和大于9000时，终止求和并输出结果。DoUntil s & 9000163823034题:求351,432之间既不能被3整除,也不能被8整除的正整数的个数。Dim c As IntegerFor x = 351 To 432 If x Mod 3 & 0 or x Mod 8 & c = c + 1Next c试题要求：源程序文件名：试题答案： 47考试语种：试卷编号： 1034第35小题：求444,666中最大的素数。For x = 666 To 444 k = Int（Sqr（x） For i = 2 To k If x Mod i = 0 Then Exit Do Print x Exit For6613035题:已知24有8个正整数因子（即