早教吧作业答案频道 -->其他-->
vb同时掷两枚骰子,两个骰子点数相同则玩家得40元,否则商家得10元
题目详情
vb同时掷两枚骰子,两个骰子点数相同则玩家得 40元,否则商家得 10 元
▼优质解答
答案和解析
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元
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元
看了vb同时掷两枚骰子,两个骰子点...的网友还看了以下:
3个相同的骰子,每个骰子六面,分别是象,猪,马,兔,鸡,鱼.三个骰子一起滚下,出现三个动物相同,两 2020-06-27 …
小明和小强玩掷硬币游戏。同掷两枚硬币,如果两枚硬币朝上的面相同,则小明获胜;如果两枚硬币朝上的面不同 2020-11-02 …
(2009•沈阳模拟)小博和小力在玩一个游戏,两人同掷一枚普通正六面体骰子,六面分别标有数字1,2, 2020-11-11 …
如图,同时掷两枚相同的骰子(小正方体的六个面分别有1、2、3、4、5、6),朝上两个数之和是()的可 2020-11-11 …
骰子游戏里庄家的收益是多少?有3颗相同的骰子,桌上有1到6的方格,玩家在这6个方格里压注,庄家摇动3 2020-11-13 …
现有4枚相同的骰子,骰子的展开图如图所示,这4枚骰子摞在一起后,如图,相互接触的两个面点数之和都是8 2020-11-18 …
同时抛掷两枚相同的骰子,点数之和小于6的概率是. 2020-11-18 …
求一个概率的问题两个相同的骰子,各有2面涂成了红色,两面涂成了蓝色,一面涂成了黄色,剩下的一面涂成了 2020-11-24 …
同时抛掷两枚相同的骰子,所得数字之和为8的概率是多少? 2020-11-25 …
关于图论中强连通分量tarjan算法的问题对于其中的一部分foreach(u,v)inE//枚举每一 2020-11-27 …