实现上述功能的VB程序如下，请回答下列问题：

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

  Text2．Text=coding(Text1．Text)

End Sub

Private Function coding(s As String)As String

 Dim n As Integer，i As Integer，C As String

 c=Mid(s，1，1)

n=1

 For i=2 To Len(s)

    If  Then    ‘(1)

       n=n+1

    Else

      c=c+Str(n)+“／”

      n=1

    End If

  Next i

  coding=     ‘(2)

End Function

1)让各店的外卖员送货上门，对于第i个菜需要花费a(i)的时间。

2)自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b(i)的时间。

每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到。为了节省时间，能由外类员送的菜尽量由外卖负各自送达，现在需要知道最少花费多少时间能集齐所有的菜。

比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花费时间少的方案是第一个菜和第三个菜让让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。

设计VB程序计算最少时间，界面如下图

实现上述功能的VB程序如下，回答以下问题：

def peach(n):

    if n == 10:

        return 1

    else:

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

print(peach(8))

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

图a

为了梳理产品组件的组装顺序，并计算所有组件安装完成所需的最短时间，编写程序模拟组装过程：先同时组装前置总数为0的组件，完成后更新每个组件的前置总数，再重复以上步骤，直至所有组件安装完毕，程序运行结果如下图b所示，请回答下列问题:

图b

一个正整数的阶乘是所有小于及等于该数的正整数的积，并且0的阶乘为1，即n！＝1*2*3*...*（n－1）*n。

n！＝ 现求n！。

def f（n）：   #定义递归函数f（n）

    if n＝＝0 or n＝＝1：

        return 1   #定义当n为0时函数返回值为1

    else：

        return {#blank#}1{#/blank#}   #递归定义n≥1时的通项公式

{#blank#}2{#/blank#}＝int（input（"请输入n："））   #从键盘上输入n的值

print（"n！的值为：", {#blank#}3{#/blank#}）   #输出结果