在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click( ) Dim arr(1 To 100) As Integer For i=1 To 100 a

admin2010-03-22  23

问题 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:
   Private Sub Command1_Click( )
   Dim arr(1 To 100) As Integer
   For i=1 To 100
       arr(i)=Int(Rnd*______)
   Next i
   Max=arr(1)
   Min=arr(1)
   For i=1 To 100
        If ______Then
   Max=arr(1)
   End If
   If ______Then
   Min=arr(i)
   End If
   Next i
   MsgBox Max
   MsgBox Min
   End Sub
   程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min。请依据上述功能将程序补充完整。

选项

答案1000 arr(i)>Max arr(i)<Min

解析 本题考查VBA中程序设计的知识。对于这个问题,首先要产生100个1000以内的随机整数,放入数组arr中,由于Rnd函数可以产生0~1之间的随机数,所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值,然后在循环中把数组元素依次与最大值和最小值进行比较,如果比当前的最大值还大,则让这个数组元素成为新的最大值;如果比当前的最小值还小,则让这个数组元素成为新的最小值,接着继续比较直至数组元素都比较一遍为止。
转载请注明原文地址:https://kaotiyun.com/show/ykwp777K
0

最新回复(0)