Visual BasicのIfとElseステートメント

Question

これらのifステートメントとelseステートメントをVisual Basic 2010 Expressで整理する必要があります。おそらくコードからわかるように、プログラムが正しく動作しているときは、プログラムは外部でテキストファイルにあるデータを表示しなければなりません。このデータが見つからない場合は、ラベルにエラーメッセージが表示されます。 助けてくれてありがとう。

コード：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    Dim filename As String = "..\..\usernamepassword.txt" 
    Dim objreader As New System.IO.StreamReader(filename) 
    Dim contents As String 
    Dim check As String 
    Dim checkfile As New System.IO.StreamReader("..\..\checkfile.txt") 
    check = checkfile.ReadToEnd 
    For i As Integer = 1 To check 
     contents = objreader.ReadLine 
     Dim data As New List(Of String)(contents.Split(",")) 
     If forename.Text = data(2) Then 
    'first if statement is here \/ 
      If surname.Text = data(3) Then 
       fullname.Text = (data(2) & " " & data(3)) 
       dob.Text = data(4) 
       phone.Text = data(5) 
       address.Text = data(6) 
       password.Text = data(1) 
      'else statement \/ 
      Else 
       Label2.Text = "Sorry, no result found for this student." 
       Label5.Text = "Please note this system is caps sensitive." 
      End If 
     End If 
    Next i 
    Dim s As String = "" 
    forename.Text = s 
    surname.Text = s 
End Sub 

エンドクラスは

Answer 1

あなたはそれが整数でなければなりません場合、文字列として宣言されてきたこの

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
Dim filename As String = "..\..\usernamepassword.txt" 
Dim found as Boolean = False 
Dim objreader As New System.IO.StreamReader(filename) 
Dim contents As String 
Dim check As String 
Dim checkfile As New System.IO.StreamReader("..\..\checkfile.txt") 
check = checkfile.ReadToEnd 
For i As Integer = 1 To check 
    contents = objreader.ReadLine 
    Dim data As New List(Of String)(contents.Split(",")) 
    If forename.Text = data(2) Then 
'first if statement is here \/ 
     If surname.Text = data(3) Then 
      fullname.Text = (data(2) & " " & data(3)) 
      dob.Text = data(4) 
      phone.Text = data(5) 
      address.Text = data(6) 
      password.Text = data(1) 
      found = True 
      Exit For 
     End If 
    End If 
Next i 
If found = False Then 
    Label2.Text = "Sorry, no result found for this student." 
    Label5.Text = "Please note this system is caps sensitive." 
End If 
Dim s As String = "" 
forename.Text = s 
surname.Text = s 
End Sub 

Answer 2

チェックのようにそれを処理する必要があります。 オンに厳密に設定してオフを推測する