【VB开源代码栏目提醒】:网学会员VB开源代码为您提供7.1.2.frm参考，解决您在7.1.2.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   3195
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   4680
       LinkTopic       =   "Form1"
       ScaleHeight     =   3195
       ScaleWidth      =   4680
       StartUpPosition =   3  '窗口缺省
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Click()
    Dim i, j, c As Integer
    c = 1
    '标志
    k = 0
    '换行标记
    For i = 2 To 100
    For j = 2 To Sqr(i)
    '平方根
    If i Mod j = 0 Then
     If i <> j Then
      c = 0
     End If
    End If
    Next j
    If c <> 0 Then
    Print i;
    k = k + 1
    End If
    '每10个素数输出为一行
    If (k Mod 10 = 0) Then Print
    c = 1
    Next i
    End Sub
    
    

上一篇：6.6.2.frm
下一篇：白色姜花，略微开了