整体资产价格鉴证中，当采用的收益为：净利润（净现金流）+扣税长期负债利息；折现率为：（无风险收益率+风险净资产利润率）×所有者权益占营运资产比例+长期负债平均利率×长期负债占营运资产比例×（1-所得税税率）时，此时鉴证的资产构成为（）。

A.全部资产

B.全部资产-全部负债

C.全部资产-长期负债

D.全部资产-流动负债

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、 Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。
程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对listl中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。

Private Sub Form_Load()
For i = 1 To 100
If i Mod 7 = 0 Then
______
End If
Next
End Sub
Private Sub Command1 Click()
Sum=0
For i = 0 To ______
Sum = Sum+ ______
Next
Text1：Text = Sum
End Sub