题型:综合题 题类:模拟题 难易度:普通
浙江省杭州市2015年高考模拟命题比赛信息技术(1)
Private Sub Command1_Click()
Dim ch As String, pos As Integer
= Text1.Text
pos = Asc(ch) – 64
Label2.Caption = "第" + Str(pos) + "个字母"
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中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮