' 功能:该程序通过 For 循环计算一个表达式的值,这个表达式是 1/2+2/3+3/4+4/5 Private Sub Command1_Click() '**********SPACE********** Dim 【 ? 】 As Double, x As Double Dim n As Long Dim i As Integer '**********SPACE********** sum = 【 ? 】 n = 0 For i = 1 To 5 x = n / i n = n + 1 '**********SPACE********** sum = 【 ? 】 Next Form1.Print sum End Sub