题目

波波同学一直梦想买彩票中500万大奖，他收集了最近100期“双色球”开奖信息，存储于data. accdb文件中，并使用VB软件编写了“双色球投注建议”程序，程序根据最近100期开奖信息，统计出现概率最低的6个红色球号码和1个蓝色球号码，给出投注建议。如果蓝色球有多个概率最低的号码，则输出多个，红色球不考虑并列概率量低情况。 注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。 程序运行界面如图所示。 （1） 实现上述功能的VB程序如下，请完善画线处的代码。 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     （2） 在某次红球部分处理时，若数组f中的，f(1)至f(33)的值依次为： f(1)-f(11): 6 8 20 25 16 21 14 20 24 28 26 f(12)-f(22): 1 30 8 1 10 10 33 28 32 20 6 f(23)-f(33): 4 34 29 18 25 30 4 13 30 20 6 结合加虚线框处代码的算法，输出的内容是： 红色球重点买入：（按输出顺序写出6个红球号码)。 答案： 【1】s+str(i)【2】f(red(r))=f(red(r))+1【3】s="" 【1】12 15 23 29 1 22

查看本题答案和解析