有如下VB程序，功能是用递归法求斐波那契数列1，1，2，3，5，8，13，…第10项的值。请将程序补充完整！