-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

来る値が本当に「k」かどうかを確認します

また、Val(txtan.Text) を使用する必要はありません。txttan.Text で十分です。

次の質問で具体的に教えてください

于 2013-02-05T12:41:28.293 に答える