【文章內(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 ?尋找最小元素