Function f(n as integer) as long
Dim j As Integer
f=1
For j=1 to n
f=f*j
Next j
End Function
Private Sub Command1_Click()
Dim s As Long, AS Integer
S=0
For i=1 to 6
Next i
Text1.text=str(s)
End Sub
方框中正确的语句是 ( )
微信扫码预览、分享更方便