学进去

数字游戏：现在有一种数字游戏，开始时输入一串数字，每两个数字间用逗号隔开，共有 N 个数字（数字的值可能在 10 以上）。游戏分为 N 轮，第 X 轮的基础奖励值等于第 X 个数字的数值。在不进行任何操作前，每一轮的奖励值等于该轮的基础奖励值。每一轮在如下几种方案中任选一种：
方案一：直接获得应获得的奖励值；
方案二：令本轮获得的奖励值减去 5，令下一轮获得的奖励值乘 2；
方案三：令本轮获得的奖励值整除 3，令下下轮获得的奖励值乘 3；注意：当某一轮上叠加了多个效果时，后叠加的效果先生效。
如图 a 所示第一轮考虑：

图a
采用方案一，奖励值为 6；
采用方案二，奖励值为 6-5=1；采用方案三，奖励值为 6\3=2。
再考虑第二轮：
采用方案一，若第一轮采用方案一时，总奖励值为 6+9=15；若第一轮采用方案二时，总奖值为1+9*2=19；
采用方案二，若第一轮采用方案一时，总奖励值为 6 +（9-5）=10；若第一轮采用方案二时，总奖励值为 1+(9-5)*2=9；
第二轮不会采用方案三，若采用，效果将在第四轮生效，而本案例没有第四轮。 最后考虑第三轮：
同上，第三轮只会采用方案一因为没有下一轮和下下一轮，此时： 前两轮都采用方案一，总奖励值为 18；
前两轮都采用方案二，总奖励值为 15；
第一轮采用方案一，第二轮采用方案二，总奖励值为 16；第一轮采用方案三，第二轮采用方案一，总奖励值为 20；第一轮采用方案三，第二轮采用方案二，总奖励值为 24。因此最大总奖励值为 24。
现编写一个程序，用于求出最大总奖励值。
（1）输入的数字串为“5，6”，则最大奖励值为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Function max5(a As Integer, b As Integer, c As Integer, d As Integer,e As Integer) As Integer '求五个数字中的最大值
If a > b Then max5 = a
If c > max5 Then max5 = c
If d > max5 Then max5 = d
If e > max5 Then max5 = e
End Function
Function max2(a As Integer,b As Integer)As Integer '求两个数字中的最大值
If a > b Then
max2 = a
Else
max2 = b
End Function
Private Sub Command1_Click()
Dim s As String, rec As Integer,n As Integer,i As Integer
Dim f(1 To 100) As Integer    'f(i)表示第 i 轮采用方案一时,前 i 轮总共能获得的最大奖励值Dim g(1 To 100) As Intcger  'g(i)表示第 i 轮采用方案二时,前 i 轮总共能获得的最大奖励值Dim h(1 To 100) As Integer  'h(i)表示第 i 轮采用方案三时,前 i 轮总共能获得的最大奖励值Dim a(1 To 100) As Integer 'a(i)表示第 i 轮的基础奖励值
s = Text1.Text +"," n = 0:rec = 0
For i = 1 To Len(s)

If Mid(s,i,1)="," Then

    n = n+1
a(n)=_____

    rec=i

End If

Next i
f(1)=a(1):g(1)=a(1)-5:h(1)=a(1)\3
f(2) = max2(f(1)+a(2),g(1)+a(2)*2)
g(2) = max2(f(1)+a(2)-5,g(1)+(a(2)-5)*2)
h(2)=_____
For i = 3 To n
f(i)=max5(f(i-1)+a(i),g(i-1)+a(i)*2,h(i-2)+a(i-1)+a(i)*3,h(i-2)+a(i-1)-5+a(i)*6,g(i-2)+(a(i-1)-5)*2
+a(i)*2)
g(i)=max5(f(i-1)+a(i)-5,g(i-1)+(a(i)-5)*2,h(i-2)+a(i-1)+(a(i)-5)*3,h(i-2)+a(i-1)-5+(a(i)-5)*6,g(i-2)+ (a(i-1)-5)*2+(a(i)-5)*2)
h(i)=max5(f(i-1)+a(i)\3,g(i-1)+(a(i)\3)*2,h(i-2)+a(i-1)+(a(i)\3)*3,h(i-2)+a(i-1)-5+(a(i)\3)*6,g(i-2)+ (a(i-1)-5)*2+(a(i)\3)*2)
Next i
Label1.Caption = "最大总奖励值"+_____
End Sub