1、首先双击打开VB。

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

3、设置好界面(一个按钮,两个标签。)如下图。

4、双击按钮打开代码窗口输入代码(如下图,图中有详细解释。)Dim a, he As DoublePrivate Sub Co罪焐芡拂mmand1_Click()RandomizeClshe = 0For i = 1 To 20 Step 1a = Int(Rnd * (99 - 10 + 1) + 10)Print a;If i Mod 5 = 0 Then Printhe = he + aNext iText1.Text = he \ 20End Sub

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

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