Private Sub Label4_Click()
txtsum = Val(txtPrice) * Val(txtQYT)
If txtsum > 200 Then
txtdiscount = Val(txtsum) * 0.1
txtrsum = Val(txtsum) - Val(txtdisount)
Else
txtrsum = txtsum
End If
End Sub
启动时，输入数字，然后点击结果，好久没出来结果，请求大家看看，不知道哪里出了问题？点了没反应结果是多少

"txtdisount" not Initialize Value ?  or "txtdiscount" = "txtdisount" ?

Private Sub Label4_Click()

    txtsum.Text = Val(txtPrice.Text) * Val(txtQYT.Text)
    If Val(txtsum.Text) > 200 Then
        Labeltxtsum.Caption = txtsum.Text     'Test
        AAA.Caption = txtsum.Text              'Test
        txtdiscount.Text = Val(txtsum.Text) * 0.1
        txtdisount.Text = 50        'Initialize
        txtrsum.Text = Val(txtsum.Text) - Val(txtdisount.Text)
    Else
        Labeltxtsum.Caption = 0: AAA.Caption = 0          'Test
        txtrsum.Text = txtsum.Text
    End If
   
End Sub

   


[ 本帖最后由 wube 于 2011-6-7 08:01 编辑 ]