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个两位随机数，并且求到了和！
