发布网友 发布时间:12小时前
我来回答
共1个回答
热心网友 时间:12小时前
Private Sub Form_Click()Dim i As Integer, j As Integer, n As LongFor i = 1000 To 2000 For j = 2 To Int(Sqr(i)) If i Mod j = 0 Then Exit For Next If j > Int(Sqr(i)) Then n = n + iNextPrint nEnd Sub