1、必做题：在每道题正确无误后保存为结果文件（*.exe），以自己的姓名加学号后两位进行命名，然后提交作业）
（1）求出1+2+3+4+……+100的和，单击窗体时，将所求的和显示在窗体上。(请使用for循环结构实现)
（2）求S=1+2+3+……+N，当N为何值时，和不超过3000。单击窗体时输出N的值。

代码提示：

PrivateSub Form_Click（）

   Dim s&，N%,i%

   s = 0

   For i=1 to 100 step 1   

       s =s + i

       If s>=3000 then

           exit for

       End If

   next i

   N=i-1

   Print “当N为”;N;“时，和不超过3000”

EndSub
2、附加题（选做题，有能力的同学请完成下面的任务）
（1） 请打印输出1到100以内所以能被3整除的数的和？
（2） 请你实现随机输入20个1到100之间的数，打印输出这些生成数中的最小值

附加题答案提示：

第一题代码提示

Private Sub Form_Click()

Dim i%, sum%

sum = 0

For i = 1 To 100

    If i Mod 3 = 0 Then sum = sum + i

Next i

Print sum

End Sub

第二题代码提示

Private Sub Command1_Click()

Dim i%, min%, sjs%

min = 100

Randomize

For i = 1 To 20

    sjs = Int(Rnd * 100 + 1)

    If sjs <= min Then min = sjs

       Print sjs;

Next i

Print

Print "min=" & min

End Sub

Private Sub Command2_Click()

Dim i%, max%, sjs%

max = 1

Randomize

For i = 1 To 20

    sjs = Int(Rnd * 100 + 1)

    If sjs >= max Then max = sjs

       Print sjs;

Next i

Print

Print "max=" & max

End Sub