1. (2020九上·期末) 计算1到100之和，欲设计的界面如下：

1. （1） 设置部分对象及其属性如下表：

   对象名	属性名	属性
   Command1		计算

3. （2） 编写代码：

   Private Sub Command1_Click()

       Dim i, s As Integer

       s =

       For i = 0 To 100 Step 1

          

       Next i

       Label2.Caption = Str(s)

   End Sub