Помогите пожалуста, как будет выглядит этот скрипт который написан на VB
Dim i As Integer
Private Sub Command1_Click()
i = 0
If Option3.Value = True Then
i = i + 1
End If
If Option6.Value = True Then
i = i + 1
End If
If Option9.Value = True Then
i = i + 1
End If
If Option10.Value = True Then
i = i + 1
End If
If Option13.Value = True Then
i = i + 1
End If
If Option15.Value = True Then
i = i + 1
End If
If Option19.Value = True Then
i = i + 1
End If
If Option23.Value = True Then
i = i + 1
End If
If Option25.Value = True Then
i = i + 1
End If
If Option29.Value = True Then
i = i + 1
End If
MsgBox (i)
Select Case i
Case 10: MsgBox ("Вам 5")
Case 9: MsgBox ("Вам 4")
Case 8: MsgBox ("Вам 4")
Case 7: MsgBox ("Вам 4")
Case 6: MsgBox ("Вам 3")
Case 5: MsgBox ("Вам 3")
Case 4: MsgBox ("Вам 3")
Case 3: MsgBox ("Вам 2")
Case 2: MsgBox ("Вам 2")
Case 1: MsgBox ("Вам 2")
Case 0: MsgBox ("Вам 2")
End Select
End Sub
в JS?