n= [ 10+int(90*rnd) ]
st = [ st + " " + n ]
forj=2 to [ n ]
[ n1=n1+1 ]
[ exit for ]
text1.text=[ st ]
text2.text= [ n-n1 ]
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, n1 As Integer, st As String
For i = 1 To 10
n =_
st = _
For j = 2 To _
If n Mod j = 0 Then_
Next
If j > Sqr(n) Then
_
End If
Next
Text1.Text = _
Text2.Text = _
End Sub