方法一:用循环实现
Rem 语言:Visual Basic 6.0
Sub Main() '开始
S = 1 :i = 1
Do
S = S * i
If Not (i < 11) Then Exit Do
i = i + 2
Loop
MsgBox S,vbInformation,"输出"
End Sub '结束
方法二:直接计算输出
方法一:用循环实现
Rem 语言:Visual Basic 6.0
Sub Main() '开始
S = 1 :i = 1
Do
S = S * i
If Not (i < 11) Then Exit Do
i = i + 2
Loop
MsgBox S,vbInformation,"输出"
End Sub '结束
方法二:直接计算输出