Vb输出100?200以内的素数，并求和，并存入产量sum中。

　　vb6新建一工程，在窗体上拖入一个按钮控件。进行代码区，清除所有代码后，粘贴以下代码即可。 Option ExplicitDim SUM As LongPrivate Sub Command1_Click() Dim I As Long, J As Long Dim YN As Boolean Cls SUM = 0 For I = 101 To 200 Step 2 YN = False For J = 2 To Sqr(I) If I Mod J =