Как правильно написать код? - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д