vb课件vb第6章幻灯片.pptVIP

* 思考: 1. 求12+22+32+42+……+1002 2. 求13+33+53+……+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 4. 求 5. 求 * 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 例: 判断以下程序段的执行结果:  X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K,X * 【例6-9】求 N！( N!=1×2×3×…×N) 累乘分析: 初始化: F=1 循环体: F=F × I (I=1，2，3……N) 程序: Private Sub Command1_Click() Dim N As Integer, I As Integer, F As Long N = Val(Text1.Text) F = 1 For I = 1 To N F = F * I Next I Text2.Text = F End Sub * 思考: 1. 求1×3 ×5 ×7……(共N项)。 2. 求: 3. 求: * 【例6-10】打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 即从第三项起每一项是其前两项之和。 分析: …… Private Sub Form_Click() A = 0:B = 1 Text1.Text = Text1.Text Str(A) Str(B) _ Chr(13) Chr(10) For I = 1 To 9 A = A + B B = A + B Text1.Text = Text1.Text Str(A) Str(B) _ Chr(13) Chr(10) Next I End Sub * 思考: 1. 在窗体上打印1、3、5、7、9、…、N。 2. 在窗体上显示1到500之间所有能被3整除的数，每行10个数。 3. 在带水平滚动条文本框中显示1到指定N之间所有能被3和7同时整除的数。 * 6.3.2当循环控制结构 当循环可以指定一个执行循环的条件,而For循环只能进行指定次数的重复循环,因此,当需要由数据的某个条件是否出现来控制循环的时候,就不宜使用For循环,而应当使用当循环语句While…Wend来描述。 当循环的一般格式： While 条件 [语句块] Wend 循环流程如图所示： * 例:从键盘上输入字符,对输入的字符进行计数，当输入的字符为“?”时,停止计数,并输出结果 Private Sub Form_Click() Dim char As String Const ch$ = ? counter = 0 msg$ = 请输入字符 char = InputBox$(msg$) While char ch$ counter = counter + 1 char = InputBox$(msg$) Wend FontSize = 20 Print 你输入的字符数目为：; counter End Sub * 6.3.2 Do循环控制结构 问题: 求12+22+32+42+…小于某数N的最大值，N由用户指定。 特点:已知循环条件、未知循环次数，用Do … Loop循环结构实现 1. 格式 格式一: Do While 条件 [语句组1] [Exit Do] [语句组2] Loop 格式二: Do Until 条件 [语句组1] [Exit Do] [语句组2] Loop * 2. 功能 使用While 条件: 条件为True时，执行循环体