下面以生成20个两位随机数并求平均值为例。
方法/步骤
1、首先双击打开VB。
2、添加一个标准exe窗体。
3、设置好界面(一个按钮,两个标签。)如下图。
4、双击按钮打开代码窗口输入代码(如下图,图中有详细解释。)Dima,heAsDoub盟敢势袂lePrivateSubCo罪焐芡拂mmand1_Click()RandomizeClshe=0Fori=1To20Step1a=Int(Rnd*(99-10+1)+10)Printa;IfiMod5=0ThenPrinthe=he+aNextiText1.Text=he\20EndSub
5、单击启动按钮,如图.
6、单击{计算}按钮,我们就成功在窗体上输出了20个两位随机数,并且求到了和!