首页 > 计算机 > 计算机考试 正文

[填空题] 下列程序功能是,产生10个0-100的随机数,输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim

时间:2021-07-20 18:46:22 解答: 82 次

[填空题] 下列程序功能是,产生10个0-100的随机数,输出其中的最大值。请将程序补充完整。

Private Sub Form_Click()

Dim an(10)As Integer

Dim max As Integer

Randomize

For i%=1 To 10

an(i%)= 【10】

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之间的单精度随机数。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2024-12-31 10:49:31

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2024-12-31 10:49:31

←请使用微信扫码支付