Массивы: подсчитать количество выпавших шестерок в кубике - 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
Похожие ответы