Question

该值未分配给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

Answer 1

From MSDN

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

这种情况怎么可能是真的？

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

您应该查看

If txtan.Text = "k" Then

这也不太对劲：

an = Val(txtan.Text)

应该是

an = txtan.Text

Answer 2

在行中设置一个断点：

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

并检查提交值是否真的是“k”

你也不需要使用Val（txtan.Text），txttan.Text就够了

请在接下来的问题中提供更具体的信息

该值未分配给vb.net中的标签

2 个答案: