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

1、首先双击打开VB。

2、添加一个标准exe窗体。

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

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

Dim a, he As Double

Private Sub Command1_Click()
Randomize
Cls
he = 0
For i = 1 To 20 Step 1
a = Int(Rnd * (99 - 10 + 1) + 10)

Print a;

If i Mod 5 = 0 Then Print

he = he + a

Next i

Text1.Text = he \ 20

End Sub

5、单击启动按钮，如图.

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