2. 计算机
  3. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() Dim arr(1 To 100)AS Integer For i=1 To 100 arr

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

admin2013-01-07  15
问题 在窗体上画一个命令按钮，其名称为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(i)
End If
    If________Then
    Min=arr(i)
    End If
    Next i
    MsgBox Max
    MsgBox Min
    End Sub
    程序运行后，单击命令按钮，将产生100个1 000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请将程序补充完整。
选项
答案1000 arr(i)＞Max arr(i)＜Min
解析 在本题中，把首先产生的100个1000以内的随机整数放入数组arr中，由于Rnd函数可以产生(0，1)的随机数，所以将其乘以1000后就可以取到1000以内的随机数了，然后预先设置数组的第一个元素为最大值兼最小值，在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值大，则这个元素成为新的最大值，如果比当前的最小值小，则这个元素成为新的最小值，继续比较，直到所有元素都比较完为止。
转载请注明原文地址:https://kaotiyun.com/show/3Cup777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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