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

获取CString类型长度，可据此进行打印输出处理-CString type to obtain the length, would then be able to print the output deal