vb常用算法的介紹-資料下載頁
2025-06-25 22:58本頁面
【正文】 )k), 例如序數(shù)k為5，這時(shí) Z→U， z→u，Y→T…當(dāng)加序數(shù)后的字母小于A或a則 c=Chr(Asc(c)k +26)下段程序是加密處理：i = 1: strp = nL = Len(RTrim(strI))Do While (i = nL) strT = Mid$(strI, i, 1) 39。取第i個(gè)字符 If (strT = A And strT = Z) Then iA = Asc(strT) + 5 If iA Asc(Z) Then iA = iA 26 strp = strp + Chr$(iA) ElseIf (strT = a And strT = z) Then iA = Asc(strT) + 5 If iA Asc(z) Then iA = iA 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 LoopPrint strp2．統(tǒng)計(jì)文本單詞的個(gè)數(shù)算法思路：（1）從文本（字符串）的左邊開始，取出一個(gè)字符；設(shè)邏輯量WT表示所取字符是否是單詞內(nèi)的字符，初值設(shè)為False（2）若所取字符不是“空格”，“逗號(hào)”，“分號(hào)”或“感嘆號(hào)”等單詞的分隔符，再判斷WT是否為True，若WT不為True則表是新單詞的開始，讓單詞數(shù)Nw=Nw+1，讓W(xué)T=True。（3）若所取字符是“空格”，“逗號(hào)”，“分號(hào)”或“感嘆號(hào)”等單詞的分隔符， 則表示字符不是單詞內(nèi)字符，讓W(xué)T=False。(4) 再依次取下一個(gè)字符，重得（2）(3)直到文本結(jié)束。下面程序段是字符串strI中包含的單詞數(shù)Nw = 0: Wt = FalsenL = Len(RTrim(strI))For i = 1 To nL strT = Mid$(strI, i, 1) 39。取第i個(gè)字符 Select Case strT Case , , 。, ! Wt = False Case Else If Not Wt Then Nw = Nw + 1 Wt = True End If End SelectNext iPrint 單詞數(shù)為：, Nw十二、窮舉法 窮舉法（又稱“枚舉法”）的基本思想是：一一列舉各種可能的情況，并判斷哪一種可能是符合要求的解，這是一種“在沒有其它辦法的情況的方法”，是一種最“笨”的方法，然而對一些無法用解析法求解的問題往往能奏效，通常采用循環(huán)來處理窮舉問題?！ ±?將一張面值為100元的人民幣等值換成100張5元、要求每種零鈔不少于1張，問有哪幾種組合？Dim i%, j%, k%Print 5元 1元 For i = 1 To 20 For j = 1 To 100 i k = 100 i j If * i + * j + * k = 100 Then Print i, j, k End If Next j Next i十三、遞歸算法 用自身的結(jié)構(gòu)來描述自身，稱遞歸 VB允許在一個(gè)Sub子過程和Function過程的定義內(nèi)部調(diào)用自己，即遞歸Sub子過程和遞歸Function函數(shù)。遞歸處理一般用棧來實(shí)現(xiàn)，每調(diào)用一次自身，把當(dāng)前參數(shù)壓棧，直到遞歸結(jié)束條件；然后從棧中彈出當(dāng)前參數(shù)，直到?？铡?遞歸條件：（1）遞歸結(jié)束條件及結(jié)束時(shí)的值；（2）能用遞歸形式表示，且遞歸向終止條件發(fā)展?！ ±壕巉ac(n)=n! 的遞歸函數(shù) Function fac(n As Integer) As Integer If n = 1 Then fac = 1 Else fac = n * fac(n 1) End If End Function歡迎您的光臨，！希望您提出您寶貴的意見，你的意見是我進(jìn)步的動(dòng)力。贈(zèng)語； 如果我們做與不做都會(huì)有人笑，如果做不好與做得好還會(huì)有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。我不知道年少輕狂，我只知道勝者為王。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會(huì)做“金錢、權(quán)利”的主人。什么時(shí)候離光明最近？那就是你覺得黑暗太黑的時(shí)候。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力。 參
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1