查看会员资料
用 户 名：匿***
发送消息- Email：用户隐藏
- Icq/MSN：
- 电话号码：
- Homepage：
- 会员简介：
最新会员发布资源
123
- Private Sub Form_Click() Dim x, y, n As Integer For x = 3 To 100 For y = 2 To x - 1 If x Mod y = 0 Then Exit For ElseIf y = x - 1 Then If n Mod 10 = 0 Then Print Form1.Print x " " n = n + 1 End If Next y Next x End Sub -Pri