Подсчет числа сгенерированных в MsgBox VBA - PullRequest
Новая
       20

Подсчет числа сгенерированных в MsgBox VBA

0 голосов
/ 15 октября 2018

Я бы хотел поиграть со случайными числами, сгенерированными в MsgBox.У меня есть функциональный цикл, и я хотел бы выяснить 2 вещи:

1st Программа генерирует 30 случайных целых чисел (например, от 10 до 50).Узнайте, сколько из них находится в пределах определенного интервала (например, от 25 до 35)

2nd. Определите окончательную сумму сгенерированных чисел в MsgBox 

Dim b As Byte
Dim f As Single
Dim ret As String
ret = ""

For b = 1 To 30
    f = Round(Rnd() * 40) + 10
    ret = ret + Chr(10) + Str(f)

    Next b
        MsgBox ret
.

1 Ответ

0 голосов
/ 24 октября 2018

Следуя вашему совету, я создал это.Код генерирует MsgBox с 2 столбцами - все случайные числа и итоговая сумма. 

Sub C5b()

    Dim b As Byte
    Dim f As Single
    Dim ret As String
    Dim f1 As Single
    ret = ""
    f1 = 0

    For b = 1 To 20
        f = Round(Rnd() * 40) + 10
        f1 = f + f1
        ret = ret & vbNewLine & Str(f)

        Next b
            MsgBox ret + Str(f1)

End Sub

В целом, он делает именно то, что мне нужно, и это помогло мне продвинуться в обучении - спасибо!

...