Dim red(1 To 600) As Integer        '用于存储100*6红色球信息

Dim blue(1 To 100) As Integer       '用于存储100*1蓝色球信息

Private Sub Form_Load()

'本过程用于从数据库data. accdb中读取最近100期双色球开奖信息

'将100*6个红色球开奖信息依次存储在数组red()中

'将100*1个蓝色球开奖信息依次存储在数组blue()中

'将最近100期开奖信息格式化后显示在列表框List1中

'本过程代码略

End Sub

Private Sub Command1_Click()

    Dim min As Integer

    Dim s As string

    Dim f(1 To 33)As Integer

    '——以下开始处理蓝色球部分——

    For b= 1 To 100

        f(blue(b))= f(blue(b))+1

    Next b

    min= 100

    For i= 1 To 16

        If f(i)< min Then min f(i)

    Next i

    For i=1 To 16

        If f(i)= min then s=

        f(i)=0

    Next i

    List2. Additem"蓝色球重点买人:"十s

    '——以下开始处理红色球部分——

    For r=1 To 600

    Next r

结合加虚线框处代码的算法，输出的内容是：

红色球重点买入：（按输出顺序写出6个红球号码)。