VB实验程序？

答案:2 悬赏:60 手机版

解决时间 2021-04-11 09:15

提问者网友：半生酒醒
2021-04-10 20:57

500到100 范围内产生20个随机数，并且显示其中最大值，最小值和平均值

最佳答案

五星知识达人网友：不如潦草
2021-04-10 21:07

思路：定义数组，分别从随机数500和100之间赋值，利用循环判断得出最大值和最小值，得出最大值之后平均值就直接除就OK了。

全部回答

1楼网友：舊物识亽
2021-04-10 21:57

Private Sub Command1_Click() Form1.Cls Dim s As String Dim themax As Integer, themin As Integer s = "" Dim a(19) As Integer For i = 0 To 19 a(i) = (Rnd() * 400 + 100) s = s + Trim(Str$(a(i))) + Space(2) If ((i + 1) Mod 10) = 0 Then s = s + Chr$(13) + Chr$(10) End If If i = 0 Then themax = a(i) themin = a(i) Else If themax < a(i) Then themax = a(i) End If If themin > a(i) Then themin = a(i) End If End If thesum = thesum + a(i) Next i Print s MsgBox "最大值是" & Trim(Str$(themax)) & " 最小值是" & Trim(Str$(themin)) & " 平均值是" & Trim(Str$(thesum / 20)) End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息