Answer to Question #267353 in Visual Basic for Maika Togavuto

Question

The first file contains the answers for the 20 questions and is called Answer.txt. The format of this file is TFTTTTTTFFTFTFTTTTFF.

Each character is a solution for the exam. The first character being the solution for question #1 and the last character the solution for question #20 respectively. 

Create a MainMenu form. On this form implement the following functionality: a) Put a button titled Open Answers File. When this button is clicked; open Answer.txt, and read and store the answers in an array of Strings. Close this file

Answer 1

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.btnOpenAnswersFile = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'btnOpenAnswersFile
        '
        Me.btnOpenAnswersFile.Location = New System.Drawing.Point(31, 33)
        Me.btnOpenAnswersFile.Name = "btnOpenAnswersFile"
        Me.btnOpenAnswersFile.Size = New System.Drawing.Size(125, 28)
        Me.btnOpenAnswersFile.TabIndex = 0
        Me.btnOpenAnswersFile.Text = "Open Answers File"
        Me.btnOpenAnswersFile.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(225, 104)
        Me.Controls.Add(Me.btnOpenAnswersFile)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub
    Friend WithEvents btnOpenAnswersFile As System.Windows.Forms.Button

End Class

Imports System.IO


Public Class Form1
    Private answers(100) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load






    End Sub


    Private Sub btnOpenAnswersFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenAnswersFile.Click
        Dim line As String
        Dim FilePath As String = "Answer.txt"
        Using reader As StreamReader = New StreamReader(FilePath)
            ' Read one line from file
            line = reader.ReadLine()
        End Using
        Dim c As Integer = 0
        For Each l In line
            answers(c) = l
            c += 1
        Next
    End Sub
End Class