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