Question

编写VB程序：找出10~100范围内的所有素数，并将这些素数显示在窗体上

Answer 1

Dim x As Integer, i As Integer
Dim y As Integer
For x = 10 To 100
y = Int(Sqr(x)) + 1
For i = 2 To y
If x Mod i = 0 Then
Exit For
End If
Next i
If i = y + 1 Then
Print x;
End If
Next x

Answer 2

Option Explicit
Private Sub Form_Load()
Dim i As Long, j As Long, k As Long
Show
For i = 10 To 100
k = k + 1
For j = 2 To i - 1
If i Mod j = 0 Then Exit For
Next
If k = 50 Then Print: k = 0
If j > i - 1 Then Print j;
Next
End Sub