编写程序,求200以内所有素数的和。
Private Sub Commandl _Click()Dim i, j, sum, flag As Integer, m As Integer sum=0For i=2 to 200flag=0∥(判断是否是素数共4分,参考代码如下,程序只要能判断是否为素数,均给4分)For j=2 To/2If Mod j=0 Then flag=1NextIf flag=0 Then sum=sum+iNextPrint“200以内所有的素数和为:”,sumEnd Sub