买大小

Option Explicit Dim strGamePoint(5), strUserMsg, rNumber strGamePoint(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 = GetrNumber Select Case strUserMsg Case "大" If (rNumber + 1) > 3 Then MsgBox (rNumber + 1) & "点！恭喜，你赢了！" & vbNewLine & _ strGamePoint(rNumber) Else MsgBox (rNumber + 1) & "点！抱歉，你输了！" & vbNewLine & _ strGamePoint(rNumber) End If Case "小" If (rNumber + 1) < 4 Then MsgBox (rNumber + 1) & "点！恭喜，你赢了！" & vbNewLine & _ strGamePoint(rNumber) Else MsgBox (rNumber + 1) & "点！抱歉，你输了！" & vbNewLine & _ strGamePoint(rNumber) End If Case Else MsgBox "输入无效。" WScript.Quit End Select Function GetrNumber GetrNumber = Round(5 * Rnd) End Function