计算机二级VB重点知识10.docVIP

★掌握单分支、双分支以及多分支结构语句的格式以及程序设计方法 　　★do-loop型循环语句及循环结构的程序设计 　　★For-Next型循环语句及循环结构的程序设计 　　★循环的嵌套 　　1.for-next 循环语句： 　　一般格式： for v=e1 to e2 [step e3] 　　…… 　　[exit for]循环体语句组 　　…… 　　next v 　　其中：v :循环控制变量。应为 整型 或 单精度型。 　　e1:循环控制变量的初值。 　　e2:循环控制变量的终值 。 　　e3:循环控制变量的步长值。 　　功能：（执行过程）： 　　使用说明：◆ 超过终值的情况：当 e3 0 时，指 ve2, 当 e30 时，指ve2 。 　　◆ 循环次数的计算公式：循环次数=Int（（e2-e1）/e3）+1 　　◆当step 1 时，此部分可以省略。 　　◆循环中执行到 exit for 语句时，结束本循环语句，转本next 的下一条语句去执行。 　　1.1程序举例 　　例：求 1+2+3+4+5 　　Private Sub Form_click（） 　　Dim s As Integer, i As Integer 　　s = 0 　　For i = 1 To 5 　　s = s + i 　　Next i 　　Print s=; s 　　End Sub 　　例： 求1*2*3*4 　　Private Sub Form_click（） 　　Dim s As Integer, i As Integer 　　s = 1 　　For i = 1 To 4 　　s = s * i 　　Next I 　　Print s=; s 　　End Sub 　　先看len、mid函数的使用： 　　有一个字符串 A=abcd 　　（1） 则 len（A）=4?? len（x）? 可获得x字符串长度。（一个汉字为2个字符） 　　（2）mid（x,n1,n2） :取子串函数 　　作用一：取子串： 　　mid（A,1,1）=a 　　mid（A,1,2）=ab 　　mid（A,3,1）=c 　　从一个字符串中一个一个取出字符的方法： 　　for I=1 to len（x） 　　print mid（x,I,1） 　　next I 　　若逆序取出： 　　for I=len（x） to 1? step -1 　　print mid（x,I,1） 　　next I 　　作用二：改变一个字符串中某些字符。 　　mid（x,2,2）=k 　　1.2循环嵌套： 　　for? I= 1? to? 2 　　fot j=1 to 3 　　print? b 　　next j 　　print a 　　next I 　　程序举例：P73 　　例 　　rnd（x）：? 随机函数的使用方法。 　　改变程序中rnd（X）中的X取值，观察结果 　　Private Sub Form_click（） 　　Print Rnd（1）； Rnd（0） 　　End Sub 　　产生[a,b]范围内随机整数的公式： 　　int（（b-a+1）*rnd+a） 　　例：生成5个3位随机整数。 　　For I=1 to 5 　　Print? int（（999-100+1）*rnd+100） 　　Next I 　　自习 P74 各例 　　isNumeric（x）? : 判断一个字符串是否是一个数字串。 　　若x是数字串，其值为True ,若不是数字串，其值为False 　　2. do-loop? 循环结构： 　　一般格式：4种 　　do while edo 　　…… 　　[exit do][exit do] 　　…… 　　looploop? while? e 　　格式一： 　　（1）先判断e 的值，为 true，执行循环体A，为false，循环结束，转loop的下面一条语句去执行。 　　（2）循环体执行完后，执行loop语句，返回（1）。 　　2.1例 :（补充） 　　求s=1+2+3+4+……? 当结果大小等于55时结束 　　Private Sub Form_click（） 　　Dim s As Integer, n As Integer 　　s = 0 　　n = 0 　　Do While s 55 　　n = n + 1 　　s = s + n 　　Loop 　　Print s, n 　　End Sub 　　格式二： 　　（1）执行循环体语句组。 　　（2）执行到 loop while 语句时，判断 e 的值，若为 true , 转（1），若为 false , 循环结束，转loop 的下面一条语句去执行。 　　格式三： do until? e格式四：do 　　…… 　　[exit do][exit do