大一vb考试试题.doc

Private Sub Command1_Click()求s=1+3+5+7+.直到s2000为止。For i = 1 To 1000 Sum = Sum + i If Sum 2000 Then Print i: Exit ForNext iEnd SubPrivate Sub Command2_Click()计算s=2!+4!+6!+8!+.+N!s = 1n = InputBox(n=)For i = 2 To n Step 2 s = s * i * (i - 1) Sum = Sum + sNext iPrint SumEnd SubPrivate Sub Command3_Click()求平方和小于2000的最大自然数。18s = 1For i = 1 To 1000 s = i * i Sum = Sum + s If Sum = 2000 Then Print i: Exit ForNext iEnd SubPrivate Sub Command4_Click()求200到400间，能被整除但不能被整除的数的个数。57For i = 200 To 400 If i Mod 3 = 0 And i Mod 7 0 Then n = n + 1Next iPrint nEnd SubPrivate Sub Command5_Click()求3000以内能被17或23整除的正整数的个数。299For i = 1 To 3000 If i Mod 17 = 0 Or i Mod 23 = 0 Then n = n + 1Next iPrint nEnd SubPrivate Sub Command6_Click()求能被3整除且至少有一位数字为5的三位数的个数。85For i = 100 To 999 a = Int(i / 100) b = Int(i - a * 100) / 10) c = i Mod 10 If i Mod 3 = 0 And (a = 5 Or b = 5 Or c = 5) Then n = n + 1Next iPrint nEnd SubPrivate Sub Command1_Click()已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问100,300之间有多少个这样的数Dim n1 As Integer, n2 As IntegerDim x As IntegerDim i As Integern2 = 0For x = 100 To 300 n1 = 0 For i = 1 To x If x Mod i = 0 Then 找因子 n1 = n1 + 1 统计因子 End If Next i If x Mod n1 = 0 Then n2 = n2 + 1 统计符合条件的数 End IfNext xPrint n2End SubPrivate Sub Command2_Click()求 200,300之间的有奇数个不同因子的最大整数。289For x = 300 To 200 Step -1 n = 0 For i = 1 To x If x Mod i = 0 Then n = n + 1 统计因子个数 End If Next i If n Mod 2 0 Then 判断奇数 Print x Exit For End IfNext xEnd SubPrivate Sub Command3_Click()有一堆零件（零件个数不超过1000），如果分成4个零件一组余2个；7个一组余3个； 9个一组余5个。求这堆零件的个数有几种可能。4Dim i%, x%For x = 1 To 1000 If x Mod 4 = 2 And x Mod 7 = 3 And x Mod 9 = 5 Then i = i + 1 End IfNext xPrint iEnd SubPrivate Sub Command4_Click()百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法。4For x = 0 To 19 For y = 0 To 33 z = 100 - x - y 鸡的总数是100 If 5 * x + 3 * y + z / 3 = 100 Then n = n + 1 Print x, y, z End If NextNextPrint n; 种方案End SubPrivate Sub Command5_Click()sum=d+dd+ddd+ddd.d(d为1-9的数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为2，n的值为9，求sum的值。程序中有两处错误。改正错误，使它能输出正确的结果。246813578Dim d As Integer, n As Integer, i As IntegerDim tn As Long, sum As Longsum = 0tn = 0d = Val(InputBox(请输入数值d:)n = Val(InputBox(请输入数值n:)For i = 1 To n tn = tn + d sum = sum + tnNext iPrint sumEnd SubPrivate Sub Command6_Click()百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。3s = 0cock = 1Do While cock = 100 / 5 hen = 1 Do While hen 50000 Then Exit ForNext iPrint SumEnd SubPrivate Sub Command2_Click()设某四位数的各位数字的平方和为100，且该数能被3整除。求这样的数的个数。24For i = 1000 To 9999 a = Int(i / 1000) b = Int(i - a * 1000) / 100) c = Int(i - a * 1000 - b * 100) / 10) d = i Mod 10 If a 2 + b 2 + c 2 + d 2 = 100 And i Mod 3 = 0 Then n = n + 1Next iPrint nEnd SubPrivate Sub Command3_Click()求四位奇数中，所有各位数字之和是25的倍数的数之和。1298515For i = 1001 To 9999 Step 2 a = Int(i / 1000) b = Int(i - a * 1000) / 100) c = Int(i - a * 1000 - b * 100) / 10) d = i Mod 10 If (a + b + c + d) Mod 25 = 0 Then Sum = Sum + iNext iPrint SumEnd SubPrivate Sub Command4_Click()求1000,9999之间能被7整除，且每位数字之和等于6的整数倍的数的个数。215For i = 1000 To 9999 If i Mod 7 = 0 Then a = Int(i / 1000) b = Int(i - a * 1000) / 100) c = Int(i - a * 1000 - b * 100) / 10) d = i Mod 10 If (a + b + c + d) Mod 6 = 0 Then n = n + 1 End IfNext iPrint n End SubPrivate Sub Command5_Click()计算在100，500内有多少个这样的数：各位数字之积大于各位数字之和（如：133，1*3*31+3+3）。295For i = 100 To 500 a = Int(i / 100) b = Int(i - a * 100) / 10) c = i Mod 10 If a * b * c a + b + c Then n = n + 1Next iPrint nEnd SubPrivate Sub Command6_Click()已知一个数列的前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。334745777a = 0b = 0c = 1For i = 4 To 36 d = a + b + c a = b b = c c = dNext iPrint d;End SubPrivate Sub Command1_Click()判定167是不是素数n = 167k = n - 1For i = 2 To k If n Mod i = 0 Then Exit For 如果有因子则退出循环，该数不是素数NextIf i k Then Print n; 是素数 Else Print n; 不是素数End SubPrivate Sub Command2_Click()计算两个数的最大公约数。a = InputBox(请输入第一个整数)b = InputBox(请输入第二个整数)If a b Then t = a: a = b: b = tDo c = a Mod b 求余数 a = b 把除数作为下一次的被除数 b = c 把余数作为下一次的除数Loop Until c = 0Print 最大公约数是：; aEnd SubPrivate Sub Command3_Click()计算两个数的最小公倍数。Dim a As IntegerDim b As IntegerDim i As Longa = InputBox(请输入第一个整数)b = InputBox(请输入第二个整数)i = aDo While i Mod b 0 i = i + aLoopPrint iEnd SubPrivate Sub Command4_Click()100-999以内的水仙花数For i = 100 To 999 a = Int(i / 100) 得到百位上的数字 b = Int(i - 100 * a) / 10) 得到十位上的数字 c = i Mod 10 得到个位上的数字 If a 3 + b 3 + c 3 = i Then Print i 判断此数是否水仙花数 End IfNextEnd SubPrivate Sub Command5_Click()回文数是指正读和反读都一样的正整数。例如3773是回文数。求1000，9999之间的奇数回文数的个数。n