Как не пыталась решить,ничего не получается.Помогите,плиз! Вот шаблонFunction Size()
Dim count as integer
count=1
while cells (count+1.1)
<>" "
count=count+1
wend
size=count
end Function
Sub Bad(n as integer,k as integer)
k=0 for i=2 to n
if cells (i,2)=2 or cells (i,3)=2 or k=k+1
range (cells(k,6), cells(k,9))
value=range (cells(i,1), cells(i,4)) value
Sub main()
Dim n as integer, msg as string, mas integer
n=size()
msg="N= "& n-1
Msgbov (msg)
Call Bad (n,m)
msg = "Bad Student="& m
msg bx ( "Game Is Over!")
End Sub
Sub main()
Dim n as integer?msg as string, k as integer
ln as integer, l as string
n= size()
while 1
resp= InputBox("1-size,2 Bad,3_FirstLetter,Other-Quit")
Select Case resp
Case 1
msg Box("N="& n-1)
Case 2
Call Bad (n,k)
Case 3
Call Letter (n,l,ln)
Case Else
resp=msgbox ("Clean Results&",vb Yes,vbNO)
if resp =vb Yes them call clean (n , k, ln)
end if
Msg Box ("Game Over!")
Exit Sub
End Select
Wend
End Sub
Для матрицы:
Sub EntRand (n as integer, n as integer)
for i=1 to n
for j=1 to m
cells(i,j)= Iте (100*rnd)
next j
next i
msg ("Matrix Generated")
end Sub
Sub EntSelf(n as integer,m as integer)
cells (i,j) = inputbox("Element "&i&","&j&:")
Sub Diag (n as integer, m as integer)
for i=1 to n
cells(i,i).font,color=KGB(0,255,0)
next
end
А вот само задание:Вывести все столбцы матрицы,сумма которых положительна.Просуммировать элементы матрицы,содержащие цифру,вводимую с экрана по запросу пользователем,на остальных местах поставить нули.
