VB计算器

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

ssss.frm
ssss.frx
工程1.exe
工程1.vbp
工程1.vbw
MSSCCPRJ.SCC