а формою 4
Option ExplicitarrVopros (10), arrwar1 (10), arrwar2 (10), arrwar3 (10), arrwar4 (10), arrPraw (10) As Stringk As Varianti, q, b, fnum, z As Integerfpatch As String, txt As String, ALLtxt As String
Sub Kontrol () i=0 To 3: Opt (i) .Value=False: Next i.Caption=q.Caption=arrVopros (q) (0) .Caption=arrwar1 (q) (1) .Caption=arrwar2 (q) (2) .Caption=arrwar3 (q) (3) .Caption=arrwar4 (q)=arrPraw (q) SubSub Command1_Click (). Caption= Правильних відповідей amp; bb lt;=3 Then Label2.Caption= Незадовільно amp; Оцінка amp; 2b lt;=6 And b gt; 3 Then Label2.Caption= Задовільно amp; Оцінка amp; 3b gt;=7 And b lt;=8 Then Label2.Caption= Добре amp; Оцінка amp; 4b gt; 8 Then Label2.Caption= Відмінно amp; Оцінка amp; 5Sub
Sub Command2_Click () Sub
Sub Opt_Click (Index As Integer) i=0 To 3: Opt (i) .Value=False: Next i
q=0: b=0Sub
