实现该功能的VB程序段如下：

Function space(x As Integer)As String        ‘输出格式化，设置左侧的空格数量

  Dim n As Integer

  For n=9 To x Step-1

     ①  

  Next n

End Function

Private Sub Form_Load()

  Dim t As Long，i As Integer，n As String

  Dim a(1 To 9)As String

  Dim b(1 To 9)As String

  Const num=“987654321”

  For i=1 To 9

    t=t*10+i

    a(i)=space(i)+CStr(t)  ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

       ②   

    n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13)       ‘Chr(13)实现换行处理

  Next i

  Label1．Caption=n

End Sub

奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：

⑴将1放在第一行中间一列；(如图2)

⑵从2开始直到n*n为止，各数按下列规则存放：

假设当前要存放的数为k，则k存放在k-1)数的右上方并按照规则

①若(k-1)放在第1行且不是最后一列，则将k存放在n行，(k-1)所在列右侧；(如图3)

②若(k-1)放在第n列且不是第一行，则将k存放在第1列，k-1)的上1行；(如图4)

③若(k-1)即不在第1行也不在最后1列：

若(k-1)右上方有数，则将k放在(k-1)的下1行的同一列。(如图5)

若(k-1)右上方没有数，则将k放在(k-1)的右上方；(如图6)

④若(k-1)在第1行第n列，将k填在(k-1)的正下方(如图7)

1）程序运行后，给出文字提示:"请输入一个正整数："

2）输入一个整数n按回车后，程序输出从1-n所有整数中既是3的倍数又是5的倍数的数。

3）不要超过5行代码。

程序运行举例：

s="ABCDEFGH"

i=1

Do While i<=Len(s)

    If i mod 2=0 then

        s=mid(s, i+1, len(s)-i) & mid(s, 1, i-1)

    End If

    i=i+1

Loop

Text1.text=s

def peach(n):

    if n == 10:

        return 1

    else:

        return (peach(n+1)+1)*2

print(peach(8))

执行该程序段后，输出的结果是（   ）