Private Sub Command1_Click()
Dim M As Single, I As Single
J = 0
For M = 2 To 1000
If M = 2 Then Print M;
I = 1
Do
I = I + 1
Loop Until (M Mod I = 0) Or (I = M - 1)
If M Mod I <> 0 Then
Print M;
J = J + 1
If J Mod 10 = 0 Then Print
End If
Next M
End Sub
唐老师,弱弱的问一句,这是Visual Basic程序吗?要怎么样才能运行呢?
嗯,谢谢支持哈,这是用VB写的程序哈。你可以先安装一个VB6.0 打开后,写好程序,按界面上的运行按钮或者按键盘上的F5即可运行VB程序哈。