《大一vb考试试题.doc》由会员分享，可在线阅读，更多相关《大一vb考试试题.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、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_Clic
2、k()求平方和小于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整除
3、的正整数的个数。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
4、 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 统计
5、符合条件的数 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），如果分成
6、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
7、* 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的值。程序中有两处错误。改正错误，使它能输出正确的结果。Dim d As Integer, n As Integer, i As IntegerDim tn As Long, sum As Longsum
8、= 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 iPr
9、int 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 Command
10、3_Click()求四位奇数中，所有各位数字之和是25的倍数的数之和。For 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的整数倍的数的个数。215
11、For 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
12、= 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项。a = 0b = 0c = 1For i = 4 To 36 d = a + b + c a = b b = c c = dNext iPrint d;End SubPrivate Sub Command1_Cli
13、ck()判定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
14、= 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 = I
15、nt(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 = 0 计数器For i = 1000 To 9999a = Int(i / 1000) 千位数b = Int(i - a * 1000) / 100) 百位数c = Int(i - a * 1000 - b * 100) / 10) 十位数d = i Mod 10 个位数 If a = d And b = c And i Mod 2 0 Then 千位和个位相同且百位和十位相同的奇数 n = n + 1 计数 End IfNext iPrint nEnd Sub