Advertisement
MadCortez

Untitled

Apr 13th, 2022
1,012
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub primer2()
  2.     Dim a(1 To 4, 1 To 3) As Integer
  3.     For i = 1 To 4 Step 1
  4.         For j = 1 To 3 Step 1
  5.             a(i, j) = InputBox("")
  6.             Next j
  7.         Next i
  8.     Dim x As Integer
  9.     Dim y As Integer
  10.     x = InputBox("Ââåäèòå X: ")
  11.     y = InputBox("Ââåäèòå I: ")
  12.     For i = 1 To 3 Step 1
  13.         If a(y, i) > x Then
  14.             a(y, i) = x
  15.         End If
  16.         Next i
  17.     For i = 1 To 4 Step 1
  18.         For j = 1 To 3 Step 1
  19.             MsgBox ("" & a(i, j))
  20.             Next j
  21.         Next i
  22. End Sub
  23.  
Advertisement
RAW Paste Data Copied
Advertisement