2012年计算机等级考试二级VB重点知识（十）

　　先看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

　　相关推荐：

　　2012年下半年计算机等级考试报名时间及入口汇总

　　计算机等级考试三级PC技术过关心得技巧

　　2012年3月计算机二级考试真题汇总