分类：电脑/网络-程序设计
问题：请教一个vb问题？ 
回答：Private Sub Form_Click()Dim i, j, s As Integers = 0For i = 2 To 1000For j = 1 To int(i /2)If i MOD j = 0 Thens = s + jEnd IfNext jIf i = s ThenPrint iEnd IfNext iEnd Sub