编程答案Word格式文档下载.docx

1、有一台阶,如果每次走两阶,最后剩一阶;如果每次走三阶,最后剩两阶;如果每次走四阶,最后剩三阶;如果每次走五阶,最后剩四阶;如果每次走六阶,最后剩五阶;如果每次走七阶,刚好走完.求满足上述条件的最小台阶数是多少？1197编程求取：121,140 之间的弦数的个数（若某正整数的平方等于另两个正整数平方之和，则称该数为弦数. 例如:32+42=52, 因此5是弦数）。8编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。159编写程序，计算在0，60的范围内有多少个数，其每位数的乘积大于每位数的和。3110编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500

2、时退出，输出该和值。55011编写程序，求出17000以内能被3或者7整除的数的个数。300012编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。2613编写程序，求出3到100之间的所有非偶数非素数的数之和。144114编写程序，求共有几组i,j,k符合算式ijk+kji=1534,其中i,j,k是0,9之间的一个整数且i2）称为E数列，每一个E（n）,（n=1,2,）称为E数。求1，30000之内E数的个数。39一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数。如13，试求所有两位绝对素数的和。42940已知：f（0）=f（1）=1 f（2）

3、=0 f（n）=f（n-1）-2*f（n-2）+f（n-3） （n求f（0）到f（50）中的最大值。59832541f（n）=f（n-1）+2*f（n-2）-5*f（n-3）,f（0）=1,f（1）=2,f（2）=3,求f（0）+f（1）+f（30）。-75087442A1=1, A2=1/（1+A1）, A3=1/（1+A2）, A4=1/（1+A3）, , 求A50.（按四舍五入的方式精确到小数点后第三位）。0.61843已知A，B为正整数, AB, A*B=2698，且要求A+B取最小值，求满足上述条件的B值。7144已知A=B，求所有小于或等于100（即：A=100,B=100，AB,

4、A和B均不为0）的自然数对中B之和。116046有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花3元，每个小学生花2元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？程序功能：求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 2025 3000为止。

5、3000 s = s + i i = i + 1 Loop Print s End Sub 3025 计算s=2!+4!+8!。Private Sub Command1_Click（） Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1 Do While 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 40346 +6!= 2 i t = t * k k = k

6、 + 1 Wend s = s + t i = i + 1 Wend Print s End Sub 41066 求200到400间，能被整除但不能被整除的数的个数。Private Sub Command1_Click（） Dim count As Integer Dim x As Integer count = 0 x = 200 While x = 400 If x Mod 3 = 0 Or x Mod 7 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub 57 求200到500间，能被13整除但不能被17

7、整除的数的个数。= 500 If x Mod 13 = 0 Or x Mod 17 21 求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 count print count End Sub 19 求1到500间，同时能被5和9整除的数的个数。Private Sub Command1_Click（） Dim cou

8、nt As Integer Dim x As Integer For x = 1 To 500 if mod（x,5）=0 and mod（x,9）=0 then count = count + 1 end if Next count print count End Sub 11 求能被3整除且至少有一位数字为5的三位数的个数。Private Sub Command1_Click（） Dim count As Integer Dim a As Integer, b As Integer, c As Integer Dim x As Integer x = 100 Do While x = 99

9、9 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 85 求能被7整除且至少有一位数字为9的三位数的个数。= 999 If x Mod 7 0 Then a = Int（x / 100） b = Int（x - a * 100） / 10） c = x - a * 1

10、00 - b * 10 If a = 9 and b = 9 And c = 9 Then count = count + 1 End If End If x = x + 1 Loop Print count End Sub 36 求三位偶数中，个位数字与十位数字之和除以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 = 2000 x

11、 = x + 2 s = s + x * x loop Print x End Sub 18 求1100中, 两个不同的数之和能被3或7整除的“数对”的对数 （注意:3+5和5+3认为是同一“数对”） ？ 程序中有两行有错误。Private Sub Form_Click（） Dim n As Integer, i As Integer n = 0 i = 1 Do While i = 100 J = 1 Do While J = 100 IF MOD（I+J,3）0 OR MOD（I+J,7）=0 then n = n + 1 End If J = J + 1 Loop i = i - 1 L

12、oop Print n/2 End Sub 2121 解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合? 程序中有三行有错误。Private Sub Form_Click（） Dim x As Integer, y As Integer, z As Integer Dim s As Integer s = 0 For 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 End If Next

13、 x Next y Print s End Sub 6 程序中有一行有错误。Private Sub Form_Click（） s = 0 dm = 1 Do While dm = 100 / 3 xm = 1 Do While xm = 100 / 2 - dm mj = 100 - dm - xm If dm + xm + mj = 100 Then s = s + 1 End If xm = xm + 1 Loop dm = dm + 1 Loop Print s End Sub 求100-200之间的所有素数个数，程序中有两行有错误。Private Sub Command1_Click（

14、） Number = 0 For x = 101 To 199 Step 2 i = 2 k = Int（x / 2） Do While i = k If x Mod i = 0 Then Exit For i = i + 1 Loop If i 1 sum = sum * 2 day = day - 1 Loop Print sum End Sub 1534 程 序功能：一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数46，请找到另一个两 位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。Private Sub Form_Click（） Dim x As Integer, y As Integer,number as Integer Dim xf As Integer, yf As In