rit. List (0) (5, i)=CDbl (TxtBall. Text). ListIndex=2. Caption=LstVopr. List (2) LstVopr. ListIndex=2 Then. ListIndex=0. Caption=LstKrit. List (0) (6, i)=CDbl (TxtBall. Text). ListIndex=3. Caption=LstVopr. List (3) LstVopr. ListIndex=3 Then. ListIndex=0. Caption=LstKrit. List (0) (7, i)=CDbl (TxtBall. Text). ListIndex=4. Caption=LstVopr. List (4) LstVopr. ListIndex=4 Then. ListIndex=1. Caption=LstKrit. List (1) (8, i)=CDbl (TxtBall. Text). ListIndex=5. Caption=LstVopr. List (5) LstVopr. ListIndex=5 Then. ListIndex=1. Caption=LstKrit. List (1) (9, i)=CDbl (TxtBall. Text). ListIndex=6. Caption=LstVopr. List (6) LstVopr. ListIndex=6 Then. ListIndex=1. Caption=LstKrit. List (1) (10, i)=CDbl (TxtBall. Text). ListIndex=7. Caption=LstVopr. List (7) LstVopr. ListIndex=7 Then. ListIndex=1. Caption=LstKrit. List (1) (11, i)=CDbl (TxtBall. Text). ListIndex=8. Caption=LstVopr. List (8) LstVopr. ListIndex=8 Then. ListIndex=1. Caption=LstKrit. List (1) (12, i)=CDbl (TxtBall. Text). ListIndex=9. Caption=LstVopr. List (9) LstVopr. ListIndex=9 Then. ListIndex=2. Caption=LstKrit. List (2) (13, i)=CDbl (TxtBall. Text). ListIndex=10. Caption=LstVopr. List (10) LstVopr. ListIndex=10 Then. ListIndex=2. Caption=LstKrit. List (2) (14, i)=CDbl (TxtBall. Text). ListIndex=11. Caption=LstVopr. List (11) LstVopr. ListIndex=11 Then. ListIndex=2. Caption=LstKrit. List (2) (15, i)=CDbl (TxtBall. Text). ListIndex=12. Caption=LstVopr. List (12) LstVopr. ListIndex=12 Then. ListIndex=2. Caption=LstKrit. List (2) (16, i)=CDbl (TxtBall. Text). ListIndex=13. Caption=LstVopr. List (13) LstVopr. ListIndex=13 Then. ListIndex=2. Caption=LstKrit. List (2) (17, i)=CDbl (TxtBall. Text). ListIndex=14. Caption=LstVopr. List (14) LstVopr. ListIndex=14 Then. ListIndex=3. Caption=LstKrit. List (3) (18, i)=CDbl (TxtBall. Text). ListIndex=15. Caption=LstVopr. List (15) LstVopr. ListIndex=15 Then. ListIndex=3. Caption=LstKrit. List (3) (19, i)=CDbl (TxtBall. Text). ListIndex=16. Caption=LstVopr. List (16) LstVopr. ListIndex=16 Then. ListIndex=3. Caption=LstKrit. List (3) (20, i)=CDbl (TxtBall. Text). ListIndex=17. Caption=LstVopr. List (17) LstVopr. ListIndex=17 Then. ListIndex=3. Caption=LstKrit. List (3) (21, i)=CDbl (TxtBall. Text). ListIndex=18. Caption=LstVopr. List (18) LstVopr. ListIndex=18 Then. ListIndex=3. Caption=LstKrit. List (3) (22, i)=CDbl (TxtBall. Text). ListIndex=19. Caption=LstVopr. List (19) LstVopr. ListIndex=19 Then. ListIndex=4. Caption=LstKrit. List (4) (23, i)=CDbl (TxtBall. Text). ListIndex=20. Caption=LstVopr. List (20) LstVopr. ListIndex=20 Then. ListIndex=4. Caption=LstKrit. List (4) (24, i)=CDbl (TxtBall. Text). ListIndex=21. Caption=LstVopr. List (21) LstVopr. ListIndex=21 Then. ListIndex=4. Caption=LstKrit. List (4) (25, i)=CDbl (TxtBall. Text). ListIndex=22. Caption=LstVopr. List (22) LstVopr. ListIndex=22 Then. ListIndex=4. Caption=LstKrit. List (4) (26, i)=CDbl (TxtBall. Text). ListIndex=23. Caption=LstVopr. List (23) LstVopr. ListIndex=23 Then. ListIndex=4. Caption=LstKrit. List (4) (27, i)=CDbl (TxtBall. Text). ListIndex=24. Caption=LstVopr. List (24) LstVopr. ListIndex=24 Then. ListIndex=4. Caption=LstKrit. List (4) (28, i)=CDbl (TxtBall. Text). SetFocus=i + 1 Увага! Почінається Введення даних наступної анкети
LstVopr. ListIndex=0. Caption=LstVopr. List (0). ListIndex=0. Caption=LstKrit. List (0) End IfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIfIf. Text= raquo ;. SetFocusSubSub cmdExit_Click () Me ( A50 ). Select
End Sub
