VB程序設(shè)計(jì)典型算法(重點(diǎn)難點(diǎn))

1、Visual Basic 的基本控制結(jié)構(gòu)順序結(jié)構(gòu)各語(yǔ)句依次順序執(zhí)行此前所學(xué)的語(yǔ)句的存在方式都是順序結(jié)構(gòu) 關(guān)于賦值語(yǔ)句： 變量名=表達(dá)式 對(duì)象名先計(jì)算右邊表達(dá)式的值，然后賦值給左邊的變量。如果表達(dá)式的精度不同于左邊變量的精度，則強(qiáng)制將表達(dá)式結(jié)果的數(shù)據(jù)類(lèi)型更改為變量的精度。字符型數(shù)據(jù)（"0129"）賦值給數(shù)值型變量時(shí)系統(tǒng)先自動(dòng)將字符串轉(zhuǎn)換為數(shù)值，再賦值；但是字符不可以非字符數(shù)據(jù)賦值給字符變量時(shí)將被轉(zhuǎn)換為字符類(lèi)型。a=a+2 實(shí)現(xiàn)值的自增。賦值符號(hào)=的左邊必須是變量。整體格式固定不能更改。例：實(shí)現(xiàn)兩個(gè)變量值的交換 temp=a : a=b : b=temp分支結(jié)構(gòu)單分支、雙分支、

2、多分支單分支結(jié)構(gòu)（簡(jiǎn)單分支結(jié)構(gòu)）雙分支結(jié)構(gòu)（選擇分支語(yǔ)句）多分支結(jié)構(gòu) ( 四種形式 ) 形式一：（if語(yǔ)句的嵌套形式）見(jiàn)上例形式二：( if then elseif 語(yǔ)句)形式三：（select case語(yǔ)句） 條件的可能結(jié)果可以是表達(dá)式 條件的可能結(jié)果可以是to 表達(dá)式，如：case 20 to 30 條件的可能結(jié)果可以是is 比較式，如：case is >30形式四：( iff 函數(shù))true 語(yǔ)句格式：變量 = iif (條件，語(yǔ)句1，語(yǔ)句2 )falsemax = iif ( 3 > 6 , "不可能" , "yes" )循環(huán)結(jié)構(gòu) （

3、五種形式）形式一 （ for next 循環(huán) ）練習(xí)及分析：1求1100之間所有整數(shù)的和。 注意事項(xiàng)：嵌套時(shí)next 循環(huán)變量要與最近的for語(yǔ)句循環(huán)變量匹配形式二 （while wend 循環(huán)）形式三 （ do loop 循環(huán) 前測(cè)型）1. 改造上述各例練習(xí)及分析：1.計(jì)算12.形式五 （多重循環(huán)循環(huán)結(jié)構(gòu)的嵌套）采用各個(gè)循環(huán)結(jié)構(gòu)互相嵌套的形式，可以完成更復(fù)雜的計(jì)算。練習(xí)分析：1.利用*2輸出34打印5正確：67 其他輔助控制語(yǔ)句1Goto（跳轉(zhuǎn)）語(yǔ)句不鼓勵(lì)使用語(yǔ)法格式：例題分析：采用各個(gè)循環(huán)結(jié)構(gòu)互相嵌套的形式，可以完成更復(fù)雜的計(jì)算。2end（終止運(yùn)行）語(yǔ)句附加：(1) 1100內(nèi)，能同時(shí)被3

4、和5整除的自然數(shù)，及其個(gè)數(shù)" （2（3）不被3整除的自然數(shù)"（5（6（7（8（9（n作為除數(shù)，相除后取余數(shù)r； 2若r不為零，把n的值給m ， r給n； m與 n繼續(xù)相除得到新的r，若r仍不為零，則重復(fù)此步驟； 3最后r=0時(shí)的n就是最大公約數(shù)； 最小公倍數(shù)4最小公倍數(shù)=（n*m）/最大公約數(shù)；代碼：（12）3個(gè)數(shù)的最大數(shù),此題方法較多，這是其中的一種！（13）輸出1000之內(nèi)的所有完數(shù)（14）求出100內(nèi)的自然數(shù)對(duì)（15）100999 之間的水仙花數(shù)自然數(shù)對(duì)是指兩個(gè)自然數(shù)的和與差都是平方數(shù),如8與17的和8+17=25與其差17-8=9都是平方數(shù),則8與17稱(chēng)為自（16）

5、數(shù)字矩陣（(18)打印楊輝三角形dim a( ) as longdim n as integerdon=inputbox("請(qǐng)輸入一個(gè)小于10的正整數(shù)：")loop while( n>10)redim a(n,n)for i=1 to na(i,1)=1a(i,i)=1next ifor i=3 to nfor j=2 to i-1a(i,j)=a(i-1,j-1)+a(i-1,j)next jnext iprintfor i=1 to nprint tab(5);for j=1 to iprint format (a(i,j),"!");next

6、 jprintnext i(19) 輸出隨機(jī)產(chǎn)生的10個(gè)數(shù)中最大、最小數(shù)及其平均值(20)數(shù)組相關(guān)（21）模擬計(jì)算器1使用控件數(shù)組，09數(shù)字按鈕使用一個(gè)控件數(shù)組，+-*/運(yùn)算使用一個(gè)控件數(shù)組，=為普通控件 Dim b As Integer, a Private Sub Cmd_Click(Index As Integer)Select Case Index ' 由于本控件數(shù)組中的所有控件都執(zhí)行當(dāng)前的代碼，所以這個(gè)select語(yǔ)句的功能可以用label1.caption=label1.caption & cmd(index).caption 代替，其中cmd是本控件數(shù)組的名稱(chēng) C

7、ase 0 Label1.Caption = CStr(Label1.Caption & 0) Case 1 Label1.Caption = CStr(Label1.Caption & 1) Case 2 Label1.Caption = CStr(Label1.Caption & 2) Case 3 Label1.Caption = CStr(Label1.Caption & 3) Case 4 Label1.Caption = CStr(Label1.Caption & 4) Case 5 Label1.Caption = CStr(Label1.

8、Caption & 5) Case 6 Label1.Caption = CStr(Label1.Caption & 6) Case 7 Label1.Caption = CStr(Label1.Caption & 7) Case 8 Label1.Caption = CStr(Label1.Caption & 8) Case 9 Label1.Caption = CStr(Label1.Caption & 9) End Select End Sub2非控件數(shù)組實(shí)現(xiàn)方法（所有按鈕都是標(biāo)準(zhǔn)按鈕）Dim dot As Boolean, a As Varian

9、t, op As String ' 全局變量a為變體數(shù)據(jù)類(lèi)型，避免計(jì)算過(guò)大數(shù)據(jù)時(shí)出錯(cuò)Private Sub Command1_Click( )Text1.Text = Text1.Text & 1End SubPrivate Sub Command10_Click( )Text1.Text = Text1.Text & 0End SubPrivate Sub Command11_Click( )If dot =False Then ' dot變量用于標(biāo)識(shí)當(dāng)前輸入的數(shù)字是否已經(jīng)使用過(guò)小數(shù)點(diǎn)Text1.Text = Text1.Text & ".&

10、quot;Dot=true ' 當(dāng)前數(shù)字已經(jīng)使用過(guò)小數(shù)點(diǎn)，標(biāo)識(shí)為已經(jīng)使用過(guò)End IfEnd SubPrivate Sub Command12_Click( )a = Val(Text1.Text) ' 保存運(yùn)算前輸入的數(shù)字（第一個(gè)因式）Text1.Text = "" ' 清空文本框，為輸入下一個(gè)數(shù)字（因式）作準(zhǔn)備dot = False ' 小數(shù)點(diǎn)使用標(biāo)志改成未使用狀態(tài)，保證下一個(gè)數(shù)可以使用小數(shù)點(diǎn) op = "+" '也可以把 數(shù)字1放入op變量，用來(lái)在"="過(guò)程區(qū)別這里所執(zhí)行的操作End Su

11、bPrivate Sub Command13_Click( )a = Val(Text1.Text)Text1.Text = ""dot = Falseop = "-" End SubPrivate Sub Command14_Click( )a = Val(Text1.Text)Text1.Text = ""dot = Falseop = "*" '也可以把 數(shù)字3放入op變量，用來(lái)在"="過(guò)程區(qū)別這里所執(zhí)行的操作End SubPrivate Sub Command15_Click(

12、) Private Sub Command1_Click( ) Select Case b Case 0 Label1.Caption = a + Val(Trim(Label1.Caption) Case 1 Label1.Caption = a - Val(Trim(Label1.Caption) Case 2 Label1.Caption = a * Val(Trim(Label1.Caption) Case 3 If Val(Trim(Label1.Caption) = 0 Then Label1.Caption = "除數(shù)為零" Else Label1.Capti

13、on = a / Val(Trim(Label1.Caption) End If End Select End Sub Private Sub opt_Click(Index As Integer) a = Val(Label1.Caption) Select Case Index Case 0 b = 0 Case 1 b = 1 Case 2 b = 2 Case 3 b = 3 End Select Label1.Caption = "" End Suba = Val(Text1.Text)Text1.Text = ""dot = Falseop

14、= "/" '也可以把 數(shù)字4放入op變量，用來(lái)在"="過(guò)程區(qū)別這里所執(zhí)行的操作 End SubPrivate Sub Command16_Click( ) ' 按鈕（計(jì)算）Select Case op '根據(jù)op 的內(nèi)容來(lái)判斷到底執(zhí)行那種運(yùn)算Case "+"Text1.Text = a + Val(Text1.Text)Case "-"Text1.Text = a - Val(Text1.Text)Case "*"Text1.Text = a * Val(Text1.T

15、ext)Case "/"If Val(Text1.Text) = 0 Then ' 這個(gè)if語(yǔ)句用于判斷除數(shù)是否為零，并警告 Text1.Text = a / Val(Text1.Text)ElseText1.Text = "除法運(yùn)算除數(shù)不能為零！"End IfEnd SelectEnd SubPrivate Sub Command17_Click( ) ' 恢復(fù)為初始狀態(tài)a = 0Text1.Text = ""dot = Falseop = ""End SubPrivate Sub Command

16、2_Click( )Text1.Text = Text1.Text & 2End SubPrivate Sub Command3_Click( )Text1.Text = Text1.Text & 3End SubPrivate Sub Command4_Click( )Text1.Text = Text1.Text & 4End SubPrivate Sub Command5_Click( )Text1.Text = Text1.Text & 5End SubPrivate Sub Command6_Click( )Text1.Text = Text1.Tex

17、t & 6End SubPrivate Sub Command7_Click( )Text1.Text = Text1.Text & 7End SubPrivate Sub Command8_Click( )Text1.Text = Text1.Text & 8End SubPrivate Sub Command9_Click( )Text1.Text = Text1.Text & 9End Sub（22）選擇排序法（23）冒泡排序法（降序方式）（24）二分查找法（25Public Sub birsearch(a( ), ByVal low As Integer, ByVal high As Integer, ByVal key, index As Integer) Dim mid As Integer mid = (low + high) 2 If a(mid) = key Then index = mid Exit Sub ElseIf low > high Then index = -1 Exit Sub End If