【正文】 Now 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。點(diǎn)擊清楚時(shí)，保存在文件中的所有留言被清空 Write 1, Close 1 Dim a As String End SubPrivate Sub Form_Load() Open amp。退出程序End SubPrivate Sub Command4_Click() Open amp。清空留言和 = End IfEnd SubPrivate Sub Command2_Click() 39。 Now 39。 amp。 \data\ For Append As 1 Write 1, amp。 amp。 說： amp。留言為空時(shí)，彈出對話框，提醒顧客留言 End If If = Then MsgBox 簽名不能為空！, vbOKOnly + vbExclamation, 注意 39。form4隱藏 39。mand2不允許執(zhí)行 End Sub Private Sub Command3_Click() 39。 \菜譜\獎(jiǎng)品\) 39。 \菜譜\獎(jiǎng)品\) 39。Image1加載二等獎(jiǎng)圖片 ElseIf i k And j k And k = m Then 39。當(dāng)只有中間二個(gè)相同時(shí) = 恭喜您獲得二等獎(jiǎng)！！ = LoadPicture( amp。 \菜譜\獎(jiǎng)品\) 39。Image1加載特等獎(jiǎng)圖片 ElseIf i = j And j = k Then 39。進(jìn)入if then循環(huán) = 恭喜您獲得特等獎(jiǎng)?。? = LoadPicture( amp。mand2單擊事件 = False 39。timer1事件允許執(zhí)行 = False 39。m 等于Label8上產(chǎn)生的09間的隨機(jī)數(shù) End Sub Private Sub Command1_Click() 39。j 等于Label6上產(chǎn)生的09間的隨機(jī)數(shù) = Round(Rnd() * 9, 0) k = 39。timer1事件不允許執(zhí)行 End Sub Private Sub Timer1_Timer() = Round(Rnd() * 9, 0) i = 39。當(dāng)label1距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么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。當(dāng)picture5距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么picture5距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。當(dāng)picture4距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么picture4距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。當(dāng)picture3距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么picture3距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。當(dāng)picture2距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么picture2距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。當(dāng)picture1距form3左邊的距離與其自身的寬度之和小于等于0時(shí)，那么picture1距form3左邊的距離就等于form3 的寬度 End If If + 0 Then = 50 39。將label14的標(biāo)題顯示到label6上 End Sub Private Sub Timer1_Timer() If + 0 Then = 50 39。將label13的標(biāo)題顯示到label6上 End Sub Private Sub Picture5_Click() 39。將label12的標(biāo)題顯示到label6上 End Sub Private Sub Picture4_Click() 39。將label11的標(biāo)題顯示到label6上 End Sub Private Sub Picture3_Click() 39。將label10的標(biāo)題顯示到label6上 End Sub Private Sub Picture2_Click() 39。mand12(抽獎(jiǎng))按鈕不可用 End Sub Private Sub Picture1_Click() 39。label7的前景色為紅色 = 300 39。form2窗體顯示 End Sub Private Sub Form_Load() 39。mand13(返回)按鈕的單擊事件 39。form3窗體隱藏 39。當(dāng)m的值大于等于300時(shí)mand12(抽獎(jiǎng))可用 End If End Sub Private Sub Command12_Click() 39。text1的text等于sum If Sum 300 Then = False 39。sum=sum+取list1中選中項(xiàng)目的右邊兩個(gè)字符 Next i 39。m的值等于list1中選擇項(xiàng)目的索引號 For i = 0 To m 39。定義 m 是整型 Sum = 0 39。如果列表框list1中的項(xiàng)目索引號不等于1，那么list1就刪除選定的項(xiàng)目 End If End Sub Private Sub Command11_Click() 39。label14標(biāo)題是引號里面的內(nèi)容 End Sub Private Sub Command9_Click() 39。label12標(biāo)題是引號里面的內(nèi)容 = 果汁含有豐富的維生素 39。label10標(biāo)題是引號里面的內(nèi)容 = 郎酒有良好的去風(fēng)、解毒功效 39。label4標(biāo)題是果汁 10 = 紅酒 50 39。label2標(biāo)題是郎酒 50 = 茅臺酒 90 39。組合框1里添加紅酒 50 = 茶水 0 39。組合框1里添加茅臺酒 90 果汁 10 39。組合框1里添加茶水 0 郎酒 50 39。picture1加載“紅酒”圖片 39。picture1加載“果汁”圖片 = LoadPicture( amp。picture1加載“茅臺酒”圖片 = LoadPicture( amp。picture1加載“郎酒”圖片 = LoadPicture( amp。picture1加載“茶水”圖片 = LoadPicture( amp。每50毫秒觸發(fā)一次timer事件 = LoadPicture( amp。label14標(biāo)題是引號里面的內(nèi)容 End Sub Private Sub Command8_Click() 39。label12標(biāo)題是引號里面的內(nèi)容 = 米飯本店為您最優(yōu)質(zhì)的米飯 39。label10標(biāo)題是引號里面的內(nèi)容 = 餃子本店