先看len、mid函數(shù)的使用:
有一個字符串 A="abcd"
(1) 則 len(A)=4 len(x) 可獲得x字符串長度。(一個漢字為2個字符)
(2)mid(x,n1,n2) :取子串函數(shù)
作用一:取子串:
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循環(huán)嵌套:
for I= 1 to 2
fot j=1 to 3
print "b"
next j
print "a"
next I
程序舉例:P73
例
rnd(x): 隨機函數(shù)的使用方法。
改變程序中rnd(X)中的X取值,觀察結果
Private Sub Form_click()
Print Rnd(1); Rnd(0)
End Sub
產(chǎn)生[a,b]范圍內隨機整數(shù)的公式:
int((b-a+1)*rnd+a)
例:生成5個3位隨機整數(shù)。
For I=1 to 5
Print int((999-100+1)*rnd+100)
Next I
自習 P74 各例
isNumeric(x) : 判斷一個字符串是否是一個數(shù)字串。
若x是數(shù)字串,其值為True ,若不是數(shù)字串,其值為False
2. do-loop 循環(huán)結構:
一般格式:4種
do while edo
……
[exit do][exit do]
……
looploop while e
格式一:
(1)先判斷e 的值,為 true,執(zhí)行循環(huán)體A,為false,循環(huán)結束,轉loop的下面一條語句去執(zhí)行。
(2)循環(huán)體執(zhí)行完后,執(zhí)行l(wèi)oop語句,返回(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
相關推薦:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |