Суммирует два массива во второй
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
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
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
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
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
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
Next i
End Sub