1For语句实现 Private Sub Command1_ClickDim s As Long， n As Integer， i As Integer n = ValText1Texts = 1 For i = 1 To n s = s * i Next i Label4Caption = Str...