vb程序設(shè)計(jì)強(qiáng)化復(fù)習(xí)主題講座(1)-全文預(yù)覽
【正文】 最大值 Private Sub Form_click() Dim a(3, 3) As Integer,k% a(1, 1) = 1: a(1, 2) = 2: a(1, 3) = 3 a(2, 1) = 4: a(2, 2) = 15: a(2, 3) = 6 a(3, 1) = 4: a(3, 2) = 5: a(3, 3) = 6 ??? ??? ??? End Sub 選擇分類法 ?基本思想 選擇第 i個(gè)最 小數(shù)并與第 i 個(gè)數(shù)對(duì)調(diào) 對(duì) n個(gè)數(shù)據(jù)，共進(jìn)行 n1 次選擇 主題三：排序 主題三：選擇排序 選擇分類法算法 1 （從小到大排列） for i=1 to n1 for j=i+1 to n if a(i)a(j) then temp=a(i) ?交換 a(i)與 a(j)值 a(i)=a(j) a(j)=temp end if next j next i 選擇分類法算法 2 (用 k記住內(nèi)循環(huán)最小的數(shù)值元素下標(biāo) ) For i = 1 To n 1 k = i For j = i + 1 To n If a ( j ) a(k) Then k = j Next j temp = a ( i ) : a ( i ) = a( k ) : a ( k ) = temp Next i 主題三： 字符排序 ?本程序從鍵盤(pán)上輸入一個(gè)任意的字符串，將該字符串的所有組成字符拆分開(kāi)，再按照字符 ASCII碼從小到大的順序?qū)⑦@些字符重新組成新的字符串。從 a(0)開(kāi)始 Dim count As Integer,i As Integer Randomize For i = 1 a(i) = 2 a(i)。VB 語(yǔ)言程序設(shè)計(jì) （強(qiáng)化） 數(shù) 組 ?生成數(shù)組 ?找最大數(shù)、最小數(shù)、及所在下標(biāo) ?計(jì)算行 /列平均值 ?排序 ?在已排序的數(shù)列中插入數(shù) ?兩列已排序的數(shù)合并 ?刪除數(shù)列中的重復(fù)數(shù) ?二維數(shù)組中設(shè)置對(duì)角線元素 ?矩陣轉(zhuǎn)置 ?揚(yáng)輝三角 ?控件數(shù)組 數(shù)組常用算法總結(jié) 數(shù)組的定義 下標(biāo)不能越界！ 數(shù)組的初值 Option Base {1|0}的含義 例： Dim a(9) as integer, b(2 to 9) as byte 使用數(shù)組只能分別對(duì)元素進(jìn)行使用，不能整體使用數(shù)組！ 動(dòng)態(tài)數(shù)組的定義 (兩種 ) Dim a() As Integer N=Val(InputBox(“輸入 N=？” )) Redim a(N) 主題一：生成數(shù)組 產(chǎn)生 n個(gè)［ 1,100］的隨機(jī)整數(shù) ,n由鍵盤(pán)輸入，要求每行打印 5個(gè)數(shù) Private Sub form_click() Randomize Dim x As Integer Dim i As Integer, pos As Integer n = InputBox() ReDim a(n) As Integer For i = 1 To n a(i) = Int(Rnd * 100） + 1 a(i)。 Public Sub countEven() Dim a(10) As Integer 39。 算法 (1) 產(chǎn)生一個(gè)三位數(shù) (2) 查找是否已存在該數(shù) (3) 不存在時(shí)把該數(shù)放入數(shù)組 重復(fù)以上過(guò)程，直到滿 100個(gè)數(shù)為止 Private Sub Form_Click() Dim a(1 To 100), i%,
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1