资 源 简 介
Dim que(25) As DoublePublic qt As IntegerPublic qh As IntegerPublic memo As DoubleDim dflag As IntegerDim i As IntegerDim opnre As IntegerDim prev As DoubleDim oflag As IntegerDim ind As IntegerFunction fact(num As Long) As Long If (num < 0 Or num = 0) Then MsgBox ("输入值错误!") fact = Val("") Else If (num > 12) Then MsgBox ("输入值太大!") fact = Val("") Else re = 1 While (num > 0) re = re * num num = num - 1