Массивы: подсчитать количество выпавших шестерок в кубике - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д