时间戳

首页 > 解决方案 > 计数 MsgBox VBA 中生成的数字

vba - 计数 MsgBox VBA 中生成的数字

问题描述

我想玩 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

标签： vbamsgbox

解决方案

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

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

总而言之，它完全符合我的需要，它帮助我在训练中取得进步 - 谢谢！

推荐阅读