下列程序功能是 产生10个0-100的随机数 输出其中的最大值。请将程序补充完整。 Private
下列程序功能是，产生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
请帮忙给出正确答案和分析，谢谢！
参考解答
482***262
2023-07-21 01:11:02
正确答案：Int(Rnd*1000)
Rnd(x)产生一个0-1之间的单精度随机数。
相似问题
在用Ⅵsual Basic开发应用程序时 一般需要建立可视用户界面 设置对象属性和【 】3步。请帮忙
在用Ⅵsual Basic开发应用程序时，一般需要建立可视用户界面、设置对象属性和【 】3步。请帮忙给出正确答案和分析，谢谢！
为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program” 应使用的
为了在运行时将窗体Form1的标题(Caption属性)设置为“Test Program”，应使用的语句为【 】。请帮忙给出正确答案和分析，谢谢！
下列程序的功能是计算两个自然数的最大公约数 界面如下图所示。给定的程序不完整 将程序补充完整。 P
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Dim x As L
表达式2*4^2-2*6/3+3/2的值是【 】。请帮忙给出正确答案和分析 谢谢！
表达式2*4^2-2*6 3+3 2的值是【 】。请帮忙给出正确答案和分析，谢谢！
在窗体上画一个驱动器列表框 一个目录列表框和一个文件列表框 其名称分别为Dhvel Dirl和Fi
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和
