题型：单选题 题类：常考题 难易度：困难
浙江省嘉兴市2018-2019学年高三信息技术3月嘉丽联考试卷
Dim a(1 To 10)As Integer
Dim i As Integer，j As Integer，m As Integer，flag As Boolean
Dim key As Integer，n As Integer，C As Integer，d As Integer
i=1：J=10：m=0：flag=False
key=Val(Text1．Text)
Do While i<=J And Not flag
If key<a(i)Or key>a(j)Then n=-1：Exit Do 未找到退出
If a(i) ＜＞a(j) Then
c=key-a(i)：d=a(j)一a(i)
m=i+Int(c*(j-i)／d)
Else
m=i
End If
If key=a(m)Then flag=True：n=m
If key>a(m)Then i=m+1
If key<a(m)Then j=m-1
Loop
If flag=False Then n=-1
其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（ ）
|
编号 |
1 |
2 |
3 |
4 |
5 |
|
生产时间 |
4 |
7 |
5 |
5 |
9 |
|
商品价值 |
10 |
16 |
12 |
10 |
15 |
若生产时间为20，则可生产编号为1、2、5的商品，总价值为10+16+15=41。
编写一个VB程序，实现如下功能：在文本框Text1中依次输入各商品（数量小于等于10件）的生产时间和价值（整数用逗号分隔并以逗号结尾），在文本框Text2中输入总加工时间（至少可以生产一件商品），单击“确定”按钮Command1后，在列表框List1中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮
