题型：综合题 题类：常考题 难易度：普通
浙江省重点中学2018届高三上学期期末热身联考试卷
Private Sub Command1_Click()
Dim s As String，result As String，i As Integer，j As Integer，t As Integer
s=Text1．Text：t=Len(s)：result=“”
i=1
Do While i<=t
j=i
Do While i<t
If Asc(Mid(s，i+1，1))=Asc(Mid(s，i，1))+1 Then
i=i+1
Else
Exit Do
End If
Loop
If i>j Then
result= ①
Else
result=result+Mid(s，i，1)
End If
i=i+1
Loop
Text2．Text= ②
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中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮
