-1

该值未分配给 lbl5 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim cc As String
    Dim an As String
    Dim da As Double
    Dim intam, tab As Double

    an = Val(txtan.Text)
    da = Val(txtxda.Text)
    cc = Val(txtcc.Text)


    If Val(txtan.Text) = "k" Then
        lbl5.Text = "hhhhhhhhhhhhhhh"
        intam = da * 0.05
    ElseIf an = "wanitha" Then
        intam = da * 0.06
    ElseIf an = "upahara" Then
        intam = da * 0.07


    End If

    tab = (da) + intam

End Sub
4

2 回答 2

2

来自 MSDN

Val 函数将字符串中包含的数字作为适当类型的数值返回。Val 函数在它无法识别为数字的一部分的第一个字符处停止读取字符串

这个条件怎么可能是真的？

If Val(txtan.Text) = "k" Then

你应该检查

If txtan.Text = "k" Then

这也不完全正确：

an = Val(txtan.Text)

应该

an = txtan.Text
于 2013-02-05T12:40:53.660 回答
0

在该行中放置一个断点：

line If Val(txtan.Text) = "k" Then

并检查comming值是否真的是“k”

你也不需要用val(txtan.Text)，txttan.Text就够了

请在下一个问题中更具体

于 2013-02-05T12:41:28.293 回答