vb同时掷两枚骰子,两个骰子点数相同则玩家得40元,否则商家得10元

Question

vb同时掷两枚骰子,两个骰子点数相同则玩家得 40元,否则商家得 10 元

Answer 1

Private Sub Command1_Click()
Dim mArr(1),i%
For i = 0 To 1
Randomize
mArr(i) = Int(6 * Rnd) + 1
Print "第" & i & "次点数：" & mArr(i)
Next i
If mArr(0) = mArr(1) Then Print "玩家得40元" Else Print "商家得10元"
End Sub
我自己试了5次,才得到了40元