下面的程序随机产生10个小于100的整数,并找出其最大值、最小值和平均值,请将程序补充完整。(此程序是VB语言编写) Private Sub Form Click( ) Dim a(1 To 10)As Integer Dim m—max A

admin2016-01-01  28

问题 下面的程序随机产生10个小于100的整数,并找出其最大值、最小值和平均值,请将程序补充完整。(此程序是VB语言编写)
  Private Sub Form Click(  )
  Dim a(1 To 10)As Integer
  Dim m—max As Integer,m—min As Integer
  Dim S As Single
  Randomize
  For i=1 To 10
  a(i)=
  Print a(i)
  Next i
  m max=0:m min=100
  For i=1 To 10
  If a(i)>m max Then
  If a(i)S=_______
Print“最大值是:”;m—max
Print“最小值是:”;m—min
Print“平均值是:”;
End Sub

选项

答案Int(Rnd*99)+1 m max=a(i) s+a(i) Next i s/10

解析
转载请注明原文地址:https://jikaoti.com/ti/hZF9FFFM
0

最新回复(0)