题库 高中信息
题干
波波同学一直梦想买彩票中500万大奖，他收集了最近100期“双色球”开奖信息，存储于data. accdb文件中，并使用VB软件编写了“双色球投注建议”程序，程序根据最近100期开奖信息，统计出现概率最低的6个红色球号码和1个蓝色球号码，给出投注建议。如果蓝色球有多个概率最低的号码，则输出多个，红色球不考虑并列概率量低情况。
注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。
程序运行界面如图所示。
（1）实现上述功能的VB程序如下，请完善画线处的代码。
Dim red(l 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
For i=1 To 16
Next i
List2. Additem"蓝色球重点买人:"十s
＇——以下开始处理红色球部分——
For r=1 To 600
②_________
Next r
③_________
（2）在某次红球部分处理时，若数组f中的，f(1)至f(33)的值依次为：
结合加虚线框处代码的算法，输出的内容是：
红色球重点买入：________________________.（按输出顺序写出6个红球号码)。
注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。
程序运行界面如图所示。
（1）实现上述功能的VB程序如下，请完善画线处的代码。
Dim red(l 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 iFor i=1 To 16
If f(i)= min then s= ①_______
f(i)=0Next 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个红球号码)。
答案(点此获取答案解析）
