妳的白癡老師肯定需要壹些時間來學習。
函數保存()
打開應用程序。路徑與路徑。" \保存\ " & amp許塞爾& amp".sav”作為#1輸出
打印編號1，xUser
打印編號1，xUserGold
關閉#1
結束功能
函數負載()
如果目錄(應用程序。路徑與路徑。" \保存\ " & amp許塞爾& amp".sav ")& lt；& gt”“那麽
打開應用程序。路徑與路徑。" \保存\ " & amp許塞爾& amp".sav”作為#1輸入
輸入#1，xUser
輸入#1，xUserGold
關閉#1
其他
xUserGold = 10000
如果…就會結束
結束功能
函數oPPBet()
如果xXysgGold & lt那麽= 0
labXysg。Caption = "？ù?:”& amp；Chr(10)"С×??？????×?？？？? "
MsgBox xUser & amp"???？??÷?ù?ò ??? ε?？? ???"，vbOKOnly，“？”
呼叫保存
結束
其他
xXysgBet = Int(xXysgGold * 0.5 * Rnd())
labXysgBet。caption = " Bet:" & amp；xXysgBet
xXysgGold = xXysgGold - xXysgBet
labXysgG。標題= "黃金:" & ampxXysgGold
xoppy = Int(1 + 2 * Rnd())
如果xoppy = 1，則
labXysgY。Caption = "？ó"
其他
labXysgY。caption = "с"
如果…就會結束
如果…就會結束
結束功能
Private Sub cmdChat_Click()
如果xChatIndex = 1，則
使用picUser
。圖片= LoadPicture(App。路徑與路徑。" \pic\user.gif ")
。Top =我。身高- picUser。高度
。左= 0
以…結尾
呼叫負載
使用labUserG
。標題= "黃金:" & amp許塞爾戈爾德
。高度= 500
。Left = picUser。寬度
。Top =我。身高。高度
以…結尾
使用labUserBet
。Left = labUserG。左邊的
。Top = labUserG。前400名
以…結尾
使用labUserY
。Left = labUserG。左邊的
。Top = labUserBet。前400名
以…結尾
打開應用程序。路徑與路徑。" \data\user.t "作為#1輸入
對於i = 1至100
如果不是EOF(1 ),則
輸入#1，字符串(I)
如果…就會結束
然後
關閉#1
使用labUser
。Left = picUser。寬度
。Top =我。身高- picUser。高度
。xUser & ampChr(10)str(1 + Int(3 * Rnd()))
以…結尾
cmdChat。左= labUser。左+ labUser。寬度
cmdChat。Top = labUser。頂端
xChatIndex = xChatIndex + 1
出口接頭
如果…就會結束
如果xChatIndex = 2，則
labUser。xUser & ampChr(10)"?？à???? ɡ?"
cmdChat。可見=假
cmdShake。可見=真
imgExit。可見=真
xChatIndex = xChatIndex + 1
labXysgG。Left = picXysg。左邊的
labXysgG。Top = picXysg。高度
xXysgGold = 10000
labXysgG。標題= "黃金:" & ampxXysgGold
labXysgBet。Left = labXysgG。左邊的
labXysgBet。Top = labXysgG。Top + 400
labXysgY。Left = labXysgG。左邊的
labXysgY。Top = labXysgBet。Top + 400
出口接頭
如果…就會結束
末端接頭
Private Sub cmdShake_Click()
cmdShake。可見=假
實驗室結果。標題= " "
labUserBet。標題= " "
labUserY。標題= " "
labXysgBet。標題= " "
labXysgY。標題= " "
呼叫oPPBet
弗米亞。顯示
末端接頭
私有子窗體_Load()
我。Top = 0
我。左= 0
我。高度=屏幕。高度
我。寬度=屏幕。寬度
xuser $ = inputbox("?ò" & amp；Chr(10)"??×??？?óС."& ampChr(10)"??×á10%."& ampChr(10)"?？×? ?×?？ù?ó,× ???"& ampChr(10)Chr(10)"????ó??ó:", " ?")
如果許瑟= " "那麽
結束
如果…就會結束
使用cmdShake
。左=我。寬度/ 2 - 1000
。Top =我。寬度/ 2 - 500
。可見=假
以…結尾
使用imgExit
。Top = cmdShake。Top + cmdShake。高度
。Left = cmdShake。左+ 150
。可見=假
以…結尾
實驗室結果。Top = Picture1Top +圖片1。高度
實驗室結果。左側=屏幕。寬度* 0.45
圖片1。寬度= 3000
圖片2。寬度=圖片1。寬度
圖片3。寬度=圖片1。寬度
圖片1。左= 4000
圖片2。左= Picture1。左+圖片1。寬度
圖片3。左=圖片2。左+圖片1。寬度
使用picXysg
。圖片= LoadPicture(App。路徑與路徑。" \pic\xysg.jpg ")
。Top = 0
。左=我。寬度- picXysg。寬度
以…結尾
打開應用程序。路徑與路徑。" \data\xysg.t "作為#1輸入
對於i = 1至100
如果不是EOF(1 ),則
輸入#1，字符串(I)
如果…就會結束
然後
關閉#1
使用labXysg
。Caption = "？ù?”& amp；Chr(10)str(1 + Int(4 * Rnd()))
。高度= 1500
。寬度= 5000
。左=我。寬度- picXysg。寬度。寬度
。Top = 0
以…結尾
xChatIndex = 1
cmdChat。Left = labXysg。左邊的
cmdChat。Top = labXysg。高度
末端接頭
私有Sub imgExit_Click()
呼叫保存
結束
末端接頭