VB中如何提示程序正在计算?

在开始运算前先将有关控件disable,再放一个label显示正在计算机.
等运算完了,再恢复即可.
具体的控件与代码你自己扩充

Option Explicit
Dim i As Single
Dim a As Single

Private Sub Command1_Click()
a = 100000
Label1.Caption = "程序正在计算"
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
'放计算代码，例：
For i = 1 To 100000
a = a - 1
Next
Label1.Caption = "计算结束。"
End Sub

Private Sub Timer1_Timer()
Call Command2_Click
Timer1.Enabled = False
End Sub

一般此类计算发生于循环代码，数据遍历检索等，建议用进度条提示进度：

Option Explicit
Dim n As Single
Dim a As Single

Private Sub Command1_Click()
a = 0
For n = 1 To 1000000
a = a + 1
ProgressBar1.Value = (a / 1000000) * 100
Next
Label1.Caption = "计算结束。"
End Sub

以下给出一段实用数据查询代码的一部分，注意ProgressBar1.Visible的变化，仅供参考：
Private Sub Command12_Click()
,其它查询代码略
ProgressBar1.Visible = T