UC知道·VB程序设计
来源：百度知道 编辑：UC知道 时间：2024/06/06 11:30:03
Problem 1:采药
Time Limit:1000MS Memory Limit:2000K
Total Submit:39 Accepted:10
Description
辰辰是个很有潜能、天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”
如果你是辰辰，你能完成这个任务吗？
Input
输入的第一行有两个整数T（1 ≤T ≤1000）和M（1≤M ≤ 100），T代表总共能够用来采药的时间，M代表山洞里的草药的数目。接下来的M行每行包括两个在1到100之间（包括1和100）的整数，分别表示采摘某株草药的时间和这株草药的价值。
Output
输出只包括一行，这一行只包含一个整数，表示在规定的时间内，可以采到的草药的最大总价值。
Sample Input
70 3
71 100
69 1
1 2
Sample Output
3
Time Limit:1000MS Memory Limit:2000K
Total Submit:39 Accepted:10
Description
辰辰是个很有潜能、天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”
如果你是辰辰，你能完成这个任务吗？
Input
输入的第一行有两个整数T（1 ≤T ≤1000）和M（1≤M ≤ 100），T代表总共能够用来采药的时间，M代表山洞里的草药的数目。接下来的M行每行包括两个在1到100之间（包括1和100）的整数，分别表示采摘某株草药的时间和这株草药的价值。
Output
输出只包括一行，这一行只包含一个整数，表示在规定的时间内，可以采到的草药的最大总价值。
Sample Input
70 3
71 100
69 1
1 2
Sample Output
3
Private Type shuz
a As Integer
b As Integer
End Type
Private Function cf(zf As String) As shuz
Dim i As Integer
i = 1
Do While i < Len(zf) And Mid(zf, i, 1) <> " "
i = i + 1
Loop
cf.a = CInt(Left(zf, i))
cf.b = CInt(Right(zf, Len(zf) - i))
End Function
Private Sub Form_Click()
Dim zif As String, gd As shuz
Dim t As Integer, ms() As shuz, a As Integer, b As Integer, m As Integer, c As Integer
zif = InputBox("请输入 总时间 草药数", "提示")
gd = cf(zif)
t = gd.a
m = gd.b
ReDim ms(m)
For a = 1 To m
zif = InputBox("请输入第" + CStr(a) + "个草药的时间 价值", "提示")
ms(a) = cf(zif)
Next
Print "您输入的总时间是" + CStr(t) + " 草药数是" + CStr(m)
For a = m To 2 Step -1
For b = 1 To a - 1
If ms(b).b < ms(b + 1).b Then
gd.a = ms(b + 1).a
gd.b = ms(b + 1).b