Программирование в vusual basic! написать программу, в которой пользователь вводит матрицу 3х3, и если в ней есть хотя бы один ноль, то программа заменяет все ячейки на цифру 7. если нет - то массив остается прежним.
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 n=100; var ar:array of array of integer; ars:array of array of string; i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string); var i,j:integer; begin; for i:=1 to n do begin; for j:=1 to n do begin; ar[i,j]:=random(9); str(ar[i,j],ars[i,j]); end; end; end;
procedure burning(ars:array of array of string); var i,j:integer; t:text; begin; assign(t,'text.txt'); rewrite(t); for i:=1 to n do begin; writeln(t,' '); for j:=1 to n do write(t,ars[i,j],' '); end; end;
begin; randomize; setlength(ar,n+1); setlength(ars,n+1); for i:=1 to n do begin; setlength(ar[i],n+1); setlength(ars[i],n+1); end; complection(ar,ars); burning(ars); end.
1)var ar:array of integer; max,min,s,i,n,maxi,mini:integer; begin; randomize; max:=-1; min:=101; readln(n); setlength(ar,n+1); writeln('Array:'); for i:=1 to n do begin; ar[i]:=random(100); write(ar[i]:4); if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; if min>ar[i] then begin; min:=ar[i]; mini:=i; end; s:=s+ar[i]; end; ar[maxi]:=s; ar[mini]:=s; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end. 2)var ar:array of integer; k,h,i,s:integer; f:real; begin; randomize; readln(h); setlength(ar,h+1); writeln('Array:'); for i:=1 to h do begin; ar[i]:=random(100)-50; write(ar[i]:4); if (ar[i]>0) and (ar[i] mod 2=0) then begin; inc(k); s:=s+ar[i]; end; end; f:=s/k; writeln; writeln('Result:',f); end.
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