Массивы: подсчитать количество выпавших шестерок в кубике - VB

Формулировка задачи:

Нужно подсчитать количество выпавших шестерок в кубике,ясно что нужно делать через массив

Решение задачи: «Массивы: подсчитать количество выпавших шестерок в кубике»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i As Integer ' счетчик бросков кубика
Dim n As Integer ' счетчик шестёрок
Randomize
For i = 1 To 100 ' бросаем кубик 100 раз
 
    If CInt(Int((6 * Rnd()) + 1)) = 6 Then n = n + 1
   
Next
 
MsgBox " Из " & i - 1 & " бросков кубика выпало шестёрок - " & n
End Sub
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы