Программа тестирования знаний по столицам разных стран - VB
Формулировка задачи:
В общем над вот это реализовать:
Программа задает вопрос – название страны и ожидает ответа – название столицы.
Пользователь вводит название.
Программа задает следующий вопрос и.т.д.
Тестирование продолжается до первого неверного ответа. Страны выбираются случайным образом из справочника.
Задача – получить как можно больше правильных ответов.
Вкратце: txt-шник, в нем страны и столицы(столицы может в дуром, фиг знает) надо чтоб введенная столица совпадала со страной
Решение задачи: «Программа тестирования знаний по столицам разных стран»
textual
Листинг программы
Option Explicit Option Compare Text Dim rAns As Integer Dim a() As String Private Sub Form_Activate() Dim s As String Dim ff As Integer Dim Ans As String, nQ As Integer ff = FreeFile Open App.Path & "\CC.txt" For Input As #ff s = Input$(LOF(ff), ff) Close #ff a = Split(s, vbNewLine) Randomize Do nQ = Int(Rnd * (UBound(a) + 1)) Ans = InputBox("Страна - " & Split(a(nQ), vbTab)(0) & vbCrLf & "Введите столицу.", "Вопрос") If Ans = Split(a(nQ), vbTab)(1) Then 'MsgBox "Правильно" rAns = rAns + 1 Else MsgBox "Неправильно!" & vbCrLf & "Всего правильных ответов - " & rAns Exit Do End If Loop Unload Me End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д