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.
Данные не помещаются в ячейку
Объяснение:
В Microsoft Excel была такая ошибка