visual basic - помощ!

[kalinkata]

Здравейте! Имам домашно да направя тест, който изпитва потребителя и при верен отговор добавя точка като накрая с MsgBox се показва броят на точките. По долу ще напиша какво имаме като опътване:

Трябват ни 3 масива

 

Dim vuprosi

Vuprosi = Array("Португалия", "Германия" и т.н)

Dim Otgovori

Otgovori = Array("Лисабон", "Берлин" и т.н)

 

3 masiv е с отговорите на потребителя

otgovoripotr(50) as string

 

n = 0

for i = 0 to 9

otgpotr(i) = InputBox("Коя е столицата на" + vuprosi(i))

If otgpotr(i) = otgovori(i)

n = n + 1

End If

Next i

MsgBox("Верни отговори" + str(n))

 

 

 

това съм си записала като записки докато даваха домашното; пробвах писах разни работи, но не се получава

Много ви моля да ми помогнете! Мс предварително...

[panevdd]

Разгледай WSH - Windows Script Host и Visual Basic Section - може да ти свършат работа.

[crio]

Dim vuprosi, otgovori, otgovor, n, i
n = 0
vuprosi = Array("Germany", "England", "Italy", "Bulgaria")
otgovori = Array("BERLIN", "LONDON", "ROME", "SOFIA")
For i = LBound(vuprosi) To UBound(vuprosi)
otgovor = InputBox("Capital of " & vuprosi(i) & " is:", "Question")
If (UCase(otgovor) = otgovori(i)) Then n = n + 1
Next
MsgBox ("You answered correct to " & n & " question(s).")

[kalinkata]

Мерсиии много!