更多"下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统"的相关试题:
[填空题]下面程序的功能是产生10个小于100(不含100) 的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Sub PR( )
Randomize
Dim a(10)
For i=1 To 10
a(i) =Int( [14] )
If [15] Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
[填空题]下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。
Sub PR( )
Randomize
Dima(10)
Forj=1 To 10
a(i)=Int______
If a(j)Mod5=0 Then k=k+1
Printa(j)
Nextj
Print
Printk/10
End Sub
[填空题]下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所
占比例,但程序不完整,请补充完整。
Sub PR( )
Randomize
Dim a(10)
For j=1 To 10
a(i)=Int( 【14】 )
If 【15】Then k=k+1
Print a(j)
Next j
Print
Print k/10
End Sub
[填空题]下面的程序随机产生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)<m min Then m_min=a(i)
s=______
______
Print"最大值是:";m_max
Print"最小值是:";m_min
Print"平均值是:";______
End Sub