VisualBasic的基本控制结构学习教案

1、会计学1VisualBasic的基本的基本(jbn)控制结构控制结构第一页，共73页。2第1页/共72页第二页，共73页。语句语句1语句语句n第2页/共72页第三页，共73页。第3页/共72页第四页，共73页。5第4页/共72页第五页，共73页。序。大部分情况下两种语句(yj)间可以相互替换。第5页/共72页第六页，共73页。1. IfThen语句（单分支语句）语句（单分支语句） 语句格式如下：语句格式如下： (1) If Then End If (2) If Then 其中条件表达式可以是任意类型的，语句块可以是一条或多条语句。若其中条件表达式可以是任意类型的，语句块可以是一条或多条语句。若

2、用简单的形式用简单的形式(2)表示，则只能有一条语句或语句间用冒号分隔，并且必须表示，则只能有一条语句或语句间用冒号分隔，并且必须(bx)写在同一行上。写在同一行上。 该语句的作用是当条件表达式的值为该语句的作用是当条件表达式的值为True或非或非0数值时，执行数值时，执行Then后面后面的语句块的语句块(或语句或语句)，否则跳过此语句，直接执行，否则跳过此语句，直接执行If语句后面的语句。语句后面的语句。条件表达条件表达式式语句块语句块FalseTrue第6页/共72页第七页，共73页。2. IfThenElse语句（双分支结构）语句（双分支结构） 语句格式如下：语句格式如下：(1) If

3、Then Else End If(2) If Then Else 该语句的作用是当条件表达式的值为非零（该语句的作用是当条件表达式的值为非零（True）时，）时，执行执行(zhxng)Then后面的语句块后面的语句块1（或语句（或语句1），否则执行），否则执行(zhxng)Else后面的语句块后面的语句块2（或语句（或语句2）。）。条件表达条件表达式式语句块语句块1语句块语句块2TrueFalse第7页/共72页第八页，共73页。例：计算分段例：计算分段(fn dun)(fn dun)函函数数y y的值。的值。0672025xxxexyxPrivate Sub CmdCalculate_Cli

4、ck() Dim x As Single,y As Single x=Val(Text1.Text) 输入输入(shr) If x 0 Then y = 5*x+Exp(x)-2 Else y = 2*Sqr(x+7)-6 End If Text2.Text=Cstr(y) 输出输出End SubcmdCalculateText1第8页/共72页第九页，共73页。第9页/共72页第十页，共73页。条件条件1语句块语句块1语句块语句块2语句块语句块n语句块语句块n+1条件条件2条件条件nTrueTrueTrueFalseFalseFalse第10页/共72页第十一页，共73页。第11页/共72页

5、第十二页，共73页。If Then If ThenEnd IfElseEnd IfIf ThenElseIf ThenEnd IfEnd If 在使用嵌套结构时，书写程序时更应注意采用缩进格在使用嵌套结构时，书写程序时更应注意采用缩进格式式(g shi)，增加程序可读性，且每个，增加程序可读性，且每个If语句必须与语句必须与End If配配对。对。第12页/共72页第十三页，共73页。开始开始边长边长0?是否能组成三角形是否能组成三角形计算计算输出输出出错信息出错信息结束结束是是否否是是否否第13页/共72页第十四页，共73页。Private Sub cmdCalculate_Click()

6、Dim a As Single,b As Single,c As Single,p As Single,s As Single a=Val(Text1.Text): b=Val(Text2.Text): c=Val(Text3.Text) If (1) Then If a+bc And b+ca And c+ab Then p=(a+b+c)/2 s=Sqr(p*(p-a)*(p-b)*(p-c) Text4.Text=Cstr(s) Else Text4.Text=“不能构成不能构成(guchng)三角形三角形” End If Else Text4.Text=“边长不能小于边长不能小于0”

7、End IfEnd Sub计算公式：计算公式：其中其中(qzhng)：)()(cpbpappS2cbapa0 And b0 And c0获取数据获取数据输出输出(shch)到文到文本框本框第14页/共72页第十五页，共73页。例：计算分段例：计算分段(fn (fn dun)dun)函数函数y y的值。的值。55xlnxx054x3x0 x5x1y2Private Sub cmdCalculate_Click() Dim x As Single,y As Single x=Val(Text1.Text) If x0 Then y=1/(x-5) Else If x5 Then y=3*x2+4*

8、x+5 Else y=Log(x) End If End IfText2.text=Cstr(y)End Sub05第15页/共72页第十六页，共73页。例：计算等级分。计算规则如下例：计算等级分。计算规则如下(rxi)(rxi)： 分数分数 100-90 89-80 79-70 69-60 60 100-90 89-80 79-70 69-60 =0 And Score = 90 Then Degree = A Else If Score = 80 Then Degree = B Else If Score = 70 Then Degree = C Else If Score = 60 Th

9、en Degree = D Else Degree = E End If End If End If End If Text2.Text = Cstr(Degree) End If End IfEnd Sub缺点：缺点： 嵌套层次嵌套层次(cngc)(cngc)过多，过多，结构不清晰，容易出错。结构不清晰，容易出错。第16页/共72页第十七页，共73页。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Score As Integer, Degree As String If KeyAscii = 13 Then Score = Val(T

10、ext1.Text) If Score=0 And Score = 90 Then Degree = A ElseIf Score = 80 Then Degree = B ElseIf Score = 70 Then Degree = C ElseIf Score = 60 Then Degree = D Else Degree = E End If End If Text2.Text = Cstr(Degree) End IfEnd Sub特点：特点：结构结构(jigu)清晰清晰。第17页/共72页第十八页，共73页。 Select Case 语句是实现多分支选择结构的另一种表示形式，又称

11、为“情况选择”语句。当需要分情况讨论，或根据某些离散的值进行不同的处理(chl)时，使用Select Case语句可以更加简洁的表达算法，而且也容易扩充。 Select Case 语句的格式如下： Select Case 测试表达式 Case 表达式值1 Case 表达式值2 Case Else End Select测试表达测试表达式式语句块语句块1语句块语句块2语句块语句块n+1表达式值表达式值1表达式值表达式值2其他情况其他情况第18页/共72页第十九页，共73页。 其中，测试表达式可以是数值其中，测试表达式可以是数值(shz)表达式或字符串表达式。表达式或字符串表达式。表达式值只能是简单

12、条件，而不能是用逻辑运算符连接而成的复合表达式值只能是简单条件，而不能是用逻辑运算符连接而成的复合条件。条件。 表达式值必须与表达式值必须与“测试表达式测试表达式”的类型一致，可以是下面情形之一的类型一致，可以是下面情形之一：1. 表达式表达式,表达式表达式 当当“测试表达式测试表达式”的值与其中一个表达式的值相匹配时，就执行该的值与其中一个表达式的值相匹配时，就执行该Case子句的语句块。子句的语句块。 例如：例如：Case -1, 1 Case a, A2. To 当当“测试表达式测试表达式”的值处在这个范围时，就执行该的值处在这个范围时，就执行该Case 子句的语子句的语句块。必须把比较

13、小的值写在前面，把比较大的值写在后面，字符句块。必须把比较小的值写在前面，把比较大的值写在后面，字符常量的范围必须按字母顺序写出。常量的范围必须按字母顺序写出。 例如：例如：Case 1To 10 Case A To Z4.2.2 Select Case 语句语句(yj)第19页/共72页第二十页，共73页。3. Is 关系运算表达式关系运算表达式 只要只要“测试表达式测试表达式”的值满足的值满足(mnz)给定的条件就执行该给定的条件就执行该Case子句的子句的语句块。只能是简单的条件，不能用逻辑运算符把两个或多个简单条件组语句块。只能是简单的条件，不能用逻辑运算符把两个或多个简单条件组合在一

14、起。合在一起。4. 可以由以上可以由以上3种形式混合组成，各种形式间用逗号分隔。条件组合是或种形式混合组成，各种形式间用逗号分隔。条件组合是或的关系，不能表示与的关系的关系，不能表示与的关系 。5. 对于多分支选择结构，用对于多分支选择结构，用Select Case 语句比用语句比用IfThenElseIf语句更语句更为直观，程序可读性强。两者的区别在于：为直观，程序可读性强。两者的区别在于：Select Case 语句只对单一表达语句只对单一表达式求值，并根据求值结果执行不同的语句块，而式求值，并根据求值结果执行不同的语句块，而IfThenElseIf语句可语句可以对不同的表达式求值。所以，

15、当对多个条件进行判断时，只能用以对不同的表达式求值。所以，当对多个条件进行判断时，只能用IfThenElseIf语句。语句。4.2.2 Select Case 语句语句(yj)第20页/共72页第二十一页，共73页。【例【例4.4】 将例用将例用Select Case语句语句(yj)实现。实现。第21页/共72页第二十二页，共73页。例：将计算等级分用例：将计算等级分用Select CaseSelect Case语句语句(yj)(yj)改写改写。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Score As Integer, Degre

16、e As String If KeyAscii = 13 Then Score = Val(Text1.Text) Select Case Score Case 90 To 100 Degree = A Case 80 To 89 Degree = B Case 70 To 79 Degree = C Case 60 To 69 Degree = D Case Is60 Degree = E End Select Text2.Text =Degree End IfEnd Sub从文本框取数据从文本框取数据(shj)向文本框放数据向文本框放数据(shj)如果改为如果改为ElseElse，结果会怎

17、样？结果会怎样？ Select Case Score Case Is 0 Degree = Case Is 60 Degree = E Case Is 70 Degree = D Case Is 80 Degree = C Case Is 90 Degree = B Case Is = 100 Degree = A End Select第22页/共72页第二十三页，共73页。第23页/共72页第二十四页，共73页。25第24页/共72页第二十五页，共73页。第25页/共72页第二十六页，共73页。窗体上打印一行窗体上打印一行hello 窗体上打印一行窗体上打印一行hello110例：在窗体上打

18、印例：在窗体上打印(d yn)10行行“Hello”第26页/共72页第二十七页，共73页。提示：要设立一个变量，用于记录已打印的行数，每打印一提示：要设立一个变量，用于记录已打印的行数，每打印一行，计数变量要加行，计数变量要加1 1，循环，循环(xnhun)(xnhun)控制条件即计数变量小控制条件即计数变量小于于1010窗体上打印一行窗体上打印一行hellohelloTrueFalse未满未满10行？行？循环控制条件循环控制条件 : : 是否已打印是否已打印(d yn)(d yn)了了1010行行 循环体循环体: : 在窗体上打印在窗体上打印(d yn)(d yn)一行一行“Hello”“

19、Hello”第27页/共72页第二十八页，共73页。 4.3.1 ForNext 语句语句(yj) 4.3.2 DoLoop 语句语句(yj) 4.3.3 GoTo语句语句(yj)（选讲）（选讲）312 4.4 循环嵌套循环嵌套4第28页/共72页第二十九页，共73页。 格式格式 ：For For = To To Step Step Exit For Exit For Next Next 功能功能 ：该语句是计数型循环语句，用于循环次数已知的循环结构该语句是计数型循环语句，用于循环次数已知的循环结构。由循环变量控制，有限。由循环变量控制，有限(yuxin)(yuxin)次地执行循环体。次地执行

20、循环体。执行流程和步骤见下页：执行流程和步骤见下页：循环体循环体第29页/共72页第三十页，共73页。步骤：步骤：1. 1. 计算初值、终值和步长值，将计算初值、终值和步长值，将初值赋于计数变量；初值赋于计数变量；2. 2. 判断判断“循环变量循环变量”是否到达是否到达“终值终值”。如果。如果“步长步长”为正数，则为正数，则“循环变量循环变量”大于大于“终值终值”时结束时结束循环，否则执行第循环，否则执行第3 3步；如果步；如果“步步长长”为负数为负数(fsh)(fsh)，则，则“循环变循环变量量”小于小于“终值终值”时结束循环，否时结束循环，否则执行第则执行第3 3步。步。3. 3. 执行循

21、环体。执行循环体。4.4.循环变量循环变量= =循环变量循环变量+ +步长值步长值5.5.返回第返回第2 2步，继续循环。步，继续循环。计数变量计数变量=初值初值计数变量计数变量终值终值是是循环体循环体计数变量计数变量=计数变量计数变量+步长值步长值否否步长值为正的计数循环步长值为正的计数循环计算初值、终值和步长值计算初值、终值和步长值For = To Step Next 第30页/共72页第三十一页，共73页。 说明说明 ： For-Next For-Next是关键字，成对出现，缺一不可；是关键字，成对出现，缺一不可； 循环体为可执行语句组成，可以嵌套选择结构和循环结构；循环体为可执行语句组

22、成，可以嵌套选择结构和循环结构； 循环变量应为整型或单精度型，初值、终值和步长值为相应类型的表循环变量应为整型或单精度型，初值、终值和步长值为相应类型的表达式；达式； 步长值可以为正，也可以为负，可以省略，省略时默认步长值可以为正，也可以为负，可以省略，省略时默认(mrn)(mrn)步长值步长值为为1 1； 循环次数为：循环次数为：Int(Int(终值终值- -初值）初值）/ /步长值）步长值）+1+1 语句语句Exit ForExit For可以无条件退出计数循环可以无条件退出计数循环 如果如果“初值初值”、“终值终值”、“步长步长”中包含有变量且在循环体内被改中包含有变量且在循环体内被改变

23、，不会改变循环执行的次数，但循环变量若在循环体内被重新赋值，变，不会改变循环执行的次数，但循环变量若在循环体内被重新赋值，循环次数则有可能发生变化。循环次数则有可能发生变化。4.3.1 ForNext 语句语句(yj)第31页/共72页第三十二页，共73页。【例【例4.5】 计算计算(j sun)216。第32页/共72页第三十三页，共73页。【例【例4.6】 输入输入20个整数，分别计算个整数，分别计算 并输出正数并输出正数(zhngsh)和负数的平均值。和负数的平均值。第33页/共72页第三十四页，共73页。4.3.2 DoLoop 语句语句(yj)格式格式(g shi)：Do While

24、/Until 或或 Do Loop Loop While/Until 重复重复(chngf)执执行的语句块行的语句块第34页/共72页第三十五页，共73页。格式格式(g shi)一：一：Do While Loop条件？条件？循环体循环体成立成立Loop的后继语句的后继语句不成立不成立执行步骤执行步骤(bzhu)(bzhu)：1.1.判断条件是否成立。如果判断条件是否成立。如果条件不成立，转向第条件不成立，转向第4 4步步2.2.执行循环体；执行循环体；3.3.转向执行第转向执行第1 1步；步；4.4.结束循环，执行结束循环，执行LoopLoop语句语句的后继语句。的后继语句。第35页/共72页

25、第三十六页，共73页。Private Sub form_Click() Dim i As Integer i = 0 Do While i 10 Print hello i = i + 1 LoopEnd Sub例：在窗体上打印例：在窗体上打印(d yn)10行行“Hello”。i为计数器，判定是否为计数器，判定是否(sh fu)打印了打印了10行行第36页/共72页第三十七页，共73页。例：求例：求1到到100之间的整数之间的整数(zhngsh)之和。之和。Private Sub Command1_Click() Dim i As Integer, sum As Integer sum=0:

26、i=1 Do While i = 100sum = sum+ i i = i + 1 Loop print sum=; sumEnd Sub循环体循环体设初值设初值,sum为累加器为累加器第37页/共72页第三十八页，共73页。格式格式(g shi)二：二：Do Loop While 条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1 1 执行循环体；执行循环体； 2 2 判断条件是否成立。如果判断条件是否成立。如果(rgu)(rgu)条件成立，转向第条件成立，转向第1 1步步3 3 条件不成立，结束循环，执条件不成立，结束循环，执行行LoopLoo

27、p语句的后继语句。语句的后继语句。第38页/共72页第三十九页，共73页。格式格式(g shi)三：三：Do Until Loop条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1.1.判断条件是否成立判断条件是否成立(chngl)(chngl)。如果条件成立。如果条件成立(chngl)(chngl)，转向第，转向第4 4步步2.2.执行循环体；执行循环体；3.3.转向执行第转向执行第1 1步；步；4.4.结束循环，执行结束循环，执行LoopLoop语语句的后继语句。句的后继语句。第39页/共72页第四十页，共73页。Private Sub Comm

28、and3_Click() Dim sum As Integer, i As Integer sum = 0: i = 1 Do Until i 100 sum = sum + i i = i + 1 Loop Print sum=; sumEnd Sub例：求例：求1到到100之间的整数之间的整数(zhngsh)之之和。和。第40页/共72页第四十一页，共73页。格式格式(g shi)四：四：Do Loop Until 条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立执行步骤：执行步骤：1 .1 .执行循环体；执行循环体； 2 .2 .判断条件判断条件(tiojin)(

29、tiojin)是否成是否成立。如果条件立。如果条件(tiojin)(tiojin)不成立不成立，转向第，转向第1 1步步3 . 3 . 条件条件(tiojin)(tiojin)成立，结束成立，结束循环，执行循环，执行LoopLoop语句的后继语句语句的后继语句。第41页/共72页第四十二页，共73页。格式格式(g shi)五：五：Do Loop执行步骤：执行步骤： 反复执行循环体。该结构为反复执行循环体。该结构为“死循环死循环”，一般通过，一般通过Exit DoExit Do语语句退出循环。句退出循环。 Exit Do Exit Do语句最常用的形式是语句最常用的形式是与与If-ThenIf-

30、Then语相结合，即：语相结合，即：If e If e Then Exit DoThen Exit Do当在执行循环体时，条件当在执行循环体时，条件e e被满足被满足(mnz)(mnz)，则执行，则执行Exit DoExit Do语句直语句直接退出循环。接退出循环。注意：如果运行时出现注意：如果运行时出现(chxin)(chxin)死循环，使用死循环，使用 Ctrl+Break Ctrl+Break中止中止循环体循环体Loop后续语句后续语句第42页/共72页第四十三页，共73页。Private Sub Command5_Click() Dim sum As Integer, i As Int

31、eger sum = 0:i = 1 Do sum = sum + i If i= 100 Then Exit Do i = i + 1 Loop Print sum=; sumEnd Sub例：求例：求1到到100之间的整数之间的整数(zhngsh)之和。之和。第43页/共72页第四十四页，共73页。 功能功能 ：根据：根据(gnj)(gnj)条件成立与否，控制重复执行循环体条件成立与否，控制重复执行循环体。 说明说明 ：（1 1）DoDo和和LoopLoop为结构关键字，必须成对出现，缺为结构关键字，必须成对出现，缺一一 不可；不可；（2 2）循环体为可执行语句组成，可以嵌套分支结）循环体

32、为可执行语句组成，可以嵌套分支结构构 和循环结构；和循环结构；（3 3）语句）语句Exit Do Exit Do 可无条件退出循环，一般情况可无条件退出循环，一般情况 下在该语句前加上下在该语句前加上IfIf语句；语句； If e Then Exit Do If e Then Exit Do 当在执行循环体时，条件当在执行循环体时，条件e e被满足，则执行被满足，则执行 Exit Do Exit Do语句直接退出循环。语句直接退出循环。（4 4）DoloopDoloop循环共有循环共有5 5种具体格式。种具体格式。4.3.2 DoLoop 语句语句(yj)第44页/共72页第四十五页，共73页

33、。小结：小结：（1 1）While While 短语总是在条件成立时，继续进行循环；短语总是在条件成立时，继续进行循环；条件不成立时，结束循环。因此称为当型循环；区别条件不成立时，结束循环。因此称为当型循环；区别在于：首次执行循环语句时，若循环条件不成立，则在于：首次执行循环语句时，若循环条件不成立，则格式二的循环体被执行一次，而格式一的循环体不被格式二的循环体被执行一次，而格式一的循环体不被执行。执行。（2 2） Until Until 短语总是在条件不成立时，继续进行循短语总是在条件不成立时，继续进行循环；条件成立时，结束循环。因此称为直到型循环；环；条件成立时，结束循环。因此称为直到型循

34、环；区别在于：首次执行循环语句时，若循环条件不成立区别在于：首次执行循环语句时，若循环条件不成立，则格式四的循环体被执行一次，而格式三的循环体，则格式四的循环体被执行一次，而格式三的循环体不被执行。不被执行。（3 3）这两种短语是可以）这两种短语是可以(ky)(ky)相互转换的。相互转换的。4.3.2 DoLoop 语句语句(yj)第45页/共72页第四十六页，共73页。条件？条件？循环体循环体成立成立Loop的后继语句的后继语句不成立不成立条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立条件？条件？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立条件？条件

35、？循环体循环体不成立不成立Loop的后继语句的后继语句成立成立Do While e. . Exit DoLoopDo until e. . Exit DoLoopDo. . Exit DoLoop While eDo. . Exit DoLoop until e第46页/共72页第四十七页，共73页。 Do While e Do . . Exit Do Exit Do . . Loop Loop While e Do Until e Do . . Exit Do Exit Do . . Loop Loop Until e不管条件不管条件(tiojin)成立与否成立与否循环体至循环体至少要执行少

36、要执行一次一次当型当型直到直到(zhdo)型型4.3.2 DoLoop 语句语句(yj)第47页/共72页第四十八页，共73页。Do-Loop循环循环知道循环继续或结知道循环继续或结束的条件束的条件条件循环条件循环For-Next循环循环知道循环执行次数知道循环执行次数计数循环计数循环第48页/共72页第四十九页，共73页。 分析分析 ：算法：求最大公约数的常用方法是辗转相除法。算法：求最大公约数的常用方法是辗转相除法。1 1、输入两个自然数、输入两个自然数M M、N;N;2 2、求、求M M除以除以N N的余数的余数R R；3 3、使得、使得M=NM=N，即用，即用N N代换代换M;M;4

37、4、使得、使得N=RN=R，即用，即用R R代换代换N;N;5 5、若、若R0,R0,则重复则重复(chngf)2(chngf)2、3 3、4 4（循环）（循环），否则转，否则转6 66 6、输出、输出M,M,此时此时M M即为即为M M和和N N的最大公约数。的最大公约数。例：求两个例：求两个(lin )数的最大数的最大公约数。公约数。第49页/共72页第五十页，共73页。1810M N R8108 2 8 2 0 2 0R=8R=2R=0M=2即即最大公约数最大公约数求最大公约数求最大公约数第50页/共72页第五十一页，共73页。 在该例中，我们在该例中，我们(w men)(w men)使

38、用了三个变量，分别表示被除数（使用了三个变量，分别表示被除数（m m）、除数（）、除数（n n）及余数（）及余数（r r）。）。 Do r=m Mod n m=n n=rLoop Until r=0最大公约数是（最大公约数是（ ）？）？第51页/共72页第五十二页，共73页。问题分析及界面设计问题分析及界面设计 由于输入的数据由于输入的数据M M和和N N要求是自然数，在程序中应加入对数要求是自然数，在程序中应加入对数据的合法性进行检验的部分；考虑到程序的应用范围据的合法性进行检验的部分；考虑到程序的应用范围(fnwi)(fnwi)，数据类型可选用长整型。数据类型可选用长整型。 设计好的用户界

39、面及程序代码如下。设计好的用户界面及程序代码如下。第52页/共72页第五十三页，共73页。Private Sub Command1_Click() Dim m As Long, n As Long, r As Long m = Val(Text1.Text) 取数据取数据(shj)M n = Val(Text2.Text) 取数据取数据(shj)N If m 1 Or n 1 Then 检验数据检验数据(shj)合法性合法性 Text3.Text = 数据数据(shj)错误！错误！ Else Do 求最大求最大公约数公约数 r = m Mod n m = n n = r Loop Until

40、r = 0 Text3.Text = CStr(m) 输出最大公约数输出最大公约数 End If End Sub Private Sub Command2_Click() Text1.Text = 清除清除(qngch)文本框文本框1 Text2.Text = 清除清除(qngch)文本框文本框2 Text3.Text = 清除清除(qngch)文本框文本框3 Text1.Setfocus End Sub Private Sub Command3_Click() End End Sub第53页/共72页第五十四页，共73页。【例【例4.144.14】计算】计算(j sun)(j sun)圆周率

41、的近似值圆周率的近似值。 计算计算(j sun)(j sun)公式如下：公式如下：12) 1(715131141nn直到最后一项的绝对值小于直到最后一项的绝对值小于10-610-6为止。为止。 提示提示 ：由于本题无法预知循环：由于本题无法预知循环(xnhun)(xnhun)次数，可次数，可以用以用DoLoopDoLoop语句来解决。语句来解决。 s=s+ s=s+ 可实现累加。可实现累加。第54页/共72页第五十五页，共73页。Private Sub Command1_Click() Dim PI As Double, sum As Double, t As Double Dim n As Integer n = 1: sum = 0 S S为累加器为累加器 Do t = (-1)(n-1) / (2 * n - 1) 求通项求通项 sum = sum + t n = n + 1 PI = 4*sum Text1.Text = C