Как правильно написать код? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы