VB编程 输出3到100之间所有素数

2018-12-26 18:39:04

2个问答

Private Sub Command1_Click() Cls For i = 2 To 100 j = i \ 2 Do While j >= 2 If i Mod j = 0 Then Exit Do j = j - 1 Loop If j = 1 Then Print i Next i End Sub
dim i,j,x for i=3 to 100     x=1     for j=2 to i-1         if i mod j=0 then x=0     next j     if x=1 then print i next i

热门问答

热门搜索更多

  • A
  • B
  • C
  • D
  • E
  • F
  • G
  • H
  • I
  • J
  • K
  • L
  • M
  • N
  • O
  • P
  • Q
  • R
  • S
  • T
  • U
  • V
  • W
  • X
  • Y
  • Z