您所在位置：主题：想请教一个问题...
chenjiawen
[专家分：0] 发布于 2008-04-06 08:45:00
想请教一个问题...
Private Sub Command1_Click()
Dim firstmi As Currency
Label2.Visible = True
label2.caption="正在破解密码..."
For firstmi = 0 To 9999 Step 0.1
Text2.Text = firstmi
If mima = firstmi Then
Label2.Caption = "密码如下"
Text2.Text = firstmi
Exit For
End If
Next
End Sub
怎么我调试的时候，label2的caption不是“正在破解密码...”，text2.text也不是随着firstmi一直在变呢，一直到mima=firstmi时，label2才显示出来
大家可以帮我看看有什么问题吗？谢谢了！
Private Sub Command1_Click()
Dim firstmi As Currency
Label2.Visible = True
label2.caption="正在破解密码..."
For firstmi = 0 To 9999 Step 0.1
Text2.Text = firstmi
If mima = firstmi Then
Label2.Caption = "密码如下"
Text2.Text = firstmi
Exit For
End If
Next
End Sub
怎么我调试的时候，label2的caption不是“正在破解密码...”，text2.text也不是随着firstmi一直在变呢，一直到mima=firstmi时，label2才显示出来
大家可以帮我看看有什么问题吗？谢谢了！