【急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求】
答案:2 悬赏:30 手机版
解决时间 2021-02-06 01:49
- 提问者网友：兔牙战士
- 2021-02-05 20:17
【急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求】
最佳答案
- 五星知识达人网友：过活
- 2021-02-05 21:16
Private Sub Command1_Click()RandomizeDim a(10) As Integer,imas as integer,imin as integer,Average as integerimax = 49imin = 101Average=0For i = 0 To 9a(i) = Int(Rnd * 51) + 50Average=Average+a(i)If imax If imin > a(i) Then imin = a(i)Print a(i),NextPrintPrint 最大值和最小值和平均值是：; imax; imin; Average / 10End Sub 楼上的平均值计算是错误的,并且循环多了一次
全部回答
- 1楼网友：由着我着迷
- 2021-02-05 22:47
我检查一下我的答案
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯