房天下

Fang.com
房天下 > 房天下问答 > 业主生活 > 其他

  • VB Timer 循环

    循环判断质数，每3秒输入一个质数，按“停止”暂停显示。我已将interval设置为3000，循环代码如下：]但运行的时候，过3秒一次性输入了所有10000内的质数。。求高人指教。。Private Sub Timer1_Timer()a = "" For n = 1 To 10000 Step 2 s = 0 For i = 2 To Int(Sqr(n)) If n Mod i = 0 Then s = 1 Exit For End If Next If s = 0 Then a = a & Str(n) & vbCrLf Next Text1.Text = aEnd Sub

    提问者：盛雪仁

    发布于2011-01-18

共1个回答
  • shenkan520 丨Lv 0
    暂停： Timer1.Enabled = FalseDim m As IntegerPrivate Sub Form_Load()m = 1End SubPrivate Sub Timer1_Timer()a = ""For n = m To 10000 Step 2s = 0For i = 2 To Int(Sqr(n))If n Mod i = 0 Thens = 1Exit ForEnd IfNextIf s = 0 ThenExit ForEnd IfNextIf n = 1 ThenText1.Text = 2ElseText1.Text = nEnd Ifm = n + 2End Sub
    +1 2011-01-18 举报
热门人气推荐
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。