Private Sub cmdStart_Click()

Dim n As Integer, s As Long, m As Integer, i As Integer

Dim k1 As Integer, k2 As Integer, t As Long

Dim f1 As String, f2 As String

n = Val(InputBox("сколько серий производить" _

, "Количество серий"))

s = 0 'Количество бросков до выпадения двух шестерок

For m = 1 To n 'Цикл, позволяющий произвести п серий бросков

Cls

Print "Идет"; m;" - серия бросков "
Randomize Timer
Do

k1 = Int(Rnd() * 6 + 1) 'Число, выпавшее на 1-й кости

k2 = Int(Rnd() * 6 + 1) 'Число, выпавшее на 2-й кости

f1 = Right(Str(k1), 1) & ".bmp" 'Имя файла картинки для 1-й кости

f2 = Right(Str(k2), 1) & ".bmp" 'Имя файла картинки для 2-й кости

Set Pic1.Picture = LoadPicture(App.Path & "\Picture\" & f1) 'Загрузка картинки 1-й кости

Set Pic2.Picture = LoadPicture(App.Path & "\Picture\" & f2) 'Загрузка картинки 2-й кости
For t = 1 To 10000000: Next 'Подобрать оптимальную длительность задержки
s = s + 1 'Подсчет количества бросков до выпадения двух шестерок

Loop While (k1 <> 6) Or (k2 <> 6) 'Цикл выполняется, пока невыпадут две шестерки

Next m

Cls

Print

Print Spc(5); "Было проведено"; n;" серий бросков"

Print

Print Spc(5); "Среднее количество бросков"

Print Spc(5);" до выпадения двух шестерок равно"; Int(s / n)