Как правильно написать код? - VB (171911)
Формулировка задачи:
Необходимо созтать в блокноте 2 вопроса
(например -1.монокристал -это a)одиночный кристал; b)кристал состоящий из большого количества кристалов; c)кристал состоящий из 2-х кристалов
2. 2+2*2=:a)4 b)8; c)6 ),
затем сделать так, чтобы выбрав один из ответов в VB на экран выводилось количество правильных ответов и количество заработанных балов!
Решение задачи: «Как правильно написать код?»
textual
Листинг программы
Dim arr1, arr2
Private Sub Command2_Click()
If MsgBox("Выйти?", vbQuestion + vbOKCancel, "Выход") = vbOK Then End
End Sub
Private Sub Form_Load()
Dim f As Integer, temp As Variant
f = FreeFile
Open "C:\1.txt" For Input As #f
Input #f, temp
Close #f
question = Split(temp, "|")
arr1 = Split(question(0), ";")
arr2 = Split(question(1), ";")
Label1.Caption = arr1(0)
Label2.Caption = arr2(0)
Option1.Caption = arr1(1)
Option2.Caption = arr1(2)
Option3.Caption = arr1(3)
Option4.Caption = arr2(1)
Option5.Caption = arr2(2)
Option6.Caption = arr2(3)
Option1.Value = True: Option4.Value = True
End Sub
Private Sub Command1_Click()
Dim sum As Integer, count As Integer
Dim f, s
f = arr1(4): s = arr2(4)
Select Case f
Case 1
If Option1.Value = True Then sum = sum + 2: count = count + 1
Case 2
If Option2.Value = True Then sum = sum + 2: count = count + 1
Case 3
If Option3.Value = True Then sum = sum + 2: count = count + 1
End Select
Select Case s
Case 1
If Option4.Value = True Then sum = sum + 2: count = count + 1
Case 2
If Option5.Value = True Then sum = sum + 2: count = count + 1
Case 3
If Option6.Value = True Then sum = sum + 2: count = count + 1
End Select
MsgBox "Сумма очков = " & sum & Chr(13) & "Количество правильных ответов - " & count
End Sub