2. 计算机
  3. 在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim art(1 To 100)As Integer Fori=1 To 100

在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim art(1 To 100)As Integer Fori=1 To 100

admin2012-09-03  42
问题 在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：
      Private Sub Commandl_Click()
      Dim art(1 To 100)As Integer
      Fori=1 To 100
          arr(i)=Int(Rnd*_____________)
      Nexti
      Max=arr(1)
      Min=arr(1)
      For i=1 To 100
           If_____________Then
             Max=arr(i)
           End If
           If_____________Then
               Min=arr(i)
        EndIf
      Nexti
      MsgBox Max
      MsgBox Min
      End Sub
    程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并先后使用消息框输出这100个数中的最大值Max和最小值Min，请填空。
选项
答案1000 arr(i)>Max arI(i)
解析 本题考查VBA中程序设计的知识。对于这个问题，首先要产生100个1000以内的随机整数，放入数组arr中，由于Rnd函数可以产生0～1之间的随机数，所以将其乘以1000后再取整就可以得到1000以内的随机整数。然后预先设置数组的第一个元素为最大值兼最小值，然后在循环中把数组元素依次与最大值和最小值比较，如果比当前的最大值还大，则让这个数组元素成为新的最大值；如果比当前的最小值还小，则让这个数组元素成为新的最小值，接着继续比较直至数组元素都比较一遍为止。
转载请注明原文地址:https://www.kaotiyun.com/show/kDup777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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