题型：单选题 题类：常考题 难易度：普通
浙江省“七彩阳光”新高考研究联盟2019-2020学年高三上学期信息技术期中联考试卷
Private Sub Command1_Click() ‘列表框中输出 b(i)，代码略
End Sub
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"
n = 0
Do While Not myrecord.EOF n = n + 1
a(n) = myrecord.Fields("2018")
b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018") myrecord.MoveNext
Loop
conn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub
下列说法不正确的是（ ）
|
编号 |
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中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮
