先看len、mid函數(shù)的使用：

　　有一個(gè)字符串 A="abcd"

　　(1) 則 len(A)=4 len(x) 可獲得x字符串長(zhǎng)度。(一個(gè)漢字為2個(gè)字符)

　　(2)mid(x,n1,n2) :取子串函數(shù)

　　作用一：取子串：

　　mid(A,1,1)="a"

　　mid(A,1,2)="ab"

　　mid(A,3,1)="c"

　　從一個(gè)字符串中一個(gè)一個(gè)取出字符的方法：

　　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

　　作用二：改變一個(gè)字符串中某些字符。

　　mid(x,2,2)="k"

　　1.2循環(huán)嵌套：

　　for I= 1 to 2

　　fot j=1 to 3

　　print "b"

　　next j

　　print "a"

　　next I

　　程序舉例：P73

　　例

　　rnd(x)： 隨機(jī)函數(shù)的使用方法。

　　改變程序中rnd(X)中的X取值，觀察結(jié)果

　　Private Sub Form_click()

　　Print Rnd(1); Rnd(0)

　　End Sub

　　產(chǎn)生[a,b]范圍內(nèi)隨機(jī)整數(shù)的公式：

　　int((b-a+1)*rnd+a)

　　例：生成5個(gè)3位隨機(jī)整數(shù)。

　　For I=1 to 5

　　Print int((999-100+1)*rnd+100)

　　Next I

　　自習(xí) P74 各例

　　isNumeric(x) : 判斷一個(gè)字符串是否是一個(gè)數(shù)字串。

　　若x是數(shù)字串，其值為True ,若不是數(shù)字串，其值為False

　　2. do-loop 循環(huán)結(jié)構(gòu)：

　　一般格式：4種

　　do while edo

　　……

　　[exit do][exit do]

　　……

　　looploop while e

　　格式一：

　　(1)先判斷e 的值，為 true，執(zhí)行循環(huán)體A，為false，循環(huán)結(jié)束，轉(zhuǎn)loop的下面一條語句去執(zhí)行。

　　(2)循環(huán)體執(zhí)行完后，執(zhí)行l(wèi)oop語句，返回(1)。

　　2.1例 :(補(bǔ)充)

　　求s=1+2+3+4+…… 當(dāng)結(jié)果大小等于55時(shí)結(jié)束

　　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

　　相關(guān)推薦：

　　2012年下半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間及入口匯總

　　計(jì)算機(jī)等級(jí)考試三級(jí)PC技術(shù)過關(guān)心得技巧

　　2012年3月計(jì)算機(jī)二級(jí)考試真題匯總