Если ячейка, в которую была введена формула или числовое значение, содержит символы типа , значит: * 1.Результат вычисления получится отрицательным 2.Данные в ячейке зашифрованы 3.Данные не помещаются в ячейку

Данные не помещаются в ячейку

Объяснение:

В Microsoft Excel была такая ошибка

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s(9) As String
        Dim b As Boolean
        TextBox1.Multiline = True
        TextBox1.Height = 100
        For i = 1 To 9
            s(i) = InputBox("Введите элемент " & i)
            If s(i) = "0" Then b = True
        Next
        For i = 1 To 9
            If b Then s(i) = "7"
        Next
        For i = 1 To 9
            TextBox1.Text = TextBox1.Text & s(i) & Chr(32)
            If i = 3 Or i = 6 Then _
                TextBox1.Text = TextBox1.Text & vbCrLf
        Next
    End Sub
End Class

работает в Visual Studio 2010 (не думаю, что вы в VB6 пишите)
перед запуском, киньте на форму TextBox

Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;pG,pP:double;m:boolean;begin
write('Введите размер массива n');Readln(n);pG:=1;pP:=1;
for i:=1 to n do begin
for j:=1 to n do begin
Readln(D[i,j]);//D[i,j]:= random(35)-15;end;end;writeln;
for i:=1 to n do beginfor j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i < n-j+1 then begin write(D[i,j]:4); pP:= pP * D[i,j];end else write(' ':4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin 
if i <j then begin write(D[i,j]:4); pG:= pG * D[i,j];end else
write(' ':4);end;writeln;end;writeln;
writeln('произведение элементов массива над главной диагональю  =',pG);writeln('произведение элементов массива над побочной диагональю  =',pP);if pG = pP then m:= true
else m:= false;writeln('Высказывание =', m);end.