题型:综合题 题类:模拟题 难易度:普通
浙江省2019年信息技术选考模拟试卷四
图1
图2 图3
Private Sub Command1_Click()
Dim n As Integer,k As Integer,s As Long
If n>=10 Or n<=0 Then
Label2.Caption=“请输入一个小于10的正整数”
Else
s=0
For k=1 To n
s=s+k*k
Label2.Caption=Str(s)
End If
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中显示最大的总价值和生产的商品编号。程序运行界面如图所示。
试题篮