其他答案

2005-11-02 10:45:11

• 完全可以简化一下，因为这个数只要满足除以4余三，必然满足除以2余一，所以只需这样：
  Private Sub Command1_Click()
  Dim i As Integer
  i=3 '3是第一个满足除以4余三的数
  do
  if i mod 2 = 1 then exit do
  i=i+4 '每加上4就满足条件
  loop
  msgbox "this number is " & i
  End Sub 
  虽然同样是九行但运行起来步骤要少得多，而且用的是do-loop循环，更科学一些
  

  全部
  

  S***

  2005-11-02 10:45:11

  94 36 评论

  分享
  提交评论