求VB的编程

来源：百度知道 编辑：UC知道 时间：2024/05/14 01:58:47
1、已知Fibonacci数列为1，1，2，3，5，8，该数列的前两项均为1，从第3项开始，每一项都是前面两项的和。
2、求111的111次方的个位、十位、百位数分别是几
3、将一角人民币换成零钱，共有几种换法？

第一题简单。
以前我师傅帮我做的：这里给出前二十位，。。
加入一个命今按钮。
代码：
Private Sub Command1_Click()
Cls
Dim i As Integer
Dim a(1 To 20) As Integer
a(1) = 1
a(2) = 1
For i = 3 To 20
a(i) = a(i - 1) + a(i - 2)
Next i
For i = 1 To 20
Print a(i)
Next
End Sub

至于后面两题，我帮不了你了。我也不会。

第一题用递归法
Private Sub Form_Click()
Dim n%
n = Val(InputBox("N="))
Print dg(n)

End Sub
'递归函数
Private Function dg&(n%)
If n = 1 Or n = 2 Then
dg = 1
Else
dg = dg(n - 1) + dg(n - 2)
End If
End Function

第三题是什么意思?1角还能换成零钱?换成分分钱?

可以啊。1角钱算成几种分币的组合啊。