湖南省计算机二级题库3 程序填空
【1】:求方程5X-4Y=2，在|X|<=100,|Y|<=50内的整数解中|X|+|Y|最大值。 Private Sub Form_click() Max = 0 For x = -100 To 100 For y = -50 To 50 If 5 * x - 4 * y = 2 Then s = Abs(x) + Abs(y)
________________________________ End If Next y Next x Print Max End Sub
【86】
【2】:统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除。 Private Sub
cmdEveryNumCount_Click() Dim count As Integer count = 0 FontSize = 14: FontBold = True For i = 521 To
8421 Select Case i Case 521 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (a + b + c) Mod 7 = 0
Then count = count + 1 Case ________________ a = i \ 1000 b = i \ 100 Mod 10 c = i \ 10 Mod 10 d = i Mod
10 If (a + b + c + d) Mod 7 = 0 Then count = count + 1 End Select Next i Print count End Sub
【1126】
【3】:设某四位数的各位数字的平方和等于100，共有多少个这种四位数, Private Sub cmdFourSqr_Click() Dim a, b, c, d, i, count As Integer count = 0 i = 1111 FontSize = 14: FontBold = True Print: Print: Print
Do Until i > 9999 a = i \ 1000 b = (i Mod 1000) \ 100 c = ________________ d = i Mod 10 If 100 = a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 Then count = count + 1 i = i + 1 Loop Print count End Sub
【49】
【4】:求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的和。 Private
Sub Form_click() Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer
s = 0 x = 100 Do While x <= 999 a = Int(x / 100) b = Int(x / 10) - a * 100 c = x - a * 100 - b * 10 If
Then s = s + x x = x + 1 Loop Print s End Sub
【21980】
【5】:求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。
Private Sub Form_click() Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As Integer s = 0 x = 100 Do While x <= 999 a = Int(x / 100) b = Int(x / 10) - a * 100 c = x - a * 100 - b
* 10 If ______________________Then s = s + 1 x = x + 1 Loop Print s End Sub
【40】
【6】:“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=1^3+5^3+3^3。求100至999的
范围内所有水仙花数之和。 Private Sub cmdDaffodilSum_Click() Dim i%, a%, b%, c%, sum% FontSize = 14: FontBold = True Print: Print: Print sum = 0 i = 100 Do a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If i
= a ^ 3 + b ^ 3 + c ^ 3 Then sum = sum + i End If i = i + 1 ________________ Print sum End Sub
【1301】
【7】:“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=1^3+5^3+3^3。求100至999的
范围内水仙花数的个数。 Private Sub cmdDaffodilCount_Click() Dim i%, a%, b%, c%, count% FontSize = 14:
FontBold = True count = 0 i = 100 Do a = i \ 100 b = (i - 100 * a) \ 10 c = i Mod 10 If i = a ^ 3 + b
^ 3 + c ^ 3 Then count = count + 1 End If i = i + 1 ________________ Print count End Sub
【4】
【8】:若两素数之差为2，则称两素数为双胞胎素数，编程求[200,1000]之间有多少对双胞胎素数。 Private Sub
cmdTwinsPrime_Click() Dim k, prime, j, i, Count As Integer FontSize = 14: FontBold = True Print: Print: Print prime = 2 For i = 200 To 1000 k = Sqr(i) For j = 2 To k If i Mod j = 0 Then Exit For Next j If j >
k Then If i - prime = 2 Then Count = Count + 1 ________________ End If Next i Print Count End Sub
【20】
【9】:金星和地球在某一时刻相对于太阳处于某一确定位置，已知金星绕太阳一周为225日，地球绕太阳一周为
365日，问两个行星至少经过多少日仍同时回到原来的位置上, Private Sub Form_Click() Dim m0&, n0& Dim m As Long Dim n As Long Dim r As Long m0 = 365 n0 = 225 m = m0 n = n0 r = m Mod n While ________________ m = n n = r r = m Mod n Wend Print m0 * n0 / n End Sub
【16425】
【10】:编程序求四位数的偶数中，所有各位数字之积(且不为0)是60的倍数的数之和。 Private Sub
Command1_Click() sum = 0 For i = 1000 To 9999 Step 2 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 = (i \ 100)
Mod 10 d4 = i \ 1000 d = d1 * d2 * d3 * d4 If ________________Then sum = sum + i Next i Print sum End Sub
【2832006 】
【11】:编程序求四位数的奇数中，所有各位数字之积(且不为0)是600的倍数的数之和。 Private Sub
Command1_Click() sum = 0 For i = 1001 To 9999 Step 2 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 = (i \ 100)
Mod 10 d4 = i \ 1000 d = d1 * d2 * d3 * d4 If ________________ Then sum = sum + i Next i Print sum End Sub
【199956 】
【12】:所谓回文数是从左至右与从右至左读起来都是一样的数字，如:181是一个回文数。编程求出100,968之
间的所有回文数的个数。 Private Sub cmdPalindromeNumbere_Click() Dim i%, a%, b%, m% FontSize = 14: FontBold = True For i = 100 To 968 a = ________________ b = i Mod 10 If a = b Then m = m + 1 Next i Print m End Sub
【86】
【13】:已知24有8个正整数因子(即:1，2，3，4，6，8，12，24)，而24正好能被其因子数8整除，求[10，
100]之间有多少个整数能被其因子的个数整除。 Private Sub Command1_Click() m = 0 For i = 10 To 100 n = 1 For j = 2 To i If i Mod j = 0 Then n = n + 1 End If Next j If ________________ Then m = m + 1 End If Next i Print m End Sub
【12】
【14】:算年龄。用爷爷的年龄的5倍加6得的和，再乘以20，再加上奶奶的年龄，再减去365，得数为6924，又
知爷爷比奶奶大2岁。求爷爷、奶奶的年龄的和。 Private Sub Form_Click() For a = 1 To 200 For b = 1 To 200 If ________________________________ Then Print a + b End If Next b Next a End Sub
【140】
【15】:求具有abcd=(ab+cd)^2性质的四位数。编程实现之。 Private Sub cmdSpecialFour_Click() Dim n, a, b, count As Integer count = 0 FontSize = 14: FontBold = True For n = 1000 To 9999 a = Int(n / 100) b = n Mod 100 If ________________ Then count = count + 1 Next n Print count End Sub
【3】
【16】:4位反序数:设N是一个四位数，它的9倍恰好是其反序数，求N。(反序数就是将整数的数字倒过来形成
的整数，如1234的反序数是4321。) Private Sub cmdAgainstOrdinalNumber_Click() Dim d1, d2, d3, d4, d, i As Integer FontSize = 14: FontBold = True For i = 1000 To 1111 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 =
(i \ 100) Mod 10 d4 = i \ 1000 ________________ If d = i * 9 Then Print i Next i End Sub
【1089 】
【17】:抓交通肇事犯:一辆卡车违反交通规则，撞人后逃跑。现场有三人目击事件，但是没有记住车号，只记下
车号的一些特征。甲说:牌照的前两位数字是相同的;乙说:牌照的后两位数字是相同的，但与前两位不同;丙是
一位
数学
数学高考答题卡模板高考数学答题卡模板三年级数学混合运算测试卷数学作业设计案例新人教版八年级上数学教学计划
家，他说:四位的车号刚好是一个整数的平方。请根据以上的线索求出车号?编程实现之? Private Sub
cmdTrafficTrouble_Click() Dim i, j, k, c As Integer FontSize = 14: FontBold = True For i = 1 To 9 For j = 0 To 9 If (i <> j) Then ________________ c = Int(Sqr(k)) If c * c = k Then Print k End If Next j, i End Sub
【7744】
【18】:以下程序的功能是求:在[100，999]范围内同时满足以下两个条件的十进制数的个数。?其个位数字与十
位数字之和除以10所得的余数是百位数字;?该数是素数。 Private Sub Command1_Click() n = 0 For i = 100 To 999 If prime(i) = True Then g = i Mod 10 s = i \ 10 Mod 10 b = i \ 100 If (g + s) Mod 10 = b Then n = n + 1 End If Next i Print n End Sub Private Function prime(x) As Boolean p = x \ 2 For i = 2 To p If x
Mod i = 0 Then prime = False Exit For End If Next i If i > p Then ________________ End Function
【15】
【19】:高次方程尾数的问题:求13的298次方的最后三位数是多少,编程实现之。 Private Sub
cmdMantissa_Click() Dim i, x, y, last As Long y = 298: x = 13 last = 1 FontSize = 14: FontBold = True
For i = 1 To y last = last * x last=last Mod 1000 Next i Print last Mod ________________ End Sub
【929】
【20】:从键盘输入两个数51211314和84131421，利用辗转相除法求它们的最大公约数。求需要经过多少次辗转。
Private Sub cmdGreatestCommonDivsion_Click() Dim m, n, r, t As Single, count% m = Val(InputBox("请输
入第一个数:")) n = Val(InputBox("请输入第二个数:")) FontSize = 14: FontBold = True If m < n Then t = m: m = n: n = t count = 0 Do ________________ m = n n = r count = count + 1 Loop Until r = 0 Print count End Sub
【18】
【21】:要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。 要求每次换成40张小钞
票，每种至少一张。编程求有多少种换法。 Private Sub Command1_Click() Dim i, j, k, m As Integer Dim RMBsum As Integer FontSize = 14: FontBold = True For i = 1 To 9 For j = 1 To 17 For k = 1 To 37 m = 40 - i -
j - k If ________________ Then RMBsum = RMBsum + 1 Next k, j, i Print RMBsum End Sub
【34】
【22】:求1/2+2/3+3/5+5/8+„„的前1000项的和。注:该数列从第二项开始，其分子等于前一项的分母，而其
分母等于前一项分子与分母之和。要求:按四舍五入的方式精确到小数点后第二位。 Private Sub Command1_Click()
fz = 1 fm = 2 s = fz / fm For i = 2 To 1000 ________________ t = fz fz = fm fm = fm + t Next i Print Round(s,
2) End Sub
【617.95 】
【23】:四位平方数:千位、百位数相同，十位、个位数相同，且是某一个二位数的平方，求四位平方数的个数。 Private
Sub Command1_Click() N=0 For a = 0 To 9 For b = 0 To 9 For i = 10 To 99 ________________ If m = i * i Then n=n+1 Next i Next b Next a Printf n End Sub
【1】
【24】:某人想将手中的一张面值100元的人民币换成5元、1元和0.5元面值的票子100张，且要求每种至少1
张。求换法的种数。 Private Sub cmdExchangeRMB_Click() Dim i, j As Integer, RMBsum As Single RMBsum = 0 For i = 1 To 11 For j = 1 To 100 - i If ________________ Then RMBsum = RMBsum + 1 Next j, i FontSize = 14: FontBold = True Print RMBsum End Sub
【11】
【25】:Fibonacci数列的前几个数为:0，1，1，2，3，5，„，其规律是: F1 , 0 (n = 1) F2 , 1 (n = 2)
Fn , Fn-1，Fn-2 (n ? 3) 编程求此数列的前40项之和。 Private Sub Command1_Click() Dim f, lastf, prevf, sum& Dim n As Integer sum = 1: prevf = 0: lastf = 1 n = 3 Do While n <= 40 ________________ sum = sum + f prevf = lastf lastf = f n = n + 1 Loop FontSize = 14: FontBold = True Print sum End Sub
【165580140】
【26】:Fibonacci数列的前几个数为:0，1，1，2，3，5，„，其规律是: F1 , 0 (n = 1) F2 , 1 (n = 2)
Fn , Fn-1，Fn-2 (n ? 3) 编程求此数列的前30项之和? Private Sub Command1_Click() Dim f, lastf, prevf,
sum& Dim n As Integer sum = 1: prevf = 0: lastf = 1 n = 3 Do While n <= 30 ________________ sum = sum + f prevf = lastf lastf = f n = n + 1 Loop FontSize = 14: FontBold = True Print sum End Sub
【1346268】
【27】:求12345最大的质因子。 Function IsPrime(n As Integer) As Boolean Dim flag As Boolean flag = True For i = 2 To Sqr(n) If n Mod i = 0 Then flag = False Exit For End If Next IsPrime = flag End Function Private Sub Form_Click() Dim n As Integer Dim m As Integer n = 12345 m = n Do If ________________________________ Then Print m Exit Do Else m = m - 1 End If Loop End Sub
【823】
【28】:我国古代数学家在《算经》中出了一道题:鸡翁一，值钱五;鸡母一，值钱三;鸡雏三，值钱一。百钱买
百鸡，问鸡翁、母、雏各几何,”意为公鸡5吊钱1只，母鸡3吊钱1只，3只小鸡值1吊钱。编程实现用100吊
钱买100只鸡，公鸡、母鸡、小鸡每种鸡至少一只，有多少种买法, Private Sub command1_Click() Dim a%, b%, c%, s% FontSize = 14: FontBold = True Print: Print: Print s = 0 For a = 1 To 20 For b = 1 To 34 ________________ If 5 * a + 3 * b + c / 3 = 100 Then s = s + 1 Next b Next a Print s End Sub
【3】
【29】:编写程序，求10,8887之间的所有素数的个数。 Private Sub Command1_Click() Dim x As Long, Number, i As Integer FontSize = 14: FontBold = True Number = 0 For x = 11 To 8887 Step 2 i = 2: k = Int(x / 2) Do While i <= k If x Mod i = 0 Then Exit Do i = i + 1 Loop If ________________ Then Number = Number + 1 End If Next x Print Number End Sub
【1103】
【30】:编程计算在[100,500]的范围内有多少这样的个数:其每位数字的乘积大于它的每位数字之和。(如数字23，
2×3>2+3) Private Sub Form_Click() Dim i%, a%, b%, m% m = 0 FontSize = 14: FontBold = True For i = 100 To 500 a = Int(i / 10) b = ________________ If a * b > a + b Then m = m + 1 Next i Print m End Sub
【320】
【31】:一个数如果刚好与它所有的因子之和相等，则称该数为“完数”,如6,1+2+3，则6就是个完数。编程求
[8000,9000]之间完数的个数。 Private Sub Form_Click() Dim i%, j%, s As Long, m As Long s = 0 FontSize = 14: FontBold = True For i = 8000 To 9000 m = 0 For j = 1 To i - 1 If i Mod j = 0 Then ________________
End If Next j If i = m Then s = s + 1 End If Next i Print s End Sub
【1】
【32】:已知一个数列的前3项为0，0，1，从第4项开始，每项为前3项的和，编程求此数列的第36个数。 Private
Sub Form_Click() Dim i%, f0&, f1&, f2&, f3& FontSize = 14: FontBold = True f0 = 0 f1 = 0 f2 = 1 For i = 4 To 36 ________________ f0 = f1 f1 = f2 f2 = f3 Next i Print f3 End Sub
【334745777】
【33】:一个数如果刚好与它所有的因子之和相等，则称该数为“完数”, 如6,1，2，3，则6就是个完数,求200
到500之间所有的完数之和。 Private Sub Form_Click() Dim i%, j%, s As Long, m As Long s = 0 FontSize = 14: FontBold = True For i = 200 To 500 m = 0 For j = 1 To i - 1 If i Mod j = 0 Then ________________ End If Next j If i = m Then s = s + i Next i Print s End Sub
【496】
【34】:编程求在1000以内能被17或者23整除的正整数的个数。 Private Sub cmdCount_Click() Dim i As Integer, m As Integer FontSize = 14: FontBold = True Print: Print: Print m = 0 For i = 17 To 1000 If________________Then m = m + 1 Next i Print m End Sub
【99】
【35】:已知a,b,c为正整数，求满以下足条件的a,b,c的组数: a)a>b>c b)a+b+c<100 c)1/(a^2)+1/(b^2)=1/(c^2) Private Sub Form_Click() Dim a!, b!, c!, m% m = 0 FontSize = 14: FontBold = True For c = 1 To 34 For b = c To 50 For a = b To 100 If ________________Then m = m + 1 End If Next a, b, c Print m End Sub
【2】
【36】:编程求1到5000之间的能被5整除的前若干个偶数之和，当和大于500时,终止求和，并输出该和。 Private
Sub cmdSum_Click() Dim i As Integer, s As Long FontSize = 14 FontBold = True ________________ If i Mod 2 = 0 Then s = s + i If s > 500 Then Exit For Next i Print s End Sub
【550】
【37】:编程求在四位数的偶数中，所有各位数字之和是30的倍数的数之和。 Private Sub Form_Click() Dim m%,
a%, b%, c%, d%, s& s = 0 FontSize = 14 FontBold = True For m = 1000 To 9998 Step 2 a = Int(m / 1000) b = Int((m - a * 1000) / 100) c = Int((m - a * 1000 - b * 100) / 10) d = m Mod 10 If ________________Then s = s + m Next m Print s End Sub
【288840】
【38】:编程求在四位数的奇数中，所有各位数字之和是25的倍数的数之和。 Private Sub Form_Click() Dim m%,
a%, b%, c%, d%, s& s = 0 FontSize = 14: FontBold = True Print: Print: Print For m = 1001 To 9999 Step 2 a = Int(m / 1000) b = Int((m - 1000 * a) / 100) c = Int((m - 1000 * a - 100 * b) / 10) d = m Mod 10
If ________________ Then s = s + m Next m Print s End Sub
【1298515】
【39】:编程，求所有符合算式ij*ji,1300的最小数ij(即i*10，j) 其中i、j是1,9之间的一位整数。 Private
Sub cmdCount_Click() Dim i As Integer, j As Integer FontSize = 14 FontBold = True For i = 1 To 9 For j
= 1 To 9 If ________________Then Print m Exit sub End If Next j Next i End Sub
【25】
【40】:编程求1,99的平方根的和并输出结果。(保留两位小数) Private Sub cmdSqrt_Click() Dim i As Integer, s As Single For i = 1 To 99 ________________ Next i s = Round(s, 2) FontSize = 12 FontBold = True Print s End Sub
【661.46】
【41】:编程求共有几组i，j，k符合算式ijk，kji,1333 其中i、j、k是0,9之间的一位整数 Private Sub
Form_Click() Dim i As Integer, j As Integer, k As Integer Dim m As Integer m = 0 For i = 0 To 9 For j
= 0 To 9 For k = 0 To 9 If ________________ Then m = m + 1 End If Next k Next j Next i Print m End Sub
【6】
【42】:已知正整数A,B(假定A< Sub End Min="5432" Print a="1" Next b="a" If ________________ + s="a" Then * 5432 To 1 For Command1_Click() Private>
【153】
【43】:求[5000,6000]之间最小的素数 Private Sub Form_Click() Dim n As Integer Dim m As Integer Dim nIsPrime As Boolean For n = 5000 To 6000 ________________ For m = 2 To Sqr(n) If n Mod m = 0 Then nIsPrime = False
Exit For End If Next If nIsPrime Then Print n Exit For End If Next End Sub
【5003】
【44】:求[1000,20000]之间最大的素数 Private Sub Form_Click() Dim n As Long Dim flag As Boolean n = 20000 Do flag = True For m = 2 To Sqr(n) If n Mod m = 0 Then ________________ Exit For End If Next If Not flag
Then n = n - 1 End If Loop Until flag Print n End Sub
【19997】
【45】:利用函数cos(n)产生一个25×10的矩阵，求出最小值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25,10) As Single n = 0 Min = 0 For i = 1 To 25 For j = 1 To 10 n = n + 9 a(i, j) = cos(n) If
________________Then Min = a(i, j) x = i y = j End If Next j Next i Print x*y End Sub
【100】
【46】:已知正整数A,B(假定A< Sub End Min="5432" Print a="1" Next b="a" If ________________ + s="a" Then * 5432 To 1 For Command1_Click() Private>
【153】
【47】:利用函数sin(n)产生一个25×10的矩阵，求出最小值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25, 10) As Single n = 0 Min = 0 For i = 1 To 25 For j = 1 To 10 n = n + 15 a(i, j) = Sin(n) If ________________________________ Then Min = a(i, j) x = i y = j End If Next j Next i Print x * y End Sub
【34】
【48】:利用函数sin(n)产生一个25×10的矩阵，求出最大值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25, 10) As Single n = 0 Max = 0 For i = 1 To 25 For j = 1 To 10 n = n + 15 a(i, j) = Sin(n) If ________________ Then Max = a(i, j) x = i y = j End If Next j Next i Print x * y End Sub
【72】
【49】:求杨辉三角形中，第19行第10列的数为多少, 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 „„„„„„„„„„
Private Sub Form_click() Dim a() As Long n = 20 ReDim a(n, n) For i = 1 To n a(i, i) = 1 a(i, 1) = 1 Next i For i = 3 To n For j = 2 To i - 1 ________________________________ Next j Next i Print a(19, 10) End Sub
【48620】
【50】:求[1000,20000]之间最大的素数 Private Sub Form_Click() Dim n As Long Dim flag As Boolean n = 20000 Do flag = True For m = 2 To Sqr(n) If n Mod m = 0 Then ________________ Exit For End If Next If Not flag Then n = n - 1 End If Loop Until flag Print n End Sub
【19997】
【51】:统计[521,8421]之间有多少个这样的整数,其各位数字之积能被7整除。 Private Sub
cmdEveryNumCount_Click() Dim count As Integer count = 0 FontSize = 14: FontBold = True For i = 521 To 8421 Select Case i Case 521 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (a * b * c) Mod 7 = 0 Then count = count + 1 Case ________________ a = i \ 1000 b = i \ 100 Mod 10 c = i \ 10 Mod 10 d = i Mod
10 If (a * b * c * d) Mod 7 = 0 Then count = count + 1 End Select Next i Print count End Sub
【4380】
【52】:统计[521,8421]之间有多少个这样的整数,其各位数字之和能被7整除。 Private Sub
cmdEveryNumCount_Click() Dim count As Integer count = 0 FontSize = 14: FontBold = True For i = 521 To
8421 Select Case i Case 521 To 999 a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If (a + b + c) Mod 7 = 0
Then count = count + 1 Case ________________ a = i \ 1000 b = i \ 100 Mod 10 c = i \ 10 Mod 10 d = i Mod
10 If (a + b + c + d) Mod 7 = 0 Then count = count + 1 End Select Next i Print count End Sub
【1126】
【53】:设某四位数的各位数字的平方和等于100，共有多少个这种四位数, Private Sub cmdFourSqr_Click() Dim a, b, c, d, i, count As Integer count = 0 i = 1111 FontSize = 14: FontBold = True Print: Print: Print
Do Until i > 9999 a = i \ 1000 b = (i Mod 1000) \ 100 c = ________________ d = i Mod 10 If 100 = a ^ 2
+ b ^ 2 + c ^ 2 + d ^ 2 Then count = count + 1 i = i + 1 Loop Print count End Sub
【49】
【54】:A,B,C三个正整数，当满足1/A^2+1/B^2=1/C^2关系时，称为倒勾股数。求130
【1】
【55】:设有十进制数字a,b,c,d和e，它们满足下列式子:abcd*e=bcde (a不等于0， e不等于0或1)，求满足
上述条件的四位数abcd的个数。 Private Sub cmdMeetConditon_Click() Dim a, b, c, d, e, comb, count As Integer count = 0 FontSize = 14: FontBold = True For a = 1 To 9 b = 0 For b = 0 To 9 For c = 0 To 9 For d = 0 To 9 For e = 2 To 9 If ________________ Then count = count + 1 End If Next e, d, c, b, a Print count End
Sub
【2】
【56】:“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=1^3+5^3+3^3。求100至999
的范围内所有水仙花数之和。 Private Sub cmdDaffodilSum_Click() Dim i%, a%, b%, c%, sum% FontSize = 14: FontBold = True Print: Print: Print sum = 0 i = 100 Do a = i \ 100 b = i \ 10 Mod 10 c = i Mod 10 If i
= a ^ 3 + b ^ 3 + c ^ 3 Then sum = sum + i End If i = i + 1 ________________ Print sum End Sub
【1301】
【57】:“水仙花数”是指这样的数，其各位数字的立方和等于该数本身，如: 153=1^3+5^3+3^3。求100至999
的范围内水仙花数的个数。 Private Sub cmdDaffodilCount_Click() Dim i%, a%, b%, c%, count% FontSize = 14: FontBold = True count = 0 i = 100 Do a = i \ 100 b = (i - 100 * a) \ 10 c = i Mod 10 If i = a ^ 3 + b
^ 3 + c ^ 3 Then count = count + 1 End If i = i + 1 ________________ Print count End Sub
【4】
【58】:若两素数之差为2，则称两素数为双胞胎素数，编程求[200,1000]之间有多少对双胞胎素数。 Private Sub
cmdTwinsPrime_Click() Dim k, prime, j, i, Count As Integer FontSize = 14: FontBold = True Print: Print:
Print prime = 2 For i = 200 To 1000 k = Sqr(i) For j = 2 To k If i Mod j = 0 Then Exit For Next j If j > k Then If i - prime = 2 Then Count = Count + 1 ________________ End If Next i Print Count End Sub
【20】
【59】:若某整数平方等于某两个正整数平方之和的正整数称为弦数。例如:由于3^2，4^2,5^2，则为弦数，求
[100，200]之间弦数的数目。 Private Sub cmdChordCount_Click() Dim a, b, c, count As Integer FontSize = 14: FontBold = True count = 0 For c = 100 To 200 For a = 1 To c - 1 b = Sqr(c ^ 2 - a ^ 2) If ________________
Then count = count + 1 Exit For End If Next a, c Print count End Sub
【55】
【60】:编程序求四位数的偶数中，所有各位数字之积(且不为0)是60的倍数的数之和。 Private Sub
Command1_Click() sum = 0 For i = 1000 To 9999 Step 2 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 = (i \ 100)
Mod 10 d4 = i \ 1000 d = d1 * d2 * d3 * d4 If ________________Then sum = sum + i Next i Print sum End Sub
【2832006 】
【61】:编程序求四位数的奇数中，所有各位数字之积(且不为0)是600的倍数的数之和。 Private Sub
Command1_Click() sum = 0 For i = 1001 To 9999 Step 2 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 = (i \ 100)
Mod 10 d4 = i \ 1000 d = d1 * d2 * d3 * d4 If ________________ Then sum = sum + i Next i Print sum End Sub
【199956 】
【62】:所谓回文数是从左至右与从右至左读起来都是一样的数字，如:181是一个回文数。编程求出100,968之
间的所有回文数的个数。 Private Sub cmdPalindromeNumbere_Click() Dim i%, a%, b%, m% FontSize = 14: FontBold
= True For i = 100 To 968 a = ________________ b = i Mod 10 If a = b Then m = m + 1 Next i Print m End Sub
【86】
【63】:已知24有8个正整数因子(即:1，2，3，4，6，8，12，24)，而24正好能被其因子数8整除，求[10，
100]之间有多少个整数能被其因子的个数整除。 Private Sub Command1_Click() m = 0 For i = 10 To 100 n = 1 For j = 2 To i If i Mod j = 0 Then n = n + 1 End If Next j If ________________ Then m = m + 1 End If Next
i Print m End Sub
【12】
【64】:自然数对是指两个自然数的和与差都是平方数，如8和17的和8+17=25与其差17-8=9都是平方数，则称
8和17是自然数对(8，17)。假定(A，B)与(B，A)是同一个自然数对且假定A>=B，求所有小于或等于100(即:
A<=100,B<=100)的自然数对的组数。 Private Sub Command1_Click() n = 0 For a = 2 To 100 For b = 1 To a -
1 If ________________Then n = n + 1 Print a; b End If Next b Next a Print n End Sub
【31】
【65】:求具有abcd=(ab+cd)^2性质的四位数。编程实现之。 Private Sub cmdSpecialFour_Click() Dim n, a, b, count As Integer count = 0 FontSize = 14: FontBold = True For n = 1000 To 9999 a = Int(n / 100) b = n Mod 100 If ________________ Then count = count + 1 Next n Print count End Sub
【3】
【66】:4位反序数:设N是一个四位数，它的9倍恰好是其反序数，求N。(反序数就是将整数的数字倒过来形成
的整数，如1234的反序数是4321。) Private Sub cmdAgainstOrdinalNumber_Click() Dim d1, d2, d3, d4, d, i As Integer FontSize = 14: FontBold = True For i = 1000 To 1111 d1 = i Mod 10 d2 = (i \ 10) Mod 10 d3 =
(i \ 100) Mod 10 d4 = i \ 1000 ________________ If d = i * 9 Then Print i Next i End Sub
【1089 】
【67】:抓交通肇事犯:一辆卡车违反交通规则，撞人后逃跑。现场有三人目击事件，但是没有记住车号，只记下
车号的一些特征。甲说:牌照的前两位数字是相同的;乙说:牌照的后两位数字是相同的，但与前两位不同;丙是
一位数学家，他说:四位的车号刚好是一个整数的平方。请根据以上的线索求出车号?编程实现之? Private Sub
cmdTrafficTrouble_Click() Dim i, j, k, c As Integer FontSize = 14: FontBold = True For i = 1 To 9 For
j = 0 To 9 If (i <> j) Then ________________ c = Int(Sqr(k)) If c * c = k Then Print k End If Next j,
i End Sub
【7744】
【68】:以下程序的功能是求:在[100，999]范围内同时满足以下两个条件的十进制数的个数。?其个位数字与十
位数字之和除以10所得的余数是百位数字;?该数是素数。 Private Sub Command1_Click() n = 0 For i = 100 To 999 If prime(i) = True Then g = i Mod 10 s = i \ 10 Mod 10 b = i \ 100 If (g + s) Mod 10 = b Then n =
n + 1 End If Next i Print n End Sub Private Function prime(x) As Boolean p = x \ 2 For i = 2 To p If x
Mod i = 0 Then prime = False Exit For End If Next i If i > p Then ________________ End Function
【15】
【69】:高次方程尾数的问题:求13的298次方的最后三位数是多少,编程实现之。 Private Sub
cmdMantissa_Click() Dim i, x, y, last As Long y = 298: x = 13 last = 1 FontSize = 14: FontBold = True
For i = 1 To y last = last * x last=last Mod 1000 Next i Print last Mod ________________ End Sub
【929】
【70】:从键盘输入两个数51211314和84131421，利用辗转相除法求它们的最大公约数。求需要经过多少次辗转。
Private Sub cmdGreatestCommonDivsion_Click() Dim m, n, r, t As Single, count% m = Val(InputBox("请输
入第一个数:")) n = Val(InputBox("请输入第二个数:")) FontSize = 14: FontBold = True If m < n Then t = m: m = n: n = t count = 0 Do ________________ m = n n = r count = count + 1 Loop Until r = 0 Print count End Sub
【18】
【71】:要将一张100元的大钞票，换成等值的10元、5元、2元和1元一张的小钞票。 要求每次换成40张小钞
票，每种至少一张。编程求有多少种换法。 Private Sub Command1_Click() Dim i, j, k, m As Integer Dim RMBsum As Integer FontSize = 14: FontBold = True For i = 1 To 9 For j = 1 To 17 For k = 1 To 37 m = 40 - i -
j - k If ________________ Then RMBsum = RMBsum + 1 Next k, j, i Print RMBsum End Sub
【34】
【72】:求1/2+2/3+3/5+5/8+„„的前1000项的和。注:该数列从第二项开始，其分子等于前一项的分母，而其
分母等于前一项分子与分母之和。要求:按四舍五入的方式精确到小数点后第二位。 Private Sub Command1_Click()
fz = 1 fm = 2 s = fz / fm For i = 2 To 1000 ________________ t = fz fz = fm fm = fm + t Next i Print Round(s,
2) End Sub
【617.95 】
【73】:四位平方数:千位、百位数相同，十位、个位数相同，且是某一个二位数的平方，求四位平方数的个数。 Private
Sub Command1_Click() N=0 For a = 0 To 9 For b = 0 To 9 For i = 10 To 99 ________________ If m = i * i Then n=n+1 Next i Next b Next a Printf n End Sub
【1】
【74】:某人想将手中的一张面值100元的人民币换成5元、1元和0.5元面值的票子100张，且要求每种至少1
张。求换法的种数。 Private Sub cmdExchangeRMB_Click() Dim i, j As Integer, RMBsum As Single RMBsum = 0 For i = 1 To 11 For j = 1 To 100 - i If ________________ Then RMBsum = RMBsum + 1 Next j, i FontSize = 14: FontBold = True Print RMBsum End Sub
【11】
【75】:Fibonacci数列的前几个数为:0，1，1，2，3，5，„，其规律是: F1 , 0 (n = 1) F2 , 1 (n = 2)
Fn , Fn-1，Fn-2 (n ? 3) 编程求此数列的前40项之和。 Private Sub Command1_Click() Dim f, lastf, prevf, sum& Dim n As Integer sum = 1: prevf = 0: lastf = 1 n = 3 Do While n <= 40 ________________ sum = sum
+ f prevf = lastf lastf = f n = n + 1 Loop FontSize = 14: FontBold = True Print sum End Sub
【165580140】
【76】:Fibonacci数列的前几个数为:0，1，1，2，3，5，„，其规律是: F1 , 0 (n = 1) F2 , 1 (n = 2)
Fn , Fn-1，Fn-2 (n ? 3) 编程求此数列的前30项之和? Private Sub Command1_Click() Dim f, lastf, prevf, sum& Dim n As Integer sum = 1: prevf = 0: lastf = 1 n = 3 Do While n <= 30 ________________ sum = sum
+ f prevf = lastf lastf = f n = n + 1 Loop FontSize = 14: FontBold = True Print sum End Sub
【1346268】
【77】:目前世界上人口为60亿，如果以每年1.4%的速度增长， n(n为正整数)年后世界人口达到70亿，求n。
Private Sub command1_Click() Dim p As Single Dim r As Single Dim n As Integer FontSize = 14: FontBold
= True p = 60 r = 0.014 n = 0 Do n = n + 1 ________________ Loop Until p >= 70 Print n End Sub
【12】
【78】:我国古代数学家在《算经》中出了一道题:鸡翁一，值钱五;鸡母一，值钱三;鸡雏三，值钱一。百钱买
百鸡，问鸡翁、母、雏各几何,”意为公鸡5吊钱1只，母鸡3吊钱1只，3只小鸡值1吊钱。编程实现用100吊
钱买100只鸡，公鸡、母鸡、小鸡每种鸡至少一只，有多少种买法, Private Sub command1_Click() Dim a%, b%, c%, s% FontSize = 14: FontBold = True Print: Print: Print s = 0 For a = 1 To 20 For b = 1 To 34 ________________ If 5 * a + 3 * b + c / 3 = 100 Then s = s + 1 Next b Next a Print s End Sub
【3】
【79】:编写程序，求10,8887之间的所有素数的个数并输出到屏幕上。 Private Sub Command1_Click() Dim x As Long, Number, i As Integer FontSize = 14: FontBold = True Number = 0 For x = 11 To 8887 Step 2 i = 2:
k = Int(x / 2) Do While i <= k If x Mod i = 0 Then Exit Do i = i + 1 Loop If ________________ Then Number = Number + 1 End If Next x Print Number End Sub
【1103】
【80】:士兵在演练过程中，队伍变换成10、22、33、60行时，队形都能成为矩形。问参加演练的士兵最少有多少
人, Private Sub Form_Click() Dim a, n%, max, r a = Array(10, 22, 33, 60) max = a(0) For i = 1 To 3 If max < a(i) Then max = a(i) Next i n = max Do r = 0 For i = 0 To 3 r = r + n Mod a(i) Next If r = 0 Then Exit Do End If ________________________________ Loop Print n End Sub
【660】
【81】:士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。问参加演练的士兵最少有多少
人, Private Sub Form_Click() Dim a%, b%, c%, d%, n% a = 10 b = 21 c = 35 d = 60 n = 60 Do While ________________________________ n = n + 1 Loop Print n End Sub
【420】
【82】:求12349的最小质因子。 Function IsPrime(n As Integer) As Boolean Dim flag As Boolean flag = True For i = 2 To Sqr(n) If n Mod i = 0 Then flag = False Exit For End If Next IsPrime = flag End Function Private Sub Form_Click() Dim n As Integer Dim m As Integer n = 12349 m = 2 Do If
________________________________ Then Print m Exit Do Else m = m + 1 End If Loop End Sub
【53】
【83】:求12345最大的质因子 Function IsPrime(n As Integer) As Boolean Dim flag As Boolean flag = True
For i = 2 To Sqr(n) If n Mod i = 0 Then flag = False Exit For End If Next IsPrime = flag End Function Private Sub Form_Click() Dim n As Integer Dim m As Integer n = 12345 m = n Do If
________________________________ Then Print m Exit Do Else m = m - 1 End If Loop End Sub
【823 】
【84】:求[8000,9000]之间最小的素数 Private Sub Form_Click() Dim n As Integer Dim m As Integer Dim nIsPrime As Boolean For n = 4000 To 5000 ________________ For m = 2 To Sqr(n) If n Mod m = 0 Then nIsPrime = False Exit For End If Next If nIsPrime Then Print n Exit For End If Next End Sub
【8009】
【85】:求[5000,6000]之间最小的素数 Private Sub Form_Click() Dim n As Integer Dim m As Integer Dim nIsPrime As Boolean For n = 5000 To 6000 ________________ For m = 2 To Sqr(n) If n Mod m = 0 Then nIsPrime = False
Exit For End If Next If nIsPrime Then Print n Exit For End If Next End Sub
【5003】
【86】:求[1000,20000]之间最大的素数 Private Sub Form_Click() Dim n As Long Dim flag As Boolean n = 20000 Do flag = True For m = 2 To Sqr(n) If n Mod m = 0 Then ________________ Exit For End If Next If Not flag Then n = n - 1 End If Loop Until flag Print n End Sub
【19997】
【87】:士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。问参加演练的士兵最少有多少
人, Private Sub Form_Click() Dim a%, b%, c%, d%, n% a = 10 b = 21 c = 35 d = 60 n = 60 Do While ________________________________ n = n + 1 Loop Print n End Sub
【420 】
【88】:求[8000,9000]之间最小的素数 Private Sub Form_Click() Dim n As Integer Dim m As Integer Dim nIsPrime As Boolean For n = 4000 To 5000 ________________ For m = 2 To Sqr(n) If n Mod m = 0 Then nIsPrime = False
Exit For End If Next If nIsPrime Then Print n Exit For End If Next End Sub
【8009】
【89】:求整数123456的质因子个数。如72,2*2*2*3*3，则因子个数为5。 Private Sub Form_Click() Dim n As
Long Dim m As Long Dim num As Long n = 123456 m = 2 While (m <= n) If (n Mod m = 0) Then num = num + 1 ________________ Else m = m + 1 End If Wend Print num End Sub
【8】
【90】:求数列f(n) = n*n+n+41的前100项中素数的个数 Private Sub Form_click() num = 0 For n = 1 To 100
fn = n * n + n + 41 flag = 1 For m = 2 To Sqr(fn) If ________________ Then flag = 0 Exit For End If Next If flag = 1 Then num = num + 1 End If Next n Print num End Sub
【86】
【91】:n个人围成一圈(编号为1-n)，从第1号的人开始从1报数，凡报到3的倍数的人离开圈子，然后再数下去，
直到最后只剩一个人为止。问当n,37时，剩下的人是多少号, Private Sub Form_Click() Const OUT As Integer
= -1 Dim n As Integer,m As Integer,i As Integer,num1 As Integer,num2 As Integer Dim a() As Integer n = 37 m = 3 ReDim a(n) For i = 1 To n a(i) = i Next num1 = 0 Do For i = 1 To n If a(i) <> OUT Then Num1 =
num1 + 1 If num1 Mod m = 0 Then num2 = num2 + 1 If num2 = n Then Print a(i); Exit Do End If ________________ End If End If Next i Loop End Sub
【19】
【92】:n个人围成一圈(编号为1-n)，从第1号的人开始从1报数，凡报到3的倍数的人离开圈子，然后再数下去，
直到最后只剩一个人为止。问当n,17时，剩下的人是多少号, Private Sub Form_Click() Const OUT As Integer
= -1 Dim n As Integer,m As Integer,i As Integer,num1 As Integer,num2 As Integer Dim a() As Integer n = 17 m = 3 ReDim a(n) For i = 1 To n a(i) = i Next num1 = 0 Do For i = 1 To n If a(i) <> OUT Then Num1 =
num1 + 1 If num1 Mod m = 0 Then num2 = num2 + 1 If num2 = n Then Print a(i); Exit Do End If ________________ End If End If Next i Loop End Sub
【11】
【93】:一辆以固定速度行驶的汽车，司机看到里程
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
上从左到右的读数和从右到左的读数是相同的，这个数是
12321(公里)，2小时后，里程表上再次出现一个新的对称数。问车的速度是多少公里/小时, Private Sub
Form_Click() Dim m As Long Dim n As Long Dim a(0 To 4) As Byte m = 12321 n = m Do n = n + 1 For i = 0 To 4 a(i) = n \ 10 ^ i Mod 10 Next i _______________ Print (n - m) / 2 End Sub
【50】
【94】:编程计算在[100,500]的范围内有多少这样的个数:其每位数字的乘积大于它的每位数字之和。(如数字23，
2×3>2+3) Private Sub Form_Click() Dim i%, a%, b%, m% m = 0 FontSize = 14: FontBold = True For i = 100 To 500 a = Int(i / 10) b = ________________ If a * b > a + b Then m = m + 1 Next i Print m End Sub
【320】
【95】:一个数如果刚好与它所有的因子之和相等，则称该数为“完数”,如6,1+2+3，则6就是个完数。编程求
[8000,9000]之间完数的个数。 Private Sub Form_Click() Dim i%, j%, s As Long, m As Long s = 0 FontSize = 14: FontBold = True For i = 8000 To 9000 m = 0 For j = 1 To i - 1 If i Mod j = 0 Then ________________
End If Next j If i = m Then s = s + 1 End If Next i Print s End Sub
【1】
【96】:已知一个数列的前3项为0，0，1，从第4项开始，每项为前3项的和，编程求此数列的第36个数。 Private
Sub Form_Click() Dim i%, f0&, f1&, f2&, f3& FontSize = 14: FontBold = True f0 = 0 f1 = 0 f2 = 1 For i = 4 To 36 ________________ f0 = f1 f1 = f2 f2 = f3 Next i Print f3 End Sub
【334745777】
【97】:一个数如果刚好与它所有的因子之和相等，则称该数为“完数”, 如6,1，2，3，则6就是个完数,求200
到500之间所有的完数之和。 Private Sub Form_Click() Dim i%, j%, s As Long, m As Long s = 0 FontSize = 14: FontBold = True For i = 200 To 500 m = 0 For j = 1 To i - 1 If i Mod j = 0 Then ________________ End If Next j If i = m Then s = s + i Next i Print s End Sub
【496】
【98】:编程求在1000以内能被17或者23整除的正整数的个数。 Private Sub cmdCount_Click() Dim i As Integer, m As Integer FontSize = 14: FontBold = True Print: Print: Print m = 0 For i = 17 To 1000 If________________Then m = m + 1 Next i Print m End Sub
【99】
【99】:已知a,b,c为正整数，求满以下足条件的a,b,c的组数: a)a>b>c b)a+b+c<100 c)1/(a^2)+1/(b^2)=1/(c^2) Private Sub Form_Click() Dim a!, b!, c!, m% m = 0 FontSize = 14: FontBold = True For c = 1 To 34 For b = c To 50 For a = b To 100 If ________________Then m = m + 1 End If Next a, b, c Print m End Sub
【2】
【100】:编程求1到5000之间的能被5整除的前若干个偶数之和，当和大于500时,终止求和，并输出该和。 Private
Sub cmdSum_Click() Dim i As Integer, s As Long FontSize = 14 FontBold = True ________________ If i Mod 2 = 0 Then s = s + i If s > 500 Then Exit For Next i Print s End Sub
【550】
【101】:编程求在四位数的偶数中，所有各位数字之和是30的倍数的数之和。 Private Sub Form_Click() Dim m%,
a%, b%, c%, d%, s& s = 0 FontSize = 14 FontBold = True For m = 1000 To 9998 Step 2 a = Int(m / 1000) b = Int((m - a * 1000) / 100) c = Int((m - a * 1000 - b * 100) / 10) d = m Mod 10 If ________________Then s = s + m Next m Print s End Sub
【288840】
【102】:编程求在四位数的奇数中，所有各位数字之和是25的倍数的数之和。 Private Sub Form_Click() Dim m%, a%, b%, c%, d%, s& s = 0 FontSize = 14: FontBold = True Print: Print: Print For m = 1001 To 9999 Step
2 a = Int(m / 1000) b = Int((m - 1000 * a) / 100) c = Int((m - 1000 * a - 100 * b) / 10) d = m Mod 10 If ________________ Then s = s + m Next m Print s End Sub
【1298515】
【103】:编程，求所有符合算式ij*ji,1300的最小数ij(即i*10，j) 其中i、j是1,9之间的一位整数。 Private
Sub cmdCount_Click() Dim i As Integer, j As Integer FontSize = 14 FontBold = True For i = 1 To 9 For j = 1 To 9 If ________________Then Print m Exit sub End If Next j Next i End Sub
【25】
【104】:编程求1,99的平方根的和并输出结果。(保留两位小数) Private Sub cmdSqrt_Click() Dim i As Integer, s As Single For i = 1 To 99 ________________ Next i s = Round(s, 2) FontSize = 12 FontBold = True Print s End Sub
【661.46】
【105】:编程求共有几组i，j，k符合算式ijk，kji,1333 其中i、j、k是0,9之间的一位整数 Private Sub
Form_Click() Dim i As Integer, j As Integer, k As Integer Dim m As Integer m = 0 For i = 0 To 9 For j
= 0 To 9 For k = 0 To 9 If ________________ Then m = m + 1 End If Next k Next j Next i Print m End Sub
【6】
【106】:已知正整数A,B(假定A< Sub End Min="5432" Print a="1" Next b="a" If ________________ + s="a" Then * 5432 To 1 For Command1_Click() Private>
【153】
【107】:利用函数cos(n)和sin(n)分别产生两个10×10的矩阵，放在数组a(10,10)，b(10,10)，求两矩阵的和，
放在数组C(10,10)中，求数组C次对角线上的数之和; Private Sub Form_click() Dim a(10, 10) As Single Dim
b(10, 10) As Single Dim c(10, 10) As Single n = 0 Sum = 0 For i = 1 To 10 For j = 1 To 10 n = n + 1 a(i,
j) = Cos(n) b(i, j) = Sin(n) c(i, j) = a(i, j) + b(i, j) ________________ Next j Next i Print Sum End Sub
【-1.048908】
【108】:利用函数cos(n)和sin(n)分别产生两个10×10的矩阵，放在数组a(10,10)，b(10,10)，求两矩阵的和，
放在数组C(10,10)中，求数组C主对角线上的数之和; Private Sub Form_click() Dim a(10, 10) As Single Dim
b(10, 10) As Single Dim c(10, 10) As Single n = 0 Sum = 0 For i = 1 To 10 For j = 1 To 10 n = n + 1 a(i, j) = Cos(n) b(i, j) = Sin(n) c(i, j) = a(i, j) + b(i, j) ________________ Next j Next i Print Sum End
Sub
【1.707493】
【109】:利用函数cos(n)产生一个25×10的矩阵，求出最小值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25,10) As Single n = 0 Min = 0 For i = 1 To 25 For j = 1 To 10 n = n + 9 a(i, j) = cos(n) If ________________Then Min = a(i, j) x = i y = j End If Next j Next i Print x*y End Sub
【100】
【110】:利用函数cos(n)产生一个25×10的矩阵，求出最大值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25, 10) As Single n = 0 Max = 0 For i = 1 To 25 For j = 1 To 10 n = n + 15 a(i, j) = Cos(n) If ________________ Then Max = a(i, j) x = i y = j End If Next j Next i Print x*y End Sub
【30】
【111】:利用函数sin(n)产生一个25×10的矩阵，求出最小值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25, 10) As Single n = 0 Min = 0 For i = 1 To 25 For j = 1 To 10 n = n + 15 a(i, j) = Sin(n) If ________________________________ Then Min = a(i, j) x = i y = j End If Next j Next i Print x * y End Sub
【34】
【112】:利用函数sin(n)产生一个25×10的矩阵，求出最大值所在的行、列号乘积。 Private Sub Form_click()
Dim a(25, 10) As Single n = 0 Max = 0 For i = 1 To 25 For j = 1 To 10 n = n + 15 a(i, j) = Sin(n) If
________________ Then Max = a(i, j) x = i y = j End If Next j Next i Print x * y End Sub
【72】
【113】:求杨辉三角形中，第19行第10列的数为多少, 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 „„„„„„„„„„
Private Sub Form_click() Dim a() As Long n = 20 ReDim a(n, n) For i = 1 To n a(i, i) = 1 a(i, 1) = 1 Next i For i = 3 To n For j = 2 To i - 1 ________________________________ Next j Next i Print a(19, 10) End Sub
【48620】
【114】:求杨辉三角形中，第20行第10列的数为多少, 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 „„„„„„„„„„
Private Sub Form_click() Dim a() As Long n = 20 ReDim a(n, n) For i = 1 To n a(i, i) = 1 a(i, 1) = 1 Next
i For i = 3 To n For j = 2 To i - 1 ________________________________ Next j Next i Print a(20, 10); End Sub
【92378】
【115】:一个素数称之为超级素数，若该素数依次去掉个位，十位，...等等,每次所得的数仍然是素数。例如239
就是超级素数。求[100,9999]之内，按从小到大排列顺序，第40个超级素数的值 Private Sub Form_click() Dim a
As Integer, j As Integer, k As Integer s = 0 For i = 100 To 9999 a = i j = 2 k = Int(Sqr(i)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 10): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 100): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 1000): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then s = s + 1 ________________________________ End If End
If End If End If Next i End Sub Sub pd(a1 As Integer, j1 As Integer, k1 As Integer) Do While j1 <= k1 If a1 Mod j1 = 0 Then Exit Do j1 = j1 + 1 Loop End Sub
【5939】
【116】:一个素数称之为超级素数，若该素数依次去掉个位，十位，...等等,每次所得的数仍然是素数。例如239
就是超级素数。求[100,9999]之内超级素数的和 Private Sub Form_click() Dim a As Integer, j As Integer, k
As Integer s = 0 For i = 100 To 9999 a = i j = 2 k = Int(Sqr(i)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 10): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 100): j = 2: k =
Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 1000): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) ________________________________ End If End If End If Next i Print s End Sub Sub pd(a1 As Integer, j1 As Integer, k1 As Integer) Do While j1 <= k1 If a1 Mod j1 = 0 Then Exit Do j1 = j1 + 1 Loop End Sub
【85574】
【117】:一个素数称之为超级素数，若该素数依次去掉个位，十位，...等等,每次所得的数仍然是素数。例如239
就是超级素数。求[100,9999]之内超级素数的个数 Private Sub Form_click() Dim a As Integer, j As Integer,
k As Integer s = 0 For i = 100 To 9999 a = i j = 2 k = Int(Sqr(i)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 10): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 100): j = 2: k = Int(Sqr(a)) + 1 Call pd(a, j, k) If j > k Then a = Fix(i / 1000): j = 2: k = Int(Sqr(a)) + 1 Call pd(a,
j, k) ________________________________ End If End If End If Next i Print s End Sub Sub pd(a1 As Integer, j1 As Integer, k1 As Integer) Do While j1 <= k1 If a1 Mod j1 = 0 Then Exit Do j1 = j1 + 1 Loop End Sub
【44】
【118】:在[1,10000]范围内考察个位数字是7的素数有多少个? Private Sub Form_click() For i = 2 To 10000
j = 2: k = Int(i / 2) + 1 Do While j <= k If i Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then m =
Str(i) ________________ If mr = "7" Then s = s + 1 End If Next i Print s End Sub
【308】
【119】:在[1,10000]范围内考察个位数字是3的素数有多少个? Private Sub Form_click() For i = 2 To 10000 j = 2: k = Int(i / 2) + 1 Do While j <= k If i Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then m =
Str(i) ________________________________ If mr = "3" Then s = s + 1 End If Next i Print s End Sub
【310】
【120】:在[1,10000]范围内考察个位数字是1的素数个数。 Private Sub Form_click() For i = 2 To 10000 j = 2: k = Int(i / 2) + 1 Do While j <= k If i Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then m = Str(i)
________________________________ If mr = "1" Then s = s + 1 End If Next i Print s End Sub
【306】
【121】:在[1,10000]范围内考察个位数字是7的素数有多少个? Private Sub Form_click() For i = 2 To 10000 j = 2: k = Int(i / 2) + 1 Do While j <= k If i Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then m = Str(i) ________________ If mr = "7" Then s = s + 1 End If Next i Print s End Sub
【308】
【122】:编程求方程5X+4Y=2，在|X|<=50,|Y|<=100内的整数解，X+Y最大值是多少, Private Sub Form_click()
Max = 0 For x = -100 To 100 For y = -50 To 50 If 5 * x - 4 * y = 2 Then s = x + y ________________________________ End If Next y Next x Print Max End Sub
【86】
【123】:求方程5X-4Y=2，在|X|<=100,|Y|<=50内的整数解中|X|+|Y|最大值, Private Sub Form_click() Max = 0 For x = -100 To 100 For y = -50 To 50 If 5 * x - 4 * y = 2 Then s = Abs(x) + Abs(y)
________________________________ End If Next y Next x Print Max End Sub
【86】
【124】:找出1-1000之间的全部同构数的和。同构数是指一个数，它出现在它的平方数的右端。例如，5的平方
是25，5是25中右端的数，5就是一个同构数。同理，25也是一个同构数。 Private Sub Form_click() For i = 1 To 999 j = i * i Select Case j Case Is < 99 k = j Mod 10 Case Is < 999 k = j Mod 100 Case Else k = j Mod
1000 End Select If ________________ Then s = s + i Next i Print s End Sub
【1038】
【125】:找出1-1000之间的全部同构数的个数。同构数是指一个数，它出现在它的平方数的右端。例如，5的平
方是25，5是25中右端的数，5就是一个同构数。同理，25也是一个同构数。 Private Sub Form_click() For i = 1 To 999 j = i * i Select Case j Case Is < 99 k = j Mod 10 Case Is < 999 k = j Mod 100 Case Else k = j
Mod 1000 End Select If ________________Then s = s + 1 Next i Print s End Sub
【6】
【126】:求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的和。
Private Sub Form_click() Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As
Integer s = 0 x = 100 Do While x <= 999 a = Int(x / 100) b = Int(x / 10) - a * 100 c = x - a * 100 - b
* 10 If ___________________________________ Then s = s + x x = x + 1 Loop Print s End Sub
【21980】
【127】:求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。
Private Sub Form_click() Dim s As Integer Dim x As Integer Dim a As Integer Dim b As Integer Dim c As
Integer s = 0 x = 100 Do While x <= 999 a = Int(x / 100) b = Int(x / 10) - a * 100 c = x - a * 100 - b
* 10 If ______________________________Then s = s + 1 x = x + 1 Loop Print s End Sub
【40】
【128】:已知菲波纳契数列{ X }中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，有多少个质
数。 Private Sub Form_Click() Dim s As Long Dim I As Integer Dim No(30) As Long No(1) = 0 No(2) = 1 No(3) = 1 s = 2 For I = 4 To 30 ________________________________ j = 2: k = Int(No(I) / 2) Do While j <= k If
No(I) Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then s = s + 1 Next I Print s End Sub
【11】
【129】:已知菲波纳契数列{ X }中,X(1)=0,X(2)=1,X(n)=X(n-1)+X(n-2)，编程求数列前30个数中，所有质数的
和。 Private Sub Form_Click() Dim s As Long Dim I As Integer Dim No(30) As Long No(1) = 0 No(2) = 1 No(3) = 1 s = 2 For I = 4 To 30 ________________________________ j = 2: k = Int(No(I) / 2) Do While j <= k If No(I) Mod j = 0 Then Exit Do j = j + 1 Loop If j > k Then s = s + No(I) Next I Print s End Sub
【544830】
【130】:已知S1=1, S2=1+2, S3=1+2+3,..., SN=1+2+3+...+N, 求S1,S2,S3,...,S100 中, 有多少个能被3和7
整除, Private Sub Form_click() k = 1 N = 0 S = 0 Do While k <= 100 S = S + k If Int(S / 3) = S / 3 And Int(S / 7) = S / 7 Then ________________ k = k + 1 Loop Print N End Sub
【18】
【131】:已知S1=1, S2=1+2, S3=1+2+3,...,SN=1+2+3+...+N, 求在S1,S2,S3,...,S100 中,所有能被3和7整除
的数之和. Private Sub Form_click() k = 1 n = 0 S = 0 Sum = 0 Do While k <= 100 S = S + k If Int(S / 3) = S / 3 And Int(S / 7) = S / 7 Then ________________ k = k + 1 Loop Print Sum End Sub
【31500】
【132】:求在 1,2,3,...,100中, 任选两个不同的数,它们的和能被3或7整除，这样的数共有多少对,(注意:3+5
和5+3认为是同一对数)。 Private Sub Form_click() Dim n As Integer Dim k As Integer n = 0 k = 1 Do While k <= 100 j = 1 Do While j < k If ________________________________ Then n = n + 1 j = j + 1 Loop k = k + 1 Loop Print n End Sub
【2121】
【133】:求在 1,2,3,...,100中, 任选两个不同的数,要求它们的和能被3和7整除的数的对数(注意:3+5和5+3
认为是同一对数)。 Private Sub Form_click() Dim n As Integer Dim k As Integer n = 0 k = 1 Do While k <= 100 j = 1 Do While j < k If ________________________________Then n = n + 1 j = j + 1 Loop k = k + 1 Loop
Print n End Sub
【236】
【134】:已知数组S(x)中数组元素的值与Sin(x)一 一对应，100= s(j) Then ________________________________
End If Next j Next k Print s Format(s(150), "0.###") End Sub
【-0.044】
【135】:已知数组S(x)中数组元素的值与Cos(x)一一对应，100= s(j) Then ________________________________ End If Next j Next k Print Format(s(150), "0.###") End Sub
【-0.049】
【136】:已知数组S(x)中数组元素的值与Cos(x)一一对应，1= s(j + 1) Then ________________________________ End If Next j Next k Print Format(s(50), "0.###") End Sub
【-0.013 】
【137】:已知数组S(x)中数组元素的值与Sin(x)一一对应，1= s(j + 1) Then ________________________________ End If Next j Next k Print format(s(47), "0.#######") End Sub
【-0.1323518】
【138】:已知Sn=A1+A2+A3+...+An, 其中,当n为奇数时An=n-1,当n为偶数时,An=n+1.例如:S6=0+3+2+5+4+7, 求:
S60=A1+A2+A3+...+A60. Private Sub Form_click() Dim i As Integer Dim t As Integer Dim a As Integer i =
1 t = 0 Do While i <= 60 If i Mod 2 = 0 Then ________________ Else a = i - 1 End If t = t + a i = i + 1 Loop Print t End Sub
【1830】
【139】:用cos(x)?1,x^2/2!+x^4/4!-„„+(-1)^(n)*(x^(2n))/(2n)!的公式求近似值，直到最后一项绝对值小
于0.00001为止。设x,7。 Private Sub Form_click() Dim x As Integer, i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox("请输入x:")) i = 0 z = 1 y = 1 Do While Abs(z) > 0.00001 factor = 1 i = i + 1 For j = 1 To 2 * i factor = factor * j Next j xpower = x ^ (2 * i) ________________________________
y = y + z Loop Print format(y, "0.######") End Sub
【0.753895】
【140】:用cos(x)?1,x^2/2!+x^4/4!-„„+(-1)^(n)*(x^(2n))/(2n)!的公式求近似值，设x,9，n,15 Private
Sub Form_click() Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox("请输入x:")) n = Val(InputBox("请输入n:")) y = 1 For i = 1 To n factor = 1 For j = 1 To 2 * i factor = factor * j Next j xpower = x ^ (2 * i) ________________________________ Next i Print
format(y, "0.######") End Sub
【-0.911208】
【141】:用sin(x)?x,x^3/3!+x^5/5!-„„+(-1)^(n-1)*(x^(2n-1))/(2n-1)!的公式求近似值，直到最后一项绝
对值小于0.00001为止。设x,7。 Private Sub Form_click() Dim x As Integer, i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox("请输入x:")) i = 0 z = 1 y = 0 Do While Abs(z) > 0.00001 factor = 1 i = i + 1 For j = 1 To 2 * i - 1 factor = factor * j Next j xpower = x ^ (2 * i - 1)
________________________________ y = y + z Loop Print format(y, "0.#######") End Sub
【0.6569827】
【142】:用sin(x)?x,x^3/3!+x^5/5!-„„+(-1)^(n-1)*(x^(2n-1))/(2n-1)!的公式求近似值。设x=7,n,15。
Private Sub Form_click() Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As
Single x = Val(InputBox("请输入x:")) n = Val(InputBox("请输入n:")) y = 0 For i = 1 To n factor = 1
For j = 1 To 2 * i - 1 factor = factor * j Next j xpower = x ^ (2 * i - 1) ________________________________ Next i Print format(y, "0.#######") End Sub
【0.6569831】
【143】:求表达式e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n!的近似值，直到最后一项小于0.01为止;设x
,9 Private Sub Form_click() 'e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n! Dim x As Integer, i As Integer Dim xpower As Single Dim z As Single Dim y As Single x = Val(InputBox("请输入x:")) i = 1 z = 1 y = 1 factor = 1 Do While z > 0.01 factor = factor * i xpower = x ^ i ________________ y = y + z i = i + 1 Loop Print y End Sub
【8103.081】
【144】:求表达式e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n!的近似值，设x=9,n,25; Private Sub
Form_click() '用e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n! Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox("请输入x:")) n = Val(InputBox("请输入
n:")) y = 1 factor = 1 For i = 1 To n factor = factor * i xpower = x ^ i ________________________________
Next i Print y End Sub
【8103.059】
【145】:金星和地球在某一时刻相对于太阳处于某一确定位置，已知金星绕太阳一周为225日，地球绕太阳一周为
365日，问两个行星至少经过多少日仍同时回到原来的位置上, Private Sub Form_Click() Dim m0&, n0& Dim m As Long Dim n As Long Dim r As Long m0 = 365 n0 = 225 m = m0 n = n0 r = m Mod n While ________________ m
= n n = r r = m Mod n Wend Print m0 * n0 / n End Sub
【1642】
【146】:用sin(x)?x,x^3/3!+x^5/5!-„„+(-1)^(n-1)*(x^(2n-1))/(2n-1)!的公式求近似值。设x=7,n,15。
Private Sub Form_click() Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As
Single x = Val(InputBox("请输入x:")) n = Val(InputBox("请输入n:")) y = 0 For i = 1 To n factor = 1 For j = 1 To 2 * i - 1 factor = factor * j Next j xpower = x ^ (2 * i - 1) ________________________________ Next i Print format(y, "0.#######") End Sub
【0.6569831】
【147】:求表达式e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n!的近似值，设x=9,n,25; Private Sub
Form_click() '用e^x ?1，x，x^2/2!+x^3/3!+x^4/4!„„+x^n/n! Dim n As Integer, x As Integer Dim i As Integer Dim xpower As Single Dim y As Single x = Val(InputBox("请输入x:")) n = Val(InputBox("请输入
n:")) y = 1 factor = 1 For i = 1 To n factor = factor * i xpower = x ^ i ________________________________
Next i Print y End Sub
【8103.059】
【148】:设a+b+c+d,100，且a+4,b-4,c*4,d/4,m，求m。 Private Sub Form_Click() m = 0 Do m = m + 4 a = m - 4 b = m + 4 c = m / 4 d = m * 4 ________________________________ Print m End Sub
【16】
【149】:宴会上一共有1225次握手，设每一位参加宴会的人对其他与会人士都有一样的礼节，那么与会人士有多
少, Private Sub Form_Click() Dim n As Long n = 1225 Do n = n - 1 ________________ Print n End Sub
【50】
【150】:算年龄。用爷爷的年龄的5倍加6得的和，再乘以20，再加上奶奶的年龄，再减去365，得数为6924，
又知爷爷比奶奶大2岁。求爷爷、奶奶的年龄的和。 Private Sub Form_Click() For a = 1 To 200 For b = 1 To
200 If ________________________________ Then Print a + b End If Next b Next a End Sub
【140
浙公网安备 33021202002483