【正文】 b Picture5_Click() 39。picture5的單擊事件 = 39。將label14的標(biāo)題顯示到label6上 End Sub Private Sub Timer1_Timer() If + 0 Then = 50 39。如果picture1距form3左邊的距離與其自身的寬度之和大于0，那么picture1就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)picture1距form3左邊的距離與其自身的寬度之和小于等于0時，那么picture1距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。如果picture2距form3左邊的距離與其自身的寬度之和大于0，那么picture2就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)picture2距form3左邊的距離與其自身的寬度之和小于等于0時，那么picture2距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。如果picture3距form3左邊的距離與其自身的寬度之和大于0，那么picture3就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)picture3距form3左邊的距離與其自身的寬度之和小于等于0時，那么picture3距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。如果picture4距form3左邊的距離與其自身的寬度之和大于0，那么picture4就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)picture4距form3左邊的距離與其自身的寬度之和小于等于0時，那么picture4距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。如果picture5距form3左邊的距離與其自身的寬度之和大于0，那么picture5就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)picture5距form3左邊的距離與其自身的寬度之和小于等于0時，那么picture5距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。如果label1距form3左邊的距離與其自身的寬度之和大于0，那么label1就向左移動50，每50毫秒移動一次 Else = 39。當(dāng)label1距form3左邊的距離與其自身的寬度之和小于等于0時，那么label1距form3左邊的距離就等于form3 的寬度,以下類同 End If If + 0 Then = 50 Else = End If If + 0 Then = 50 Else = End If If + 0 Then = 50 Else = End If If + 0 Then = 50 Else = End If If + 0 Then = 50 Else = End If End Sub：Dim i As Integer, j As Integer, k As Integer, m As Integer Private Sub Form_Load() = 100 39。設(shè)置時間間隔為100毫秒 = False 39。timer1事件不允許執(zhí)行 End Sub Private Sub Timer1_Timer() = Round(Rnd() * 9, 0) i = 39。i 等于Label5上產(chǎn)生的09間的隨機(jī)數(shù) = Round(Rnd() * 9, 0) j = 39。j 等于Label6上產(chǎn)生的09間的隨機(jī)數(shù) = Round(Rnd() * 9, 0) k = 39。k 等于Label7上產(chǎn)生的09間的隨機(jī)數(shù) = Round(Rnd() * 9, 0) m = 39。m 等于Label8上產(chǎn)生的09間的隨機(jī)數(shù) End Sub Private Sub Command1_Click() 39。mand1單擊事件 = True 39。timer1事件允許執(zhí)行 = False 39。mand1事件不允許執(zhí)行 End Sub Private Sub Command2_Click() 39。mand2單擊事件 = False 39。timer1事件不允許執(zhí)行 If i = j And j = k And k = m Then 39。進(jìn)入if then循環(huán) = 恭喜您獲得特等獎！！ = LoadPicture( amp。 \菜譜\獎品\) 39。Image1加載特等獎圖片 ElseIf i = j And j = k Then 39。當(dāng)前三個相同時 = 恭喜您獲得一等獎?。? = LoadPicture( amp。 \菜譜\獎品\) 39。Image1加載一等獎圖片 ElseIf i j And j = k And k m Then 39。當(dāng)只有中間二個相同時 = 恭喜您獲得二等獎??！ = LoadPicture( amp。 \菜譜\獎品\) 39。Image1加載二等獎圖片 ElseIf i k And j k And k = m Then 39。當(dāng)最后二個相同時 = 恭喜您獲得三等獎！！ = LoadPicture( amp。 \菜譜\獎品\) 39。Image1加載三等獎圖片 Else = 謝謝回顧 = LoadPicture( amp。 \菜譜\獎品\) 39。Image1加載謝謝圖片 End If = False 39。mand2不允許執(zhí)行 End Sub Private Sub Command3_Click() 39。mand3單擊事件 39。form4隱藏 39。form2顯示 End Sub：Private Sub Command1_Click() If = Then MsgBox 留言不能為空！, vbOKOnly + vbExclamation, 注意 39。留言為空時，彈出對話框，提醒顧客留言 End If If = Then MsgBox 簽名不能為空！, vbOKOnly + vbExclamation, 注意 39。簽名為空時，彈出對話框，提醒顧客簽名 End If If And Then amp。 說： amp。 amp。 amp。 Now Open amp。 \data\ For Append As 1 Write 1, amp。 說： amp。 amp。 amp。 Now 39。把留言內(nèi)容保存到文件夾內(nèi) Close 1 = 39。清空留言和 = End IfEnd SubPrivate Sub Command2_Click() 39。關(guān)閉留言板界面加載主界面 End SubPrivate Sub Command3_Click() End 39。退出程序End SubPrivate Sub Command4_Click() Open amp。 \data\ For Output As 1 39。點擊清楚時，保存在文件中的所有留言被清空 Write 1, Close 1 Dim a As String End SubPrivate Sub Form_Load() Open amp。 \data\ For Input As 1 39。當(dāng)留言板窗體被載入，系統(tǒng)讀取文件夾中所有留言，并將其顯示在留言板中 While Not EOF(1) Line Input 1, a a Wend Close 1 = End SubPrivate Sub Timer1_Timer() If + 0 Then 39。滾動字幕 50 Else = End IfEnd SubPrivate Sub Timer3_Timer() = 小老鼠報時: amp。 Now 39。顯示當(dāng)前的日期和時間End 28 / 28