VB生成随机数并求平均值怎么做

VB生成随机数并求平均值怎么做

下面以生成20个两位随机数并求平均值为例。

首先双击打开VB。

添加一个标准exe窗体。

设置好界面（一个按钮，两个标签。）如下图。

双击按钮打开代码窗口输入代码（如下图，图中有详细解释。）

Dim a, he As DoublePrivate Sub Command1_Click()RandomizeClshe = 0For i = 1 To 20 Step 1a = Int(Rnd * (99 - 10 + 1) + 10)

Print a;

If i Mod 5 = 0 Then Print

he = he + aNext i

Text1.Text = he \ 20

End Sub

单击启动按钮，如图.

单击{计算}按钮,我们就成功在窗体上输出了20个两位随机数，并且求到了和！