Ова што тие <> само Visual Basic се користи или кај сите јазици?Код:Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim linii() As String = TextBox1.Lines 'прва проверка - број на линии If linii.Count <> 3 Then MsgBox("Треба да внесете точно 3 линии") Exit Sub End If 'втора проверка - број на броеви по линија For i = 1 To 3 Dim brojkiArr() As String brojkiArr = linii(i - 1).Split(" ") If brojkiArr.Length <> 5 Then MsgBox("Во линијата број " & i & " треба да внесете точно 5 бројки") Exit Sub End If For x = 0 To brojkiArr.Length - 1 If Not IsNumeric(brojkiArr(x)) Then MsgBox("Во линијата број " & i & " има внесено небројна вредност") Exit Sub End If Next 'трета проверка - ред 3 позиција 2 If i = 3 And brojkiArr(1) <> 9 Then MsgBox("На втората позиција во линија број 3 треба да го внесете бројот 9") Next End Sub
... за превод мислам дека ќе можеш да се снајдеш ...
Btw јас би користел !=
