UC知道VB的问题，哪位好心人帮我一下
来源：百度知道 编辑：UC知道 时间：2024/06/18 00:38:53
Problem 2: LELE的RPG难题
Time Limit:1000MS Memory Limit:65536K
Total Submit:1 Accepted:1
Description
人称“AC女之杀手”的超级偶像LELE最近忽然玩起了深沉，这可急坏了众多“Cole”（LELE的粉丝,即"可乐"）,经过多方打探，某资深Cole终于知道了原因，原来，LELE最近研究起了著名的RPG难题:
有排成一行的n个方格，用红(Red)、粉(Pink)、绿(Green)三色涂每个格子，每格涂一色，要求任何相邻的方格不能同色，且首尾两格也不同色．求全部的满足要求的涂法.
以上就是著名的RPG难题.
如果你是Cole,我想你一定会想尽办法帮助LELE解决这个问题的;如果不是,看在众多漂亮的痛不欲生的Cole女的面子上,你也不会袖手旁观吧?
Input
输入数据包含多个测试实例,每个测试实例占一行,由一个整数N组成，(0<N<=50)。< font>
Output
对于每个测试实例，请输出全部的满足要求的涂法，每个实例的输出占一行。
Sample Input
1
2
Sample Output
3
6
Hint
递推求解
数据可能超出int范围，建议采用_int64或double
Time Limit:1000MS Memory Limit:65536K
Total Submit:1 Accepted:1
Description
人称“AC女之杀手”的超级偶像LELE最近忽然玩起了深沉，这可急坏了众多“Cole”（LELE的粉丝,即"可乐"）,经过多方打探，某资深Cole终于知道了原因，原来，LELE最近研究起了著名的RPG难题:
有排成一行的n个方格，用红(Red)、粉(Pink)、绿(Green)三色涂每个格子，每格涂一色，要求任何相邻的方格不能同色，且首尾两格也不同色．求全部的满足要求的涂法.
以上就是著名的RPG难题.
如果你是Cole,我想你一定会想尽办法帮助LELE解决这个问题的;如果不是,看在众多漂亮的痛不欲生的Cole女的面子上,你也不会袖手旁观吧?
Input
输入数据包含多个测试实例,每个测试实例占一行,由一个整数N组成，(0<N<=50)。< font>
Output
对于每个测试实例，请输出全部的满足要求的涂法，每个实例的输出占一行。
Sample Input
1
2
Sample Output
3
6
Hint
递推求解
数据可能超出int范围，建议采用_int64或double
Dim id As Integer, c As Integer, n As Double
Function howmany(num As Integer)
DoEvents
id = id + 1: m = id
Select Case c
Case 0
If m = num Then
n = n + 1
Else
For i = 0 To 1
c = i
If m <> num Then
If id = num Then id = m
howmany num
End If
Next
End If
Case 1
If m <> num Then
For i = 0 To 1
c = 0
If id = num Then id = m
howmany num
Next
End If
End Select
End Function
Private Sub Command1_Click()
id = 0: c = 1: n = 0
Dim a As Integer
Me.AutoRedraw = True
Do While a <= 0 Or a > 50
a = Val(InputBox("输入格子数(0<N<=50)"))
Loop
If a = 1 Then
n = 3
Else
howmany a - 1
n = 3 * (2 ^ (a - 1) - n)
End If
Me.Print a & vbTab & n
End Sub