vb求平均值(2页).doc
( 4.5 )《vb求平均值(2页).doc》由会员分享，可在线阅读，更多相关《vb求平均值(2页).doc（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。
-产生20个01000的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮（名称为Command1）,标题为“输出平均值”，即可求出其平均值，并在窗体上显示出来。Private Sub Command1_Click() Dim arrN(20) As Integer Dim Aver As Single Dim Sum As Integer Randomize For i = 1 To 20 *found* arrN(i) = Int(Rnd * 1001) Next i Sum = 0 For i = 1 To 20 *found* Sum = Sum + arrN(i) Next i *found* Aver = Sum / 20 Print AverEnd Sub第 2 页-
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- vb 平均值
淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
关于本文
限制150内