修一条水渠，计划每天修300米，40天完成．实际上2天就修了800米，照这样计算，可以提前多少天完成？

在窗体上画一个名称为Commandl的命令按钮，然后编写如下代码：
OpdOn Base1
Private Sub Commandl_CUck()
d=0
c=10
x=Array(10,12,21,32,24)
For i=1 To 5
Ifx(i)＞c Then
d=d+x(i)
c=X(i)
Else
d=d-c
End If
Next I
Printd
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A．89

B．99

C．23

D．77