Суммирует два массива во второй

Private Sub Command1_Click()

Dim A(5, 5) As Integer

Dim B(5, 5) As Integer

For i = 1 To 5

For k = 1 To 5

A(i, k) = 10

B(i, k) = 20

Next k

Next i

For i = 1 To 5

For k = 1 To 5

B(i, k) = A(i, k) + B(i, k)

Print B(i, k);

Next k

Print

Next i

End Sub

Написать функцию которая вычисляет объем цилиндра параметрами функциями должны быть радиус и высота цилиндра

Private Sub Command1_Click()

A = InputBox("радиус")

B = InputBox("высота")

Print V(A, B)

End Sub

Function V(A, B)

P = 3.14

V = P * (A * A) * B

End Function

Написать функцию которая возвращает максимальное из двух целых чисел полученных в качестве аргумента

Private Sub Command1_Click()

A = InputBox("радиус")

B = InputBox("высота")

Print Max(A, B)

End Sub

Function Max(A, B)

If A > B Then Max = A Else Max = B

End Function

Из 6 чисел выстраивает по убыванию

Private Sub Command1_Click()

a = 5

b = 6

c = 8

d = 3

e = 7

k = 2

If a > n Then n = a

If b > n Then n = b

If c > n Then n = c

If d > n Then n = d

If e > n Then n = e

If k > n Then n = k

Print n

If a > m And a < n Then m = a

If b > m And b < n Then m = b

If c > m And c < n Then m = c

If d > m And d < n Then m = d

If e > m And e < n Then m = e

If k > m And k < n Then m = k

Print m

If a > j And a < m Then j = a

If b > j And b < m Then j = b

If c > j And c < m Then j = c

If d > j And d < m Then j = d

If e > j And e < m Then j = e

If k > j And k < m Then j = k

Print j

If a > p And a < j Then p = a

If b > p And b < j Then p = b

If c > p And c < j Then p = c

If d > p And d < j Then p = d

If e > p And e < j Then p = e

If k > p And k < j Then p = k

Print p

If a > l And a < p Then l = a

If b > l And b < p Then l = b

If c > l And c < p Then l = c

If d > l And d < p Then l = d

If e > l And e < p Then l = e

If k > l And k < p Then l = k

Print l

If a > s And a < l Then s = a

If b > s And b < l Then s = b

If c > s And c < l Then s = c

If d > s And d < l Then s = d

If e > s And e < l Then s = e

If k > s And k < l Then s = k

Print s

End Sub

Четыре дуги

Dim pi!

Private Sub Command1_Click()

p1.Cls

pi = 3.14159261

p1.Scale (-100, 100)-(100, -100)

p1.Line (-75, 0)-(75, 0), vbRed

p1.Line (0, 75)-(0, -75), vbRed

p1.Line (75, 0)-(72, 2), vbRed

p1.Line (75, 0)-(72, -2), vbRed

p1.Print "x"

p1.Line (0, 75)-(-2, 72), vbRed

p1.Line (0, 75)-(2, 72), vbRed

p1.Print "y"

p1.Circle (0, 50), 40, vbGreen, pi, 2 * pi

p1.Circle (0, -50), 40, vbGreen, 2 * pi, pi

p1.Circle (-50, 0), 40, vbGreen, 3 * pi / 2, pi / 2

p1.Circle (50, 0), 40, vbGreen, pi / 2, 3 * pi / 2

End Sub

выдает "есть" или "нет" в предложении слово с данной буквой!

S = "Барт воскликнул карамба"

J = " "

A = InputBox("Введите идентификационный номер")

K = Len(S)

For i = 1 To Len(S)

If Mid(S, i, 1) = A Then K = 1

Next i

If K = 1 Then Print "есть" Else Print "нет"

Вводишь букву считает количество букв в предложении и выводит их

S = "Барт воскликнул карамба"

A = InputBox("Введите идентификационный номер")

For i = 1 To Len(S)

If Mid(S, i, 1) = A Then

K = K + 1

End If

Next i

Print K

Переворачивает слово наоборот

A = InputBox("Введите идентификационный номер")

For i = Len(A) To 1 Step -1

Print Mid(A, i, 1);

Next i

Заполняет и выдает двумерный массив 20-30 цифрами 666

Dim A(30, 20) As Integer

For i = 1 To 20

For j = 1 To 30

A(j, i) = 666

Next j

Next i

For i = 1 To 20

For j = 1 To 30

Print A(j, i);

Next j

Print

Next i

Заполняет и выдает двумерный массив 20-30 и заполняет весь столбец через один единицами

Dim A(30, 20) As Integer

For i = 1 To 20

For j = 1 To 30 Step 2

A(j, i) = 1

Next j

Next i

For i = 1 To 20

For j = 1 To 30

Print A(j, i);

Next j

Print

Next i

Заполняет массив 10 на 10 диагоналями накрест единицой

Dim A(10, 10) As Integer

For j = 1 To 10

A(j, j) = 1

Next j

For j = 1 To 10

A(11 - j, j) = 1

Next j

For i = 1 To 10

For j = 1 To 10

Print A(j, i);

Next j

Print

Next i

Заполняет и выдает двумерный массив 20-30 и заполняет весь столбец через один единицами и строчку единицами через ноль

Dim A(30, 20) As Integer

For i = 1 To 20 Step 2

For j = 1 To 30

A(j, i) = 1

Next j

Next i

For i = 1 To 20

For j = 1 To 30 Step 2

A(j, i) = 1

Next j

Next i

For i = 1 To 20

For j = 1 To 30

Print A(j, i);

Next j

Print

Next i

Таблица умножения 7*(1-10)=(7-70) вниз в столбец

Dim A As Single

Dim K As Single

For A = 0 To 10 Step 1

Print "7 X"; A; "="; 7 * A

Next A

Таблица умножения вся в две строчки

Dim A As Single

Dim N As Single

For A = 0 To 10 Step 1

For N = 1 To 5 Step 1

Print N; "X"; A; "="; N * A,

If N = 5 Then Print

Next N

Next A

Print " "

For A = 0 To 10 Step 1

For N = 6 To 10 Step 1

Print N; "X"; A; "="; N * A,

If N = 10 Then Print

Next N

Next A

Массив из 10 символов рандомом+1 символ меняется на 2 и наоборот

Dim A(10) As Integer

Dim H As Integer

For i = 1 To 10

A(i) = Int(Rnd * 10) + 10

Next i

For i = 1 To 10

Print A(i);

Next i

H = A(2)

n = A(1)

A(2) = n

A(1) = H

print i

Объявить массив из 20 элементов.заполнить случ.числами 1-100 и с помощью процедуры вывести на экран

Dim A(19) As Integer

Private Sub Command1_Click()

For i = 0 To 19

A(i) = Int(Rnd * 100)

Next i

Call asd

End Sub

Sub asd()

For i = 0 To 19

Print A(i);

Next i

End Sub

Двумерный массив 30-20 в первой процедуре случайно заполнить от 0 до 100 и вывести второй процедурой

Dim b(29, 19) As Integer

Private Sub Command1_Click()

Cls

Call b1

Call b2

End Sub

Sub b1()

For i = 0 To 19

For j = 0 To 29

b(j, i) = Int(Rnd * 100)

Next j

Next i

End Sub

Sub b2()

For i = 0 To 19

For j = 0 To 29

Print b(j, i);

Next j

Print

Next i

End Sub

Наши рекомендации