2. 计算机
  3. 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Rand

要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Rand

admin2009-02-13  58
问题 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
   Option Base 1
   Private Sub Command1_Click()
      Dim b()
      Randomize
     【  】
      Do
         x=Rnd
         If x＞0.5 Then y=1 Else y=-1
         t=y*Int(Rnd*100)+1
         【  】
         Do While k＜j
            If t ＜＞ b(k)Then
               k = k + 1
            Else
               Exit Do
            End If
         Loop
         If k=j Then
            ReDim Preserve b(k)
            b(k)=t
            Print b(k)；
            j=j+1
         End If
      Loop Until j＞50
      Print
     【  】
      Max=b(1)
      For n=2 To 50
         If b(n)＞Max Then
           【  】
            p = n
         End  If
      Next  n
      Print "最大数是："；Max
      Print "位置在第"；p；"个"
   End Sub
选项
答案j=1 , k=1 , p=1 , Max=b(n)
解析 变量j是记录已产生数据的个数，变量k是查找是否有重复时记录用，变量 p是记录最大数据的位置。在查找最大数据之前，将数组的第一个下标和数据先记录到p和Max中。
转载请注明原文地址:https://kaotiyun.com/show/Lz1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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