熟悉vb和vf的请进

[cjume]

Dim i As Integer
Dim j As Integer
Dim isTrue As Boolean
Dim sum As Integer
For i = 1 To 100
isTrue = True
For j = 2 To i - 1
If i Mod j = 0 Then
isTrue = False
Exit For
End If
Next
If isTrue Then
Console.WriteLine(i)
sum += i
End If
Next
Console.WriteLine()
Console.WriteLine("sum = " + sum.ToString())

那位请帮帮忙改为vf代码，谢谢了先

[xiolig]

*FOX变量的初始值为逻辑假

Private i
Private j
Private isTrue
Private nSum
nSum = 0
For i = 1 To 100
isTrue = .T.
For j = 2 To i - 1
If i % j = 0 Then
isTrue = .F.
Exit For
EndIf
Next
If isTrue Then
?i
nSum = nSum + i
EndIf
Next
?
?"sum = " + LTRIM(STR(nSum))

[westbulls]

nsum=0
set talk on
For i = 1 To 100
isTrue = .t.
For j = 2 To i - 1
If i%j = 0
isTrue = .f.
Exit
EndIf
endfor
If isTrue
?allt(str(i))
nsum =nsum+ i
EndIf
endfor
? chr(13)
? "sum = " + allt(str(nsum))

[wwle]

++++++++++++for -endFor
Sum=0
For I=1 to 100
Flag=.t.
For j=2 to I-1
If I%j=0 &&mod(I,j)=0
Flag=.f.
Exit
Endif
EndF
If flag
? I
sum=sum+i
endif
endF
?
? ‘sum=’+allt(str(sum))



========== do while enddo

I=1
Do whiel I<=100
J=2 Flag=.t.
Do while j<I-2
If I%j=0
Flag=.f.
Exit
Endif
J=j+1
Enddo
If flag
?I
sum=sum+I
endif
I=I+1
Enddo
?
?’sum=’+allt(str(sum))

[wwle]

结贴吧

[yang505412]

同意

[wwle]

to ： hzk99(hzk99)
我希望你用称好习惯。
把vfp当c语言来用。用变量之前要定义一下。
vb（vbscript)也经常这样要求的
当然你也可以当我没说！

to: cjume (cjume
怎么还不结贴，赖这儿不走了？


哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈 l
哈 l
哈
哈哈哈哈哈哈哈哈哈哈哈哈哈哈 l l
哈 l
哈 l l
哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈 l

[hzk99]

可以不定义变量,由系统定义.
sum=0
For i = 1 To 100
isTrue = .T.
For j = 2 To i - 1
If i % j = 0
isTrue = .F.
Exit
EndIf
endfor
If isTrue
?i
sum =sum+ i
EndIf
endfor
?"sum = " + str(sum)

呵呵，最后结果是１０６１吧，我运行了．