程序博客网 > 铃声多多mac版
来源:互联网 发布:铃声多多mac版 编辑:程序博客网 时间:2024/06/10 09:26
Option ExplicitDim strGamePoint(5), strUserMsg, rNumberstrGamePoint(0) = _"┌───┐" & vbNewLine & _"│ │" & vbNewLine & _"│ ● │" & vbNewLine & _"│ │" & vbNewLine & _"└───┘"strGamePoint(1) = _"┌───┐" & vbNewLine & _"│ ● │" & vbNewLine & _"│ │" & vbNewLine & _"│ ● │" & vbNewLine & _"└───┘"strGamePoint(2) = _"┌───┐" & vbNewLine & _"│● │" & vbNewLine & _"│ ● │" & vbNewLine & _"│ ●│" & vbNewLine & _"└───┘"strGamePoint(3) = _"┌───┐" & vbNewLine & _"│● ●│" & vbNewLine & _"│ │" & vbNewLine & _"│● ●│" & vbNewLine & _"└───┘"strGamePoint(4) = _"┌───┐" & vbNewLine & _"│● ●│" & vbNewLine & _"│ ● │" & vbNewLine & _"│● ●│" & vbNewLine & _"└───┘"strGamePoint(5) = _"┌───┐" & vbNewLine & _"│● ●│" & vbNewLine & _"│● ●│" & vbNewLine & _"│● ●│" & vbNewLine & _"└───┘"strUserMsg = InputBox("请问您买大还是买小?")Randomize : rNumber = GetrNumberSelect Case strUserMsgCase "大" If (rNumber + 1) > 3 Then MsgBox (rNumber + 1) & "点!恭喜,你赢了!" & vbNewLine & _ strGamePoint(rNumber) Else MsgBox (rNumber + 1) & "点!抱歉,你输了!" & vbNewLine & _ strGamePoint(rNumber) End IfCase "小" If (rNumber + 1) < 4 Then MsgBox (rNumber + 1) & "点!恭喜,你赢了!" & vbNewLine & _ strGamePoint(rNumber) Else MsgBox (rNumber + 1) & "点!抱歉,你输了!" & vbNewLine & _ strGamePoint(rNumber) End IfCase Else MsgBox "输入无效。" WScript.QuitEnd SelectFunction GetrNumber GetrNumber = Round(5 * Rnd)End Function