計(jì)算機(jī)等級(jí)考試二級(jí)VB常用算法SFA.doc

1求任意自然數(shù)n的階乘：方法一 Do循環(huán)法S=1For I=1 To N S=S*INext I方法二 For循環(huán)S=1：T=1Do While T=5S=S*TT= T +1Loop2閏年判斷Y = Text1.TextIf (Y Mod 4 = 0 And Y Mod 100 0) Or Y Mod 400 = 0 ThenMsgbox Y & 是閏年ElseMsgbox Y & 不是閏年End If3求兩個(gè)自然數(shù)m、N的最大公約數(shù)hmax和最小公倍數(shù)hminM=Text1.Text : N=Text2.Text M和n可通過(guò)其他途徑賦值mn=M*N 暫存m和n的乘積，以便后面算最小公倍數(shù)If MN Then T=M ：M=N ：N=TEnd IfR=M Mod NDo While R0M=NN=RR=M Mod NLoopHmax=NHmin=Mn/Hmax4. 素?cái)?shù)判斷素?cái)?shù)判斷方法一 提前退出法N=Inputbox( “輸入=3的正整數(shù)”)For I=2 To N1 或sqr(N) ，提前退出法If (N Mod I =0) Then Exit ForNext IIf IN-1 Then Print N; “是素?cái)?shù)”ElsePrint N; “不是素?cái)?shù)”End If方法二 標(biāo)志法N=Inputbox( “輸入一個(gè)=3的正整數(shù)”)End IfF=0 F也可用邏輯型變量，標(biāo)志法For I=2 To N1 或sqr(N)If (N Mod I =0) Then F=1Next IIf F=0 Then Print N; “是素?cái)?shù)”ElsePrint N; “不是素?cái)?shù)”End IfText2.Text = m = Val(Text1.Text) If m 0 Then 正數(shù)Text2.Text = 1ElseIf m = A And Ucase(Temp) = Z And Newword = False Then Wordnum = Wordnum + 1Newword = TrueEnd IfNext IText2.Text = Wordnum方法二 根據(jù)相鄰兩字符特征判斷Dim A$, Tempf$, Tempb$Dim N%, Wnum%, I%A = Text1.Text A = Ltrim(Text1.Text)Wnum = 0N = Len(A)For I = 1 To N - 1 避免超出范圍Tempf = Mid(A, I, 1)Tempb = Mid(A, I + 1, 1)If Wnum = 0 And Tempf Then 對(duì)第一個(gè)單詞特殊處理Wnum = Wnum + 1Elseif Tempf = And Tempb ThenWnum = Wnum + 1End IfNext IText2.Text = Wnum5找出二維矩陣中的最大元素、最小元素及其所在位置Dim Dmax%, Rowmax%, Colmax% 最大值、所在行、所在列Dim Dmin%, Rowmin%, Colmin% 最小值、所在行、所在列Dim I%, J%Dmax = A(1, 1): Rowmax = 1: Colmax = 1 假設(shè)a(1, 1)最大,記錄位置Dmin = A(1, 1): Rowmin = 1: Colmin = 1 假設(shè)a(1, 1)最小,記錄位置For I = 1 To Ubound(A, 1) 第一維下標(biāo)范圍For J = 1 To Ubound(A, 2) 第二維下標(biāo)范圍找最大If Dmax A(I, J) ThenDmin = A(I, J)Rowmin = IColmin = JEnd IfNext JNext IPrint 最大元素:; Dmax; ,它在第; Rowmax; 行,第; Colmax; 列Print 最小元素:; Dmin; ,它在第; Rowmin; 行,第; Colmin; 列產(chǎn)生n個(gè)10，100范圍內(nèi)互不相同的數(shù)據(jù)Dim T() As Integer 過(guò)程級(jí)動(dòng)態(tài)數(shù)組Dim N As IntegerForm1.ClsN = Inputbox(輸入一個(gè)值)Redim T(N)RandomizeFor I = 1 To NT(I) = Int(Rnd * 91 + 10) 保證與前面的數(shù)據(jù)不等For J = 1 To I - 1If T(I) = T(J) Then I = I - 1: Exit ForNext J Next I6一維數(shù)組的排序（10個(gè)數(shù)據(jù)，升序?yàn)槔┓椒ㄒ?比較交換法（經(jīng)典排序法）（輸出可同時(shí)進(jìn)行）外重循環(huán)i 控制比較的輪數(shù)提供每輪參照元素下標(biāo)（1 To N-1） 內(nèi)重循環(huán)j 要與參照元素比較的元素的下標(biāo)(I+1 To N)For I = 1 To 9 輪數(shù)及參照元素下標(biāo)For J = I + 1 To 10 與參照元素比較的元素下標(biāo) If A(I) A(J) ThenT = A(I)A(I) = A(J)A(J) = TEnd IfNext JNext I方法二 選擇交換法（輸出可同時(shí)進(jìn)行）內(nèi)、外重循環(huán)的含義和作用與比較交換法相同F(xiàn)or I = 1 To 9K = I K記錄較小元素的下標(biāo)For J = I + 1 To 10If A(K) A(J) Then K = JNext JIf K I ThenT = A(I) : A(I) = A(K) : A(K) = TEnd IfNext I方法三 冒泡法排序（輸出獨(dú)立進(jìn)行）外重循環(huán)i 控制比較的輪數(shù)（1 To N-1 ） 決定各輪要參與比較的元素的范圍 內(nèi)重循環(huán)j 提供每輪要與后面相鄰元素進(jìn)行比較的元素的下標(biāo)(1to N-I )For I = 1 To 9 10 To 2 Step -1For J = 1 To 10 I 1 To I-1If A(J) A(J + 1) Then 相鄰元素比較T = A(J): A(J) = A(J + 1): A(J + 1) = TEnd IfNext JNext I方法四 插入法排序絕對(duì)位置插入法：(結(jié)果的輸出必須獨(dú)立進(jìn)行)第一重循環(huán)i 要決定位置的元素的下標(biāo)( 2N-1)第二重循環(huán)j 第i個(gè)元素要插入的有序數(shù)列(1I-1)第三重循環(huán)k 當(dāng)a(I)A(J)時(shí), 后移的元素(I-1J) For I = 2 To 10N = A(I) 暫存a(I),避免沖掉For J = 1 To I - 1If N A(I-1), N原本就放在a(I)相對(duì)位置插入法：(結(jié)果的輸出必須獨(dú)立進(jìn)行)外重循環(huán)i 要決定位置的元素的下標(biāo)( 2N-1)內(nèi)重循環(huán)j 第i個(gè)元素要插入的有序數(shù)列下標(biāo)范圍(I-1 1)For I = 2 To 10N = A(I)For J = I - 1 To 1 Step 1 反向If N A(J) ThenA(J + 1) = A(J)A(J) = NElseA(J + 1) = N 本句可不要Exit ForEnd IfNext JNext I7有序數(shù)列的插入操作（假設(shè)原數(shù)組中已存放10個(gè)數(shù)據(jù)）絕對(duì)位置插入法：S = Val(Inputbox(輸入1545之間的整數(shù))A(11) = S 提前放入For I = 1 To 10If S = A And D = Z ThenJ = Asc(D)A(J) = A(J) + 1 對(duì)應(yīng)數(shù)組元素加1End IfNext IFor I = 65 To 90 輸出字母及其出現(xiàn)的次數(shù)If A(I) 0 Then 表明對(duì)應(yīng)字母出現(xiàn)了K = K + 1 用于控制輸出格式Picture1.Print Chr$(I); =; A(I); ;If K Mod 9 = 0 Then Picture1.Print 每行輸出9個(gè)End IfNext J10二分法查找（前提原數(shù)組有序，設(shè)原數(shù)組已按升序排序）Dim N%Dim Bot%, Mid%, Top%, Find As BooleanN = Val(Inputbox(請(qǐng)輸入要查找的數(shù)據(jù))Bot = 1: Top = 10 Find = False 是否找到的標(biāo)志Do 三個(gè)分支Mid = Int(Bot + Top) / 2)If N = A(Mid) ThenFind = TrueMsgbox 在a( & Mid & ) & 找到數(shù)據(jù) & NExit Do 可不要Elseif N A(Mid) ThenBot = Mid + 1End IfLoop Until Find = True Or Bot TopIf Find = False Then Msgbox 沒(méi)找到 & N & .11字符串的加密、解密問(wèn)題加密解密問(wèn)題.加密規(guī)律: 小寫字母: A-D,B-EW-Z,X-A,Y-B,Z-C大寫字母: A-D,B-EW-Z,X-A,Y-B,Z-C其它字符不變。解密時(shí)，基于上述加密規(guī)律。加密Private Sub Command1_Click()Dim Sm1 As String, Mm1 As String, Temp1 As String * 1Dim N%, I%Sm1 = Text1.TextN = Len(Sm1)Mm1 = For I = 1 To NTemp1 = Mid(Sm1, I, 1)Select Case Temp1Case A To W, A To WTemp1 = Chr(Asc(Temp1) + 3)Case X To Z, X To ZTemp1 = Chr(Asc(Temp1) + 3 - 26)End SelectMm1 = Mm1 & Temp1Next IText2.Text = Mm1End Sub解密Private Sub Command2_Click()Dim Sm2 As String, Mm2 As String, Temp2 As String * 1Dim M%, J%Mm2 = Text3.TextM = Len(Mm2)Sm2 = For J = 1 To MTemp2 = Mid(Mm2, J, 1)Select Case Temp2Case D To Z, D To ZTemp2 = Chr(Asc(Temp2) - 3)Case A To C, A To CTemp2 = Chr(Asc(Temp2) - 3 + 26)End SelectSm2 = Sm2 & Temp2Next JText4.Text = Sm2End Sub14. 字符的分類統(tǒng)計(jì)字符統(tǒng)計(jì)問(wèn)題：有一段文字, 要求統(tǒng)計(jì)其中的大寫字母、小寫字母、數(shù)字字符、其它字符各有多少個(gè)。 Dim K$, Temp$Dim N%, I%Dim Nn%, Nu%, Nl%, Ne%K = Text1.TextN = Len(K)For I = 1 To NTemp = Mid(K, I, 1)If Temp = 0 And Temp = A And Temp = A And Temp = Z ThenNl = Nl + 1ElseNe = Ne + 1End IfNext I要實(shí)現(xiàn)多行輸出,Text2.Multiline必須為trueText2.Text = Text2 & 數(shù)字 & Nn & 個(gè) & Chr(13) & Chr(10) _& 大寫字母 & Nu & 個(gè) & Chr(13) & Chr(10) _& 小寫字母 & Nl & 個(gè) & Chr(13) & Chr(10) _& 其他字符 & Ne & 個(gè)15.密碼檢測(cè)問(wèn)題Private Sub Form_Load()Text1.Maxlength = 6Text1.Passwordchar = *Const Pas=321abc 在此處定義是否行得通,常量的作用域問(wèn)題?End SubPrivate Sub Command1_Click()Dim Enterpas As String, I As IntegerStatic N%Const Pas = 321abc 假設(shè)的正確密碼 L: Enterpas = Text1.Text 實(shí)際輸入密碼If Enterpas = Pas ThenMsgbox 密碼正確EndElseI = Msgbox(密碼錯(cuò)誤, Vbretrycancel + Vbexclamation