Function fac(n As Integer) As Long

    fac = 1

    For i = 1 To n

fac = fac * i

    Next i

End Function

Private Sub Command1Click()

Dim s  As Long, j As Integer

For j = 1 To 10

Next

Text1.Text = Str(s)

End Sub

 方框中的正确语句是：（   ）

i = 1: Sum = 0: t = 0

Do While i <= 10

If i Mod 3 = 0 Then

Sum = Sum + i

Else

t = t + 1

End If

i = i + 1

Loop

具体方法为：（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。

图1

Private Sub Command1_Click()

  Dim sum As  Double, x As Double

  sum=0

  n=0

  For i=1 To 5

     x=n/i

     n=n+1

     sum=sum+x

  Next i

End Sub

该程序计算了一个表达式的值，这个表达式是（  ）

执行这部分流程后，变量a的值是（  ）