Что мне вставить кнопку отправки, если мне нужны переключатели, чтобы узнать правильный ответ от доступа?

Что я должен вставить в кнопку "Отправить", если я хочу, чтобы переключатели знали свой правильный ответ из Access, и после этого появляется сообщение msgbox, чтобы показать результат?

Я не очень уверен, что положить, поэтому я просто положил все.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click


    Dim score As Integer
    Dim total As Integer
    'Dim correct As String
    Dim answer As String = " select* correct from Questions "
    Dim conn As New OleDbConnection
    Dim cmd As New Data.OleDb.OleDbCommand

    conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=C:\Users\Joyce\Documents\Visual Studio 2010\Projects\QUESTION\QUESTION\bin\Debug\LoginDATABASE.mdb"
    conn.Open()


    Dim number As String = " select* correct from Questions "

    'answer = 0

    'For number = 1 To 4

    '    answer = answer + number

    'Next number


    'If number = answer Then
    '    score = score + 1
    'ElseIf number <> answer Then

    'End If
    'If score > 0 Then
    '    score = score - 1
    '    total = total - 1
    'End If

    'If total = 2 Then
    '    total = 2
    '    score = score + 1
    'End If


    If (RadioButton1.Checked = True) Then answer = True
    total = score + 1
    End

    If (RadioButton2.Checked = True) Then answer = True
    total = score + 1
    End

    If (RadioButton3.Checked = True) Then answer = True
    total = score + 1
    End

    If (RadioButton4.Checked = True) Then answer = True
    total = score + 1
    End

    MsgBox("Your result is  " & total)

End Sub

0 ответов

Другие вопросы по тегам