计算在MsgBox VBA中生成的数字

Question

我想玩MsgBox中生成的随机数。 我有一个功能循环，我想找出两件事：

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

Answer 1

根据您的建议，我创建了这个。 代码正在生成包含两列的MsgBox-所有随机数和最终和。

V_0

总的来说，它确实在满足我的需求，并且帮助我在培训中取得了进步-谢谢！