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

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:45
阅读量:35
阅读量:146
阅读量:147
阅读量:25