Private Sub Command1_Click()Dim s As DoubleDim i As DoubleFor i = 1 To 100s = s + iNext iPrint sEnd Sub是不是这样?
dim i as long,sum as longfor i=1 to 100sum=sum+inextprint sum
5050