皮皮网

1.vb 中print如何实现i 每五个数一行

vb 中print如何实现i 每五个数一行

       Private

       Sub

       Command1_Click()

       Cls

       Dim

       m%,麻将麻将码

       n%,

       i%,

       j%,

       k%,

       count%

       m

       =

       Val(Text1.Text)

       n

       =

       Val(Text2.Text)

       If

       m

       <=

       3

       Or

       n

       <=

       m

       Then

       MsgBox

       "下限为大于等于3的整数并且要小于下限",

       vbOKOnly,

       "求给出范围的素数"

       Else

       For

       i

       =

       m

       To

       n

       For

       j

       =

       2

       To

       i

       -

       1

       If

       i

       Mod

       j

       =

       0

       Then

       Exit

       For

       End

       If

       If

       j

       =

       i

       Then

       '该条件永远不成立，需要修改

       count

       =

       count

       +

       1

       If

       count

       Mod

       5

       =

       0

       The源码源代spring源码交流n

       Print

       Else

       Print

       i;

       End

       If

       End

       If

       Next

       Next

       End

       If

       End

       Sub