1、首先双击打开VB。
2、添加一个标准exe窗体。
3、设置好界面(一个按钮,两个标签。)如下图。
4、双击按钮打开代码窗口输入代码(如下图,图中有详细解释。)Dim a, he As Doub盟敢势袂lePrivate 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个两位随机数,并且求到了和!