2. 计算机
  3. 下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i%=1 T

下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i%=1 T

admin2010-11-20  35
问题 下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an(10) As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)=______
Next
max=an(1)
For i%=2 to 10
if an(i%) ＞max then
max=an(i%)
End IF
Next
Print max
End Sub
选项
答案Int(Rnd*1000)
解析 Rnd(x) 产生一个0～1之间的单精度随机数。
转载请注明原文地址:https://jikaoti.com/ti/Wpg0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)