填空题Word文件下载.docx

填空题Word文件下载.docx

《填空题Word文件下载.docx》由会员分享，可在线阅读，更多相关《填空题Word文件下载.docx（91页珍藏版）》请在冰豆网上搜索。

c=m/4

d=m*4

________________________________

Printm

2019答案:

0.6569831

用sin（x）≈x－x^3/3!

+x^5/5!

-……+（-1）^（n-1）*（x^（2n-1））/（2n-1）!

的公式求近似值。

设x=7,n＝15。

PrivateSubForm_click（）

DimnAsInteger,xAsInteger

DimiAsInteger

DimxpowerAsSingle

DimyAsSingle

x=Val（InputBox（"

请输入x：

"

））

n=Val（InputBox（"

请输入n：

y=0

Fori=1Ton

factor=1

Forj=1To2*i-1

factor=factor*j

Nextj

xpower=x^（2*i-1）

Nexti

Printformat（y,"

0.#######"

）

2022答案:

8103.081

求表达式e^x≈1＋x＋x^2/2!

+x^3/3!

+x^4/4!

……+x^n/n!

的近似值，直到最后一项小于0.01为止；

设x＝9

'

e^x≈1＋x＋x^2/2!

DimxAsInteger,iAsInteger

DimzAsSingle

i=1

z=1

y=1

DoWhilez>

0.01

factor=factor*i

xpower=x^i

y=y+z

i=i+1

Loop

Printy

2024答案:

0.6569827

的公式求近似值，直到最后一项绝对值小于0.00001为止。

设x＝7。

i=0

DoWhileAbs（z）>

0.00001

2025答案:

-0.911208

用cos（x）≈1－x^2/2!

-……+（-1）^（n）*（x^（2n））/（2n）!

的公式求近似值，设x＝9，n＝15

Forj=1To2*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,求：

S60=A1+A2+A3+...+A60.

DimtAsInteger

DimaAsInteger

t=0

DoWhilei<

=60

IfiMod2=0Then

Else

a=i-1

t=t+a

Printt

2029答案:

-0.013

已知数组S（x）中数组元素的值与Cos（x）一一对应，1=<

X=<

100，用冒泡法对数组进行从小到大的排序，并求出排完序之后S（50）的值。

Dims（100）AsSingle

DimkAsInteger

DimjAsInteger

Fork=1To100

s（k）=Cos（k）

Nextk

Fork=1To99

Forj=1To100-k

Ifs（j）>

s（j+1）Then

PrintFormat（s（50）,"

0.###"

2031答案:

-0.044

已知数组S（x）中数组元素的值与Sin（x）一一对应，100=<

200，用比较法对数组进行从小到大的排序，并求出排完序之后S（150）的值。

Dims（101To200）AsSingle

Fork=101To200

s（k）=Sin（k）

Fork=101To199

Forj=k+1To200

Ifs（k）>

s（j）Then

PrintsFormat（s（150）,"

2032答案:

236

求在1,2,3,...,100中,任选两个不同的数,要求它们的和能被3和7整除的数的对数（注意:

3+5和5+3认为是同一对数）。

DimnAsInteger

n=0

k=1

DoWhilek<

=100

j=1

DoWhilej<

k

If________________________________Thenn=n+1

j=j+1

k=k+1

2033答案:

2121

求在1,2,3,...,100中,任选两个不同的数,它们的和能被3或7整除，这样的数共有多少对？

（注意:

If________________________________Thenn=n+1

2036答案:

544830

已知菲波纳契数列{X}中,X

（1）=0,X

（2）=1,X（n）=X（n-1）+X（n-2），编程求数列前30个数中，所有质数的和。

DimsAsLong

DimIAsInteger

DimNo（30）AsLong

No

（1）=0

No

（2）=1

No（3）=1

s=2

ForI=4To30

j=2:

k=Int（No（I）/2）

=k

IfNo（I）Modj=0ThenExitDo

Ifj>

kThens=s+No（I）

NextI

Prints

2038答案:

40

求三位数中，个位数字与十位数字之和除以10所得的余数是百位数字，且百位数字是偶数的数的个数。

DimsAsInteger

DimxAsInteger

DimbAsInteger

DimcAsInteger

s=0

x=100

DoWhilex<

=999

a=Int（x/100）

b=Int（x/10）-a*100

c=x-a*100-b*10

If______________________________Thens=s+1

x=x+1

2040答案:

6

找出1-1000之间的全部同构数的个数。

同构数是指一个数，它出现在它的平方数的右端。

例如，5的平方是25，5是25中右端的数，5就是一个同构数。

同理，25也是一个同构数。

Fori=1To999

j=i*i

SelectCasej

CaseIs<

99

k=jMod10

999

k=jMod100

CaseElse

k=jMod1000

EndSelect

If________________Thens=s+1

Nexti

Prints

2041答案:

1038

找出1-1000之间的全部同构数的和。

If________________Thens=s+i

2042答案:

86

求方程5X-4Y=2，在|X|<

=100,|Y|<

=50内的整数解中|X|+|Y|最大值？

Max=0

Forx=-100To100

Fory=-50To50

If5*x-4*y=2Then

s=Abs（x）+Abs（y）

Nexty

Nextx

PrintMax

2043答案:

编程求方程5X+4Y=2，在|X|<

=50,|Y|<

=100内的整数解，X+Y最大值是多少？

s=x+y

2044答案:

308

在[1,10000]范围内考察个位数字是7的素数有多少个?

Fori=2To10000

k=Int（i/2）+1

IfiModj=0ThenExitDo

kThen

m=Str（i）

Ifmr="

7"

Thens=s+1

EndSub

2045答案:

306

在[1,10000]范围内考察个位数字是1的素数个数。

1"

2046答案:

310

在[1,10000]范围内考察个位数字是3的素数有多少个?

3"

2047答案:

2048答案:

44

一个素数称之为超级素数，若该素数依次去掉个位，十位，...等等,每次所得的数仍然是素数。

例如239就是超级素数。

求[100,9999]之内超级素数的个数

DimaAsInteger,jAsInteger,kAsInteger

Fori=100To9999

a=i

j=2

k=Int（Sqr（i））+1

Callpd（a,j,k）

a=Fix（i/10）:

k=Int（Sqr（a））+1

a=Fix（i/100）:

a=Fix（i/1000）:

Prints

Subpd（a1AsInteger,j1AsInteger,k1AsInteger）

DoWhilej1<

=k1

Ifa1Modj1=0ThenExitDo

j1=j1+1

2049答案:

85574

求[100,9999]之内超级素数的和

2050答案:

5939

求[100,9999]之内，按从小到大排列顺序，第40个超级素数的值

kThen

s=s+1

2051答案:

92378

求杨辉三角形中，第20行第10列的数为多少？

1

11

121

1331

14641

…………………………

Dima（）AsLong

n=20

ReDima（n,n）

a（i,i）=1

a（i,1）=1

Fori=3Ton

Forj=2Toi-1

___________________________