vb所有课件-8章习题等5个文件

输出乘法口诀表输出内容:i

&

"×"

&

j

&"="

&

i

*

j定位Tab(9

*

(j

－

1)

+

1)j控制列i行For

i=1

to9For

j=i

to

9同一行输出nextj换行Next

iFor

i=1

to9For

j=1

toi同一行输出nextj换行Next

i控第1制列第10列第19列第28列第37列j=1

j=2

j=3

j=4

j=5

j=6

j=7

j=8

j=99*(j－1)+1Dim

se

As

StringDim

i

As

Integer,

j

As

IntegerFor

i

=

1

To9For

j

=

i

To

9se

=

i

&

"×"

&j

&"="

&i

*

jPicture2.Print

Tab(9

*

(j

－

1)

+

1);

se;Next

jPrintNext

iDim

se

As

StringDim

i

As

Integer,

j

As

IntegerFor

i

=

1

To9For

j

=

1To

ise

=

i

&

"×"

&

j

&

"="

&

i

*

jPicture1.Print

Tab(9

*

(j

－

1)

+

1);se;Next

jPrintNext

i求∏值连乘初值p=1i=1

to

ni=1:

2*2/(1*3)i=2:

(2*2/(1*3))*(4*4/(3*5))i=3:

(2*2/(1*3))*(4*4/(3*5))*(6*6/(5*7))…i=n:

(2*2/(1*3))*(4*4/(3*5))*

…*(2*n)^2/((2*n－1)*(2*n+1))For

i

=

1

To

np=

p

*(2

*i*2*

i)

/((2

*i

－

1)

*(2

*i+

1))Next

i利用下述公式计算圆周率∏的近似值：4

...

19

1

1

1

13

5

7求∏值当最后一项的绝对值小于0.000

001时停止计算。参照书上例3－8

p61初值i=1.循环次数不确定While 1/i

>=0.000001i

每次加２求e

值1(n)!e

1

1

1

1

...

1!

2!

3!两用近似公式求自然对数的底数e的值,直到前后小于10－4为止。1/1!1/2!1/3!…1/(n－1)!1/n!设最后一项为a,i为项数。则前后两为:a*i

－

a求1/n!的循环体：i=i+1a=a/i循环条件为：a*i

–

a

>=0.0001循环体While a

*

i

－

a

>=0.0001i=

i+

1a

=a

/ie

=e

+aWend1(n)!e

1

1

1

1

...

1!

2!

3!初始值:e

=2.5a

=0.5i=

2e=2a=1i=1e=1a=1i=1直到前后两小于10-4为止求e

值Dim

a

As

Double,

e

As

Double,

i

As

Integere

=

2.5:

a

=0.5:

i

=

2While

a

*

i

－

a

>=

0.0001i

=i

+1a

=a

/ie

=e+aWendText1.Text="e的值为："+Str(e)数字金字塔For

i

=

1To

nPicture1.Print

Tab(n

－

i

+

1);For

j

=

1

To

2

*

i

－

1Picture1.Print

Trim(Str(i));Next

jPicture1.Printnext

i采

重循环，外层循环用于控制行数，内层循环用于输出每行的信息。利用tab函数设置每行的起始位置。

每行的字符个数与行序的关系为2*i－1每行的字符个数与行序的关系为2*i－1－－－－－－－－－－－－－－－－－－－－－定位：N－i+1数字金字塔－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－每行的字符个数与行序的关系为2*i－1定位：n－i+1令k=n－i+1每行的字符个数为2*k－1定位：n－k+1i<=n/2i>n/2For

i

=

1

TonIf

i<=n/2

Then '图的上半部分Picture4.Print

Tab(n

－i+1);For

j=1

To

2

*

i

－1Picture4.Print

"*";Next

jPicture4.PrintElse '图的下半部分k

=

n

－

i

+1Picture4.Print

Tab(n

－

k

+

1);For

j

=

1To

2

*

k－

1Picture4.Print

"*";Next

jPicture4.PrintEnd

IfNext

i数字金字塔－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－每行的字符个数与行序的关系为2*i－1定位：n－i+1令k=n－i+1每行的字符个数为2*k－1定位：n－k+1i<=n/2i>n/2For

i

=

1

TonIf

i<=n/2

Then '图的上半部分Picture4.Print

Tab(n

－i+1);For

j=1

To

2

*

i

－1Picture4.Print

trim(str(i));Next

jPicture4.PrintElse '图的下半部分k

=

n

－

i

+1Picture4.Print

Tab(n

－

k

+

1);For

j

=

1To

2

*

k－

1Picture4.Print

trim(str(i));

Next

jPicture4.PrintEnd

IfNext

i三角三角数组元素赋值For

i

=

1

To

na(i,

1)

=

1:

a(i,

i)

=

1Next

iFor

i

=

3To

nFor

j

=

2

To

i

－

1a(i,

j)

=

a(i

－

1,

j

－

1)

+

a(i

－

1,

j)Next

j，

i三角数组元素打印－－－１－－－１－－－１－－－１－－－２－－－１－－－１－－－３－－－３－－－１－－－１－－－４－－－６－－－４－－－１－－－１－－－５－－１０－－１０－－－５－－－１－－－１－－－６－－１５－－２０－－１５－－－６－－－１－－－１－－－７－－２１－－３５－－３５－－２１－－－７－－－１－－－１－－－８－－２８－－５６－－７０－－５６－－２８－－－８－－－１每行定位：Tab(30

－

2

*

i)每个元素输出：Print Space(4

－

Len(Trim(Str(a(i,

j)))));

Trim(Str(a(i,

j)));For

i

=

1To

nFor

j

=

1

To

iPrint

Tab(30

－

2

*i);Print

Space(4

－

Len(Trim(Str(a(i,

j)))));

Trim(Str(a(i,

j)));PrintNextjNextiFor

i=

1

To

nPrint

Tab(30

－

2

*

i);For

j

=

1

To

iPrint

Space(4

－

Len(Trim(Str(a(i,

j)))));

Trim(Str(a(i,

j)));NextjPrintNextiP82五,3

下列程序用来在窗体上输出如下数据Dim

a(5,5)

as

Byte,I

as

integer,jFor

I=1

to

5For

j=1

to

6-i(1)a(I,j)=Next

j,IFor

I=2

to

5Forj=

(2)a(I,j)=j+I-6Next

j,IFor

I=1

to5print

a(I,j);:For

j=1

to

5:

(3)Next

i1234523451345124512351234i+j-17-i

to

5Next

jprint用辗转相除法求两自然数m，n的最大公约数和最小公倍数。分析：求最大公约数的算法思想：对于已知两数m，n，使得m>n；m除以n得余数r；若r=0，则n为最大公约数结束；否则执行(4)；(4)mn，nr，再重复执行(2)。例求m=14,n=6

的最大公约数.Ifm

<

nThen

t=

m:m

=

n:

n=

tp=m*nr=m

modnDo

until(r

=

0)m=nn=rr=

mmod

nLoopPrint“最大公约数=”;n;”最小公倍数=”;p/nm

n14

66

2r20将一维数组中10个元素向右环移n次将一维数组中10个元素向右环移1次:A(1)

A(2)

A(3)

A(4)

A(5)

A(6)

A(7)

A(8)

A(9)

A(10)T=A(10)A(10)

=A(9)A(9)

=A(8)A(8)

=A(7)A(7)

=A(6)A(6)

=A(5)A(5)

=A(4)A(4)

=A(3)A(3)

=A(2)A(2)

=A(1)A(1)

=T将一维数组中10个元素向右环移n次T=A(10)For i=9to

1 step

-1A(i+1)=A(i)NEXT

IA(1)=TT=A(1)For i=1

to

9A(i)=A(i+1)NEXT

IA(10)=T将一维数组中10个元素向右环