Что мне вставить кнопку отправки, если мне нужны переключатели, чтобы узнать правильный ответ от доступа?
Что я должен вставить в кнопку "Отправить", если я хочу, чтобы переключатели знали свой правильный ответ из 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