填空题Word文件下载.docx

1、 c = m / 4 d = m * 4 _ Print m2019答案 :0.6569831用sin（x）xx3/3!+x5/5!-+（-1）（n-1）*（x（2n-1）/（2n-1）!的公式求近似值。设x=7,n15。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

2、For j = 1 To 2 * i - 1 factor = factor * j Next j xpower = x （2 * i - 1） Next i Print format（y, 0.#）2022答案 :8103.081求表达式ex 1xx2/2!+x3/3!+x4/4!+xn/n!的近似值，直到最后一项小于0.01为止；设x9 ex 1xx2/2! Dim x As Integer, i As Integer Dim z As Single i = 1 z = 1 y = 1 Do While z 0.01 factor = factor * i xpower = x i y =

3、 y + z i = i + 1 Loop Print y2024答案 :0.6569827的公式求近似值，直到最后一项绝对值小于0.00001为止。设x7。 i = 0 Do While Abs（z） 0.000012025答案 :-0.911208用cos（x）1x2/2!-+（-1）（n）*（x（2n）/（2n）!的公式求近似值，设x9，n15 For j = 1 To 2 * i xpower = x （2 * i）0.#2027答案 :1830已知Sn=A1+A2+A3+.+An, 其中,当n为奇数时An=n-1,当n为偶数时,An=n+1.例如:S6=0+3+2+5+4+7, 求：

4、S60=A1+A2+A3+.+A60. Dim t As Integer Dim a As Integer t = 0 Do While i = 60 If i Mod 2 = 0 Then Else a = i - 1 t = t + a Print t2029答案 :-0.013已知数组S（x）中数组元素的值与Cos（x）一一对应，1=X= s（j + 1） Then Print Format（s（50）, 0.#2031答案 :-0.044已知数组S（x）中数组元素的值与Sin（x）一 一对应，100= s（j） Then Print s Format（s（150）, 2032答案 :2

5、36求在 1,2,3,.,100中, 任选两个不同的数,要求它们的和能被3和7整除的数的对数（注意:3+5和5+3认为是同一对数）。 Dim n As Integer n = 0 k = 1 Do While k = 100 j = 1 Do While j k Then s = s + No（I） Next I Print s2038答案 :40求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。 Dim s As Integer Dim x As Integer Dim b As Integer Dim c As Integer s = 0 x =

6、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 + 12040答案 :6找出1-1000之间的全部同构数的个数。同构数是指一个数，它出现在它的平方数的右端。例如，5的平方是25，5是25中右端的数，5就是一个同构数。同理，25也是一个同构数。For i = 1 To 999 j = i * i Select Case j Case Is 99 k = j Mod 10 999 k = j Mod 100 Case E

7、lse k = j Mod 1000 End Select If _Then s = s + 1Next iPrint s2041答案 :1038找出1-1000之间的全部同构数的和。 If _ Then s = s + i2042答案 :86求方程5X-4Y=2，在|X|=100,|Y|=50内的整数解中|X|+|Y|最大值？ Max = 0 For x = -100 To 100 For y = -50 To 50 If 5 * x - 4 * y = 2 Then s = Abs（x） + Abs（y） Next y Next x Print Max2043答案 :编程求方程5X+4Y=

8、2，在|X|=50,|Y|=100内的整数解，X+Y最大值是多少？ s = x + y2044答案 :308在1,10000范围内考察个位数字是7的素数有多少个? For i = 2 To 10000 k = Int（i / 2） + 1 If i Mod j = 0 Then Exit Do k Then m = Str（i） If mr = 7 Then s = s + 1End Sub 2045答案 :306在1,10000范围内考察个位数字是1的素数个数。12046答案 :310在1,10000范围内考察个位数字是3的素数有多少个?32047答案 :2048答案 :44一个素数称之为超

9、级素数，若该素数依次去掉个位，十位，.等等,每次所得的数仍然是素数。例如239就是超级素数。求100,9999之内超级素数的个数 Dim a As Integer, j As Integer, k As Integer For i = 100 To 9999 a = i j = 2 k = Int（Sqr（i） + 1 Call pd（a, j, k） a = Fix（i / 10）: k = Int（Sqr（a） + 1 a = Fix（i / 100）: a = Fix（i / 1000）: Print s Sub pd（a1 As Integer, j1 As Integer, k1 A

10、s Integer） Do While j1 = k1 If a1 Mod j1 = 0 Then Exit Do j1 = j1 + 12049答案 :85574求100,9999之内超级素数的和2050答案 :5939求100,9999之内，按从小到大排列顺序，第40个超级素数的值 k Then s = s + 12051答案 :92378求杨辉三角形中，第20行第10列的数为多少？11 11 2 11 3 3 11 4 6 4 1 Dim a（） As Long n = 20 ReDim a（n, n） a（i, i） = 1 a（i, 1） = 1 For i = 3 To n For j = 2 To i - 1 _