第 6章 循环结构在前面,我们学习了顺序结构和分支结构,本章我们将要介绍结构化程序 3种基本结构的最后一种 ——
循环结构 。
退出
6.1 循环概述
6.2 For循环
6.3 While循环
6.4 Do循环
6.5 循环的嵌套
6.6 循环的退出
6.1 循环概述在实际工作中,常遇到一些操作过程不太复杂,
但又需要反复进行相同处理的问题,比如,统计本单位所有人员的工资,求全班同学各科的平均成绩等等 。
这些问题的解决逻辑上并不复杂,但如果单纯用顺序结构来处理,那将得到一个非常乏味且冗长的程序 。
例如,计算 1~ 100所有奇数的平方和,如果用顺序结构来解决这个问题,我们就会给出下面的程序:
Private Sub Form_Click( )
Dim s&,x%
s = 0
x = 1
s = s + x ^2
x = x + 2
s = s + x ^2
x = x + 2
s = s + x ^2
……
x = x +2 'x的值累加到 99
s = s + x ^2
Print "1~ 100之间所有奇数的平方和 ="; s
End Sub
由上面的例子不难看出,程序的绝大部分是在反复执行两条语句 x=x+2和 s=s+x^2,不同的是 x的值在变化 。 程序当然非常简单易懂,但缺乏最基本的编程技巧 。 要想方便地解决这类问题,最好的办法就是用循环语句 。
所谓循环就是重复地执行一组语句 。
我们用循环语句解决上面的问题,程序非常简短:
Private Sub Form_Click()
Dim s&,x%
s = 0
For x = 1 To 99 Step 2
s = s + x ^2
Next x
Print "1~ 100所有奇数的平方和 ="; s
End Sub
在此程序中,第 4,5,6条语句构成了一个循环,
在循环过程中第 5句被反复执行了 50次,从而计算出了
1~ 100所有奇数的平方和。
通过上面的对比可知,循环结构非常适合于解决处理的过程相同、处理的数据相关,但处理的具体值不同的问题。我们把能够处理这类问题的语句称为循环语句。
VB提供了三种不同风格的循环语句,它们分别是:
( 1) For…Next 语句;
( 2) While…Wend 语句;
( 3) Do…Loop 语句。
我们将对这 3种循环语句逐一介绍。
6.2 For循环
For循环的一般格式如下:
For 循环变量 =初值 To 终值 [Step 步长 ]
[循环体 ]
Next [循环变量 ]
说明:
1.格式中各项的说明
循环变量:亦称为循环控制变量,必须为数值型。
初值、终值:都是数值型,可以是数值表达式。
步长:循环变量的增量,是一个数值表达式。一般来说,其值为正,初值应小于终值;若为负,初值应大于终值。但步长不能是 0。如果步长是 1,Step 1可略去不写。
循环体:在 For语句和 Next语句之间的语句序列。
Next后面的循环变量与 For语句中的循环变量必须相同。
2.执行过程
For循环语句的执行过程如下:
( 1)系统将初值赋给循环变量,并自动记下终值和步长。
( 2)检查循环变量的值是否超过终值。如果超过就结束循环,执行 Next后面的语句;否则,执行一次循环体。
( 3)执行 Next语句,将循环变量增加一个步长值再赋给循环变量,转到( 2)继续执行。
以上执行过程用流程图描述,如图 5-1所示。
这里所说的,超过,有两种含义,即大于或小于 。
当步长为正值时,循环变量大于终值为,超过,;当步长为负值时,循环变量小于终值为,超过,。
我们通过分析下面的程序来进一步理解 For语句的执行过程 。
For n=1 To 10 Step 3
Print n,
Next n
具体执行情况如下:
第几次循环 n 与终值比较 执行循环体否
1 1 <10 执行
2 4 <10 执行
3 7 <10 执行
4 10 =10 执行
5 13 >10 停止执行上面程序的执行结果为:
1 4 7 10
3.注意事项
For语句和 Next语句必须成对出现,缺一不可,且
For语句必须在 Next语句之前 。
循环次数由初值,终值和步长确定,计算公式为:
循环次数 =Int(( 终值-初值 ) /步长 ) +1
【 例 6.1】 求 N! ( N为自然数 ) 。
分析:由阶乘的定义,我们可以得出 N! =1*2*… *
( N-2) *( N-1) *N=( N-1) ! *N,也就是说,一个自然数的阶乘,等于该自然数与前一个自然数阶乘的乘积 。
程序如下:
Private Sub Form_Click()
Dim I%,f&,n%
n= InputBox( "输入一个自然数,","输入提示
","10")
f = 1
For I = 1 To n
f = f * I
Next I
Print n; "!="; f
End Sub
程序的执行过程如图 5-2所示。
程序如下:
Private Sub Form_Click( )
Dim I%,n%,p#
n = InputBox( "请输入 n的值 ( 1-32767) ")
p = 1
For I = 1 To n
p = p *( 4 * I * I) /(( 2 * I - 1) *( 2 * I +
1))
Next I
p = 2 * p
Print "n="; n; "时 ","π="; p
End Sub
6.3 While循环前面我们介绍了 For…Next 循环,它适合于解决循环次数事先能够确定的问题。对于只知道控制条件,
但不能预先确定需要执行多少次循环体的情况,我们可以使用 While循环。
While语句格式如下:
While 条件
[循环体 ]
Wend
1,While语句说明
“条件”可以是关系表达式或逻辑表达式。 While
循环就是当给定的“条件”为 True时,执行循环体,
为 False时不执行循环体。因此 While循环也叫当型循环。
2.执行过程
While循环的执行过程(如图 5-5所示):
( 1)执行 While语句,判断条件是否成立。
( 2)如果条件成立,就执行循环体;否则,转到
( 4)执行。
( 3)执行 Wend语句,转到( 1)执行。
( 4)执行 Wend语句下面的语句。
结合下面的程序段,我们做进一步的说明:
x=1
While x<5
Print x,
x=x+1
Wend
该程序段的执行结果是:
1 2 3 4
3,While循环的几点说明
( 1) While 循环语句本身不能修改循环条件,所以必须在 While… Wend语句的循环体内设置相应语句,
使得整个循环趋于结束,以避免死循环 。
( 2) While循环语句先对条件进行判断,然后才决定是否执行循环体 。 如果开始条件就不成立,则循环体一次也不执行 。
( 3) 凡是用 For… Next循环编写的程序,我们都可以用 While… Wend语句实现 。 反之,则不然 。
【 例 6.5】 假设我国现有人口 12亿,若年增长率为 1.5%,试计算多少年后我国人口增加到或超过 20亿 。
人口计算公式为,p=y( 1+r) n
y为人口初值,r为年增长率,n为年数 。
程序如下:
Private Sub Form_Click( )
Dim p!,r!,I%
p = 12
r = 0.015
I = 0
While p < 20
p = p *( 1 + r)
I = I + 1
Wend
Print I; "年后,我国人口将达到 "; p; "亿 "
End Sub
单击窗体,程序运行结果如图 5-7所示。
6.4 Do循环与前面介绍的 While循环相比,Do循环具有更强的灵活性,它可以根据需要决定是条件满足时执行循环体,还是一直执行循环体直到条件满足 。 Do循环有两种语句格式 。
格式 1:
Do {while|until} <条件 >
[<循环体 >]
Loop
格式 2:
Do
[<循环体 >]
Loop {while|until} <条件 >
【 例 6.7】 求两自然数 m,n的最大公约数 。
设计思想,( 1) m除以 n得到余数 r;
( 2) 若 r=0,则 n为要求的最大公约数,算法结束; 否则执行 ( 3) ;
( 3) n→ m,r→ n,再转到 ( 1) 执行 。
程序如下:
Private Sub command1_Click( )
Dim m%,n%,r%
m = Val( Text1.Text)
n = Val( Text2.Text)
r = m Mod n
Do Until r = 0
m = n
n = r
r = m Mod n
Loop
Print " 它们的最大公约数是 "; n
End Sub
程序运行结果如图 5-12所示。
6.5 循环的嵌套在一个循环体内又包含了一个完整的循环,这样的结构称为多重循环或循环的嵌套 。 在程序设计时,
许多问题要用二重或多重循环才能解决 。 我们前面学过的 For循环,While循环,Do循环都可以互相嵌套,
如在 For… Next的循环体中可以使用 While循环,而在
While… Wend的循环体中也可以出现 For循环等 。
二重循环的执行过程是外循环执行一次,内循环执行一遍,在内循环结束后,再进行下一次外循环,
如此反复,直到外循环结束 。
【 例 5.8】 打印九九乘法表。
分析:打印九九乘法表,只要利用循环变量作为乘数和被乘数就可以方便的解决。
程序如下:
Private Sub Form_Click()
Dim i%,j%,str$
Print Tab( 35); "九九乘法表 "
For i = 1 To 9
For j = 1 To 9
str = i & "× " & j & "=" & i * j
Print Tab(( j - 1) * 9 + 1); str;
Next j
Print
Next i
End Sub
程序运行结果如图 5-13所示。
1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*1=1 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=7 2*8=8 2*9=9
对于循环的嵌套,要注意以下事项:
( 1) 在多重循环中,各层循环的循环控制变量不能同名 。 但并列循环的循环控制变量名可以相同,也可以不同 。
( 2) 外循环必须完全包含内循环,不能交叉 。
【 例 6.10】 求分析:观察多项式就会发现,奇数项为正,偶数项为负,各项分子的指数与分母的阶乘数相同,各相邻项指数相差为 2。 因此,可以设计一个二重循环,内层循环实现每项的计算,外层循环完成对各项的求和 。
)!12(
)1(
!9!7!5!3
s i n
12
1
9753
n
xxxxxxx nn
程序如下:
Private Sub command1_Click()
Dim x#,n&,s#,i%,j%,k#,p#,f%
x = Val( Text1.Text)
n = Val( Text2.Text)
s = 0,f = -1
For i = 1 To n
p = 1,k = 1
For j = 1 To 2 * i - 1
p = p * j
k = k * x
Next j
f = f *( -1)
s = s + f * k / p
Next i
Print "sin( "; x; ") ="; s
End Sub
运行结果如图 5-16所示。
6.6 循环的退出前面讲述的循环,都是在执行结束时正常的退出 。
但在某些情况下,为了减少循环次数或便于程序调试,
可能需要提前强制退出循环 。 VB为 For… Next 和
Do… Loop循环语句提供了相应的强制退出循环的语句,
现介绍如下 。
1,Exit For
该语句用于 For…Next 循环,在循环体中可以出现一次或多次。当系统执行到该语句时,就强制退出当前循环。常见的使用格式是:
If 条件 Then Exit For
即当循环执行过程中满足某个条件时,就执行循环退出语句结束循环。
2,Exit Do
该语句用于 Do… Loop循环,具体用法同 Exit For
一样 。
常见算法
1:辗转相除法,求最大公约数
2:阶乘算法
3:求素数算法
4:穷举法,求水仙花数
5:迭代法(递推法)
6,打印有规律图案
1
222
33333
4444444
555555555
6666666
77777
888
9
判断 N是否为素数
k=Int(Sqr(n))
Flag=1
For I=2 to k
if n Mod I =0 Then flag=0
Next I
If Flag=1 Then
Print,Yes”
Else
print,No”
End if
迭代法(递推法)
迭代法(递推法):有给定的初值 X0,通过某一算法
(公式)得道新值 X1,再用新值用同样的方法又得道另一新值,这样经过有限次 (Abs(X1-X0)<ε )可求的解已知:求 A的平方根的公式
X1=( X0+A/X0)/2
简要总结
For…Next 循环
While …Wend 循环
Do While …Loop 循环 Do …Loop While 循环
Do Until …Loop 循环 Do …Loop Until 循环循环的嵌套
For
While
..
Wend
Next
几个问题下列程序执行结果输出:
S= 0,T=0,U=0
For I=1 To 3
For J=1 To I
For k=J To 3
s=s+1
Next K
T=T+1
Next J
U=U+1
Next I
Print S;T;U
A,3 6 14 B,14 6 3 C,14 3 6 D,16 4 3
下列程序执行结果输出:
For I=0 To 10 step 3
For j=1 To 10
if J>=5 Then I=I+4,Exit For
J=J+1
K=K+1
Next J
If I>8 Then Exit For
Next I
Print K
下列程序执行结果输出:
Dim Str1$,X$
Str1=“How are you!”
N=len(str1)
For I=1 To N
X=Mid(Str1,I,1)+X
Next I
Print str1
Print X
循环结构 。
退出
6.1 循环概述
6.2 For循环
6.3 While循环
6.4 Do循环
6.5 循环的嵌套
6.6 循环的退出
6.1 循环概述在实际工作中,常遇到一些操作过程不太复杂,
但又需要反复进行相同处理的问题,比如,统计本单位所有人员的工资,求全班同学各科的平均成绩等等 。
这些问题的解决逻辑上并不复杂,但如果单纯用顺序结构来处理,那将得到一个非常乏味且冗长的程序 。
例如,计算 1~ 100所有奇数的平方和,如果用顺序结构来解决这个问题,我们就会给出下面的程序:
Private Sub Form_Click( )
Dim s&,x%
s = 0
x = 1
s = s + x ^2
x = x + 2
s = s + x ^2
x = x + 2
s = s + x ^2
……
x = x +2 'x的值累加到 99
s = s + x ^2
Print "1~ 100之间所有奇数的平方和 ="; s
End Sub
由上面的例子不难看出,程序的绝大部分是在反复执行两条语句 x=x+2和 s=s+x^2,不同的是 x的值在变化 。 程序当然非常简单易懂,但缺乏最基本的编程技巧 。 要想方便地解决这类问题,最好的办法就是用循环语句 。
所谓循环就是重复地执行一组语句 。
我们用循环语句解决上面的问题,程序非常简短:
Private Sub Form_Click()
Dim s&,x%
s = 0
For x = 1 To 99 Step 2
s = s + x ^2
Next x
Print "1~ 100所有奇数的平方和 ="; s
End Sub
在此程序中,第 4,5,6条语句构成了一个循环,
在循环过程中第 5句被反复执行了 50次,从而计算出了
1~ 100所有奇数的平方和。
通过上面的对比可知,循环结构非常适合于解决处理的过程相同、处理的数据相关,但处理的具体值不同的问题。我们把能够处理这类问题的语句称为循环语句。
VB提供了三种不同风格的循环语句,它们分别是:
( 1) For…Next 语句;
( 2) While…Wend 语句;
( 3) Do…Loop 语句。
我们将对这 3种循环语句逐一介绍。
6.2 For循环
For循环的一般格式如下:
For 循环变量 =初值 To 终值 [Step 步长 ]
[循环体 ]
Next [循环变量 ]
说明:
1.格式中各项的说明
循环变量:亦称为循环控制变量,必须为数值型。
初值、终值:都是数值型,可以是数值表达式。
步长:循环变量的增量,是一个数值表达式。一般来说,其值为正,初值应小于终值;若为负,初值应大于终值。但步长不能是 0。如果步长是 1,Step 1可略去不写。
循环体:在 For语句和 Next语句之间的语句序列。
Next后面的循环变量与 For语句中的循环变量必须相同。
2.执行过程
For循环语句的执行过程如下:
( 1)系统将初值赋给循环变量,并自动记下终值和步长。
( 2)检查循环变量的值是否超过终值。如果超过就结束循环,执行 Next后面的语句;否则,执行一次循环体。
( 3)执行 Next语句,将循环变量增加一个步长值再赋给循环变量,转到( 2)继续执行。
以上执行过程用流程图描述,如图 5-1所示。
这里所说的,超过,有两种含义,即大于或小于 。
当步长为正值时,循环变量大于终值为,超过,;当步长为负值时,循环变量小于终值为,超过,。
我们通过分析下面的程序来进一步理解 For语句的执行过程 。
For n=1 To 10 Step 3
Print n,
Next n
具体执行情况如下:
第几次循环 n 与终值比较 执行循环体否
1 1 <10 执行
2 4 <10 执行
3 7 <10 执行
4 10 =10 执行
5 13 >10 停止执行上面程序的执行结果为:
1 4 7 10
3.注意事项
For语句和 Next语句必须成对出现,缺一不可,且
For语句必须在 Next语句之前 。
循环次数由初值,终值和步长确定,计算公式为:
循环次数 =Int(( 终值-初值 ) /步长 ) +1
【 例 6.1】 求 N! ( N为自然数 ) 。
分析:由阶乘的定义,我们可以得出 N! =1*2*… *
( N-2) *( N-1) *N=( N-1) ! *N,也就是说,一个自然数的阶乘,等于该自然数与前一个自然数阶乘的乘积 。
程序如下:
Private Sub Form_Click()
Dim I%,f&,n%
n= InputBox( "输入一个自然数,","输入提示
","10")
f = 1
For I = 1 To n
f = f * I
Next I
Print n; "!="; f
End Sub
程序的执行过程如图 5-2所示。
程序如下:
Private Sub Form_Click( )
Dim I%,n%,p#
n = InputBox( "请输入 n的值 ( 1-32767) ")
p = 1
For I = 1 To n
p = p *( 4 * I * I) /(( 2 * I - 1) *( 2 * I +
1))
Next I
p = 2 * p
Print "n="; n; "时 ","π="; p
End Sub
6.3 While循环前面我们介绍了 For…Next 循环,它适合于解决循环次数事先能够确定的问题。对于只知道控制条件,
但不能预先确定需要执行多少次循环体的情况,我们可以使用 While循环。
While语句格式如下:
While 条件
[循环体 ]
Wend
1,While语句说明
“条件”可以是关系表达式或逻辑表达式。 While
循环就是当给定的“条件”为 True时,执行循环体,
为 False时不执行循环体。因此 While循环也叫当型循环。
2.执行过程
While循环的执行过程(如图 5-5所示):
( 1)执行 While语句,判断条件是否成立。
( 2)如果条件成立,就执行循环体;否则,转到
( 4)执行。
( 3)执行 Wend语句,转到( 1)执行。
( 4)执行 Wend语句下面的语句。
结合下面的程序段,我们做进一步的说明:
x=1
While x<5
Print x,
x=x+1
Wend
该程序段的执行结果是:
1 2 3 4
3,While循环的几点说明
( 1) While 循环语句本身不能修改循环条件,所以必须在 While… Wend语句的循环体内设置相应语句,
使得整个循环趋于结束,以避免死循环 。
( 2) While循环语句先对条件进行判断,然后才决定是否执行循环体 。 如果开始条件就不成立,则循环体一次也不执行 。
( 3) 凡是用 For… Next循环编写的程序,我们都可以用 While… Wend语句实现 。 反之,则不然 。
【 例 6.5】 假设我国现有人口 12亿,若年增长率为 1.5%,试计算多少年后我国人口增加到或超过 20亿 。
人口计算公式为,p=y( 1+r) n
y为人口初值,r为年增长率,n为年数 。
程序如下:
Private Sub Form_Click( )
Dim p!,r!,I%
p = 12
r = 0.015
I = 0
While p < 20
p = p *( 1 + r)
I = I + 1
Wend
Print I; "年后,我国人口将达到 "; p; "亿 "
End Sub
单击窗体,程序运行结果如图 5-7所示。
6.4 Do循环与前面介绍的 While循环相比,Do循环具有更强的灵活性,它可以根据需要决定是条件满足时执行循环体,还是一直执行循环体直到条件满足 。 Do循环有两种语句格式 。
格式 1:
Do {while|until} <条件 >
[<循环体 >]
Loop
格式 2:
Do
[<循环体 >]
Loop {while|until} <条件 >
【 例 6.7】 求两自然数 m,n的最大公约数 。
设计思想,( 1) m除以 n得到余数 r;
( 2) 若 r=0,则 n为要求的最大公约数,算法结束; 否则执行 ( 3) ;
( 3) n→ m,r→ n,再转到 ( 1) 执行 。
程序如下:
Private Sub command1_Click( )
Dim m%,n%,r%
m = Val( Text1.Text)
n = Val( Text2.Text)
r = m Mod n
Do Until r = 0
m = n
n = r
r = m Mod n
Loop
Print " 它们的最大公约数是 "; n
End Sub
程序运行结果如图 5-12所示。
6.5 循环的嵌套在一个循环体内又包含了一个完整的循环,这样的结构称为多重循环或循环的嵌套 。 在程序设计时,
许多问题要用二重或多重循环才能解决 。 我们前面学过的 For循环,While循环,Do循环都可以互相嵌套,
如在 For… Next的循环体中可以使用 While循环,而在
While… Wend的循环体中也可以出现 For循环等 。
二重循环的执行过程是外循环执行一次,内循环执行一遍,在内循环结束后,再进行下一次外循环,
如此反复,直到外循环结束 。
【 例 5.8】 打印九九乘法表。
分析:打印九九乘法表,只要利用循环变量作为乘数和被乘数就可以方便的解决。
程序如下:
Private Sub Form_Click()
Dim i%,j%,str$
Print Tab( 35); "九九乘法表 "
For i = 1 To 9
For j = 1 To 9
str = i & "× " & j & "=" & i * j
Print Tab(( j - 1) * 9 + 1); str;
Next j
Next i
End Sub
程序运行结果如图 5-13所示。
1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*1=1 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=7 2*8=8 2*9=9
对于循环的嵌套,要注意以下事项:
( 1) 在多重循环中,各层循环的循环控制变量不能同名 。 但并列循环的循环控制变量名可以相同,也可以不同 。
( 2) 外循环必须完全包含内循环,不能交叉 。
【 例 6.10】 求分析:观察多项式就会发现,奇数项为正,偶数项为负,各项分子的指数与分母的阶乘数相同,各相邻项指数相差为 2。 因此,可以设计一个二重循环,内层循环实现每项的计算,外层循环完成对各项的求和 。
)!12(
)1(
!9!7!5!3
s i n
12
1
9753
n
xxxxxxx nn
程序如下:
Private Sub command1_Click()
Dim x#,n&,s#,i%,j%,k#,p#,f%
x = Val( Text1.Text)
n = Val( Text2.Text)
s = 0,f = -1
For i = 1 To n
p = 1,k = 1
For j = 1 To 2 * i - 1
p = p * j
k = k * x
Next j
f = f *( -1)
s = s + f * k / p
Next i
Print "sin( "; x; ") ="; s
End Sub
运行结果如图 5-16所示。
6.6 循环的退出前面讲述的循环,都是在执行结束时正常的退出 。
但在某些情况下,为了减少循环次数或便于程序调试,
可能需要提前强制退出循环 。 VB为 For… Next 和
Do… Loop循环语句提供了相应的强制退出循环的语句,
现介绍如下 。
1,Exit For
该语句用于 For…Next 循环,在循环体中可以出现一次或多次。当系统执行到该语句时,就强制退出当前循环。常见的使用格式是:
If 条件 Then Exit For
即当循环执行过程中满足某个条件时,就执行循环退出语句结束循环。
2,Exit Do
该语句用于 Do… Loop循环,具体用法同 Exit For
一样 。
常见算法
1:辗转相除法,求最大公约数
2:阶乘算法
3:求素数算法
4:穷举法,求水仙花数
5:迭代法(递推法)
6,打印有规律图案
1
222
33333
4444444
555555555
6666666
77777
888
9
判断 N是否为素数
k=Int(Sqr(n))
Flag=1
For I=2 to k
if n Mod I =0 Then flag=0
Next I
If Flag=1 Then
Print,Yes”
Else
print,No”
End if
迭代法(递推法)
迭代法(递推法):有给定的初值 X0,通过某一算法
(公式)得道新值 X1,再用新值用同样的方法又得道另一新值,这样经过有限次 (Abs(X1-X0)<ε )可求的解已知:求 A的平方根的公式
X1=( X0+A/X0)/2
简要总结
For…Next 循环
While …Wend 循环
Do While …Loop 循环 Do …Loop While 循环
Do Until …Loop 循环 Do …Loop Until 循环循环的嵌套
For
While
..
Wend
Next
几个问题下列程序执行结果输出:
S= 0,T=0,U=0
For I=1 To 3
For J=1 To I
For k=J To 3
s=s+1
Next K
T=T+1
Next J
U=U+1
Next I
Print S;T;U
A,3 6 14 B,14 6 3 C,14 3 6 D,16 4 3
下列程序执行结果输出:
For I=0 To 10 step 3
For j=1 To 10
if J>=5 Then I=I+4,Exit For
J=J+1
K=K+1
Next J
If I>8 Then Exit For
Next I
Print K
下列程序执行结果输出:
Dim Str1$,X$
Str1=“How are you!”
N=len(str1)
For I=1 To N
X=Mid(Str1,I,1)+X
Next I
Print str1
Print X