问个有关代码速度问题

jixu2008 · 发表于 2009-8-31 22:15:17

我最近做了个跟工作有关的自动计算软件，由于需要生成很多的随机数字，而且数字很不规范，用了很多个公式，都是在模块里public定义的。
启动画面很慢，我想事不是和我的public sub jisuan1（）过多有关？
比如：
public sub jisuan1()
for i =0 to 20
随机数字（i）=随机数字+20*rnd()
next i
end sub
public sub jisuan2()
for i =0 to 20
随机数字（i）=随机数字+20*rnd()
next i
end sub
 
public sub jisuan3()
for i =0 to 20
随机数字（i）=随机数字+20*rnd()
next i
end sub
 
……………………………………………………
 
public sub jisuan25()
for i =0 to 20
随机数字（i）=随机数字+20*rnd()
next i
end sub
 
这只是个示例，实际代码是不一样的，我想这个过程可以用其他的替代吗？
或者我怎么样才可以优化代码，使其速度能够快点？

Qxwlm · 发表于 2009-9-1 02:14:15

是否你的启动画面有大幅的图片、启动画面的Load过程有太多的对象加载？
或者
你把需要加载的对象、初始化都放到主程序中，单设置一个启动画面。
例如：Form1为启动窗体，Form2为主程序。工程的启动窗体为Form2
Privete sub Form2_Load()
   Form1.Show
   有关初始化的代码，对象的加载等
   Unload Form1
   Me.Show
End Sub

[此贴子已经被作者于2009-9-1 2:14:59编辑过]

jixu2008 · 发表于 2009-9-1 04:44:59

我的启动界面是frmsplash，有3个timer控件，其中检测注册表键值，然后才是主程序。
但我在模块内public了一些变量数组和过程。

Qxwlm · 发表于 2009-9-1 14:19:58

1、启动窗体：frmSplash，
   上面除了你的3个Timer控件外，再加两个Timer控件，名称为TimeLoad和TimeCheck，Enabled属性为Falsh，InterVal属性为10。
   一个Label控件，名称为labInfo
主程序窗体：假设为frmMain。
2、工程的启动窗体为frmSplash
3、代码：
frmSplash的代码：
Option Explicit Private intLoad As Integer Private blnLoad As Boolean '在你的注册表检测代码中,如果检测通过,则为真,反之,则为假，并且显示labInfo 
Private Sub Form_Load()    Me.Show    blnLoad = False    TimeLoad.Enabled = True End Sub
Private Sub TimeLoad_Timer()    intLoad = intLoad + 1    If intLoad >= 3 Then       TimeLoad.Enabled = False       frmInit    End If End Sub
Private Sub frmInit()    TimeCheck.Enabled = True    Timer1.Enabled = True    Timer2.Enabled = True    Timer3.Enabled = True    '其他的检测代码 End Sub
Private Sub TimeCheck_Timer()    If blnLoad = True Then
      TimeCheck.Enabled = False       frmMain.Show    End If End Sub
Private Sub labInfo_Click()    On Error Resume Next    Unload frmSplash    Set frmSplash = Nothing    Unload frmMain    Set frmMain = Nothing    End End Sub
'说明：在检测代码中，如果通过，则设置blnLoad = True ，反之，blnLoad = False，并且显示labInfo。
 
frmMain的代码：
 Private Sub Form_Load()    frmSplash.ZOrder    Me.Enabled = False    '其他的代码    Unload frmSplash    Set frmSplash = Nothing    Me.Enabled = True End Sub