[理學(xué)]華南理工大學(xué)vb期末復(fù)習(xí)(編輯修改稿)
2024-11-15 00:38 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 00 = False = 20 = End Sub Private Sub Command2_Click() = False End Sub Private Sub Command1_Click() i = 0 = True End Sub 計(jì)時(shí)器開(kāi)始工作 計(jì)時(shí)器停止工作 Private Sub Timer1_Timer() i = i + 1 = i End Sub 例 2： 模擬秒表計(jì)時(shí)程序。 Option Explicit ____________________ Private Sub Form_Load() = False = : = : = End Sub Private Sub Command1_Click() time1 = Now ?當(dāng)前系統(tǒng)時(shí)間 = Format(time1, hh:mm:ss) = : = =________ =________ End Sub Dim time1 As variant False True Private Sub Command2_Click() Dim time2 As variant Dim time3 As Variant time2 = Now time3 = time2 time1 = Format(time2, hh:mm:ss) = Format(time3, hh:mm:ss) = True = False ?單擊后按鈕不可用 End Sub 使用數(shù)組先說(shuō)明。定義數(shù)組的名稱(chēng)、維數(shù)和數(shù)組元素的數(shù)據(jù)類(lèi)型。元素的個(gè)數(shù)和位置由下標(biāo)決定。 第 5 章 數(shù)組與記錄 例： A(3) As Integer B(1 to 2, 2 to 2) As Double 實(shí)際中通過(guò)輸入數(shù)組元素的個(gè)數(shù)來(lái)確定數(shù)組的大小，就要先定義一個(gè) 可調(diào)數(shù)組 ，當(dāng)確定了數(shù)組的大小后重定義數(shù)組。 例： Dim s( ) as integer … n=inputbox(“輸入 n=” ) Redim s(1 to n) 2維數(shù)組 M N元素的 輸入： For i=1 To m ‘外層循環(huán)：行 For j=1 To n ‘內(nèi)層循環(huán)：列 s(i,j)=InputBox(“s(“amp。Str(i)amp?！?”amp。str(j)amp?！?=”) Next j Next i 2維數(shù)組 M N元素的 輸出： For i=1 To m For j=1 To n Print “s(“。i?！?”。j。”)=”。s(i,j)； Next j print ‘ 換行 Next i 應(yīng)用：在一維數(shù)組中求最小值、最大值、排序、求和等等。在二維數(shù)組中求和，求平均值、判斷數(shù)組元素的大小等。 Private Sub Command1_Click() Dim x(1 To 8) As Integer Dim i%, j%, t%, min% Randomize ?隨機(jī)數(shù)列初始化 For i = 1 To 8 ?用隨機(jī)數(shù)初始化數(shù)組， 10至 99 x(i) = Int(90 * Rnd) + 10 Next i For i = 1 To 8 Print x(i)。 ?輸出一行原始序列 Next I Print ?換行 例： 編寫(xiě)一個(gè)事件過(guò)程，使用隨機(jī)函數(shù)產(chǎn)生 8個(gè)兩位整數(shù)放在一維數(shù)組 X中，輸出原始序列，對(duì)數(shù)組中的數(shù)據(jù)用選擇排序法從小到大順序排列并輸出結(jié)果。 For i = 1 To 7 39。對(duì)數(shù)組排序 t = i For j = i + 1 To 8 ?尋找最小元素
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1