[ali.alfoly]

اتفضل

PHP كود :

Dim msgStr As String = ""
        Dim X(20) As Single

        For I As Single = InputBox("ادخل عدد القيم") To 1 Step -1
            X(I) = InputBox("ادخل القيم")

            msgStr = msgStr & X(I)
        Next I
        MsgBox(msgStr)