VB.NETのIFステートメント

Public Class Form1
    Dim StandardPrice As String = "3,600"
    Private Sub initProc(sender As Object, e As EventArgs) Handles　MyBase.Load
        lblStandardPrice.Text = StandardPrice


    End Sub

    Private Sub Recalc(sender As Object, e As EventArgs) Handles rbNone.CheckedChanged, rbStudent.CheckedChanged, rbHolder.CheckedChanged
        Dim SalesPrice As Integer

        If rbNone.Checked Then SalesPrice = CInt(StandardPrice)
        ElseIf rbStudent.Checked Then
        SalesPrice = CInt(StandardPrice) * 0.9
        Else SalesPrice = CInt(StandardPrice)
        End If

        lblSalesPrice.Text = SslesPrice + "円"



    End Sub
End Class
```![イメージ説明](4836c55f7b7251f59ae728aa8ca81a8d.jpeg)### 前提・実現したいこと

VB.NETで上記の画像のプログラムを作っています。



### 発生している問題・エラーメッセージ
'ElseIf' の前には、対応する 'If' または 'ElseIf' を指定しなければなりません。
'Else' の前には、対応する 'If' または 'ElseIf' を指定しなければなりません。	
'ステートメントの終わりを指定してください。
'EndIf' の前には、対応する 'If' または 'ElseIf' を指定しなければなりません。
'lblSalesPrice' は宣言されていません。アクセスできない保護レベルになっています。
'SslesPrice' は宣言されていません。アクセスできない保護レベルになっています。	

### 該当のソースコード




### 試したこと

If ... Then...
ElseIf ... Then...
Else...
EndIf
と入力したつもりなのですがエラーになります。

また、Dim StandardPrice As String = "3,600" とDim SalesPrice As Integerと定義したのですが、不具合が起こっているようです。

さらに、ステートメントの終わりを指定してください。もなぜなのかわかりません。

初歩的なミスなのだと思いますが宜しくお願い致します。


### 補足情報（FW/ツールのバージョンなど）

開発ソフトはVisulaStudio2017を使用しています。

y_waiwai

2019/03/17 01:26

このままではコードが見づらいので、質門を編集し、<code>ボタンで、出てくる’’’の枠の中にコードを貼り付けてください

Taichijava

2019/03/17 01:32

質問を修正してみました。ご指摘ありがとうございました。

行動規範の内容に同意します

回答1件

ベストアンサー

If...Then...Else ステートメント
こちらにあるように、複数行での記述と1行での記述に文法上の違いがあります。

VB.NET
1If rbNone.Checked Then
2    SalesPrice = CInt(StandardPrice)
3ElseIf rbStudent.Checked Then
4    SalesPrice = CInt(StandardPrice) * 0.9
5Else 
6    SalesPrice = CInt(StandardPrice)
7End If

このように記述してください。