заполнить одномерный массив из 20 элементов случайными числами от 0 до 100.с помощью функии подсчитать количество четных чисел массива

Dim A(19) As Integer

Dim c(100) As Integer

Private Sub Command1_Click()

For I = 0 To 19

A(I) = Int(Rnd * 100)

Next I

Print summa(x)

End Sub

Function summa(x)

For I = 0 To 19

If A(I) Mod 2 = 0 Then summa = summa + 1

Next I

End Function

 

написать функцию,которая вычисляет объем цилиндра.параметрами являются радиус и высота цилиндра.V=pr(2)*H

Private Sub Command1_Click()

Dim h As Integer

Dim r As Integer

h = InputBox("введите высоту")

r = InputBox("введите радиус")

Print V(h, r)

End Sub

Function V(h, r)

p = 3.14

V = h * r * r * p

End Function

 

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

Private Sub Command1_Click()

Dim h As Integer

Dim r As Integer

n1 = InputBox("aaaaeoa n1")

n2 = InputBox("aaaaeoa n2")

Print max(n1, n2)

End Sub

Function max(n1, n2)

If n1 > n2 Then max = n1 Else max = n2

End Function

 

Рисунок малагорского клинка

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, 20), 20, vborange, pi, 2 * pi

P1.Circle (0, -20), 20, vborange, 2 * pi, pi

P1.Circle (-20, 0), 20, vbotange, pi / 2, 3 * pi / 2

P1.Circle (20, 0), 20, vborange, 3 * pi / 2, pi / 2

 

выдает рисунок уравнения прямой и параболы с вершиной в точке (у-точка)

Dim pi!, x!

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"

For x = -50 To 50 Step 0.01

y = -2 * x + 7

P1.PSet (x, y)

Next x

For x = -50 To 50 Step 0.01

y = x * x

P1.PSet (x, y - 40)

Next x

End Sub

 

Выводит 10 различных чисел больше 10

Private Sub Command1_Click()

Dim A(10) 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

End Sub

Пишет в блокноте слово dom

Private Sub Command1_Click()

Dim a As String

a = "dom"

fff = FreeFile

Open "d:\1.txt" For Output As #fff

Print #fff, a

Close #fff

End Sub

Выписывает из блокнота текст

Private Sub Command1_Click()

Dim a As String

fff = FreeFile

Open "d:\1.txt" For Input As #fff

Input #fff, a

Close #fff

Print a

End Sub

 

Пишет в документе от 1 до 10 в столбик

Private Sub Command1_Click()

Dim a As String

fff = FreeFile

Open "d:\1.txt" For Output As #fff

Print #fff, a

For i = 1 To 10

Print #fff, i

Next i

Close #fff

End Sub

 

выводит на экран содержимое блокнота(предыдущая программа)

Private Sub Command1_Click()

Dim a As String

Dim i As Integer

fff = FreeFile

Open "d:\1.txt" For Input As #fff

For i = 1 To 10 Step 1

Input #fff, a

Print a

Next i

Close #fff

End Sub

 

Записывает в блокнот массив

Private Sub Command1_Click()

Dim a(9, 9) As Integer

Dim B As String

fff = FreeFile

Open "d:\1.txt" For Output As #fff

Print #fff, B

For i = 1 To 4

a(5, 5 - i) = i

Next i

For N = 1 To 9

For k = 1 To 9

Print #fff, a(k, N);

Next k

Print #fff,

Next N

Close

End Sub

 

Массив по пириметру единицы

Private Sub Command1_Click()

Dim A(10, 10) As Integer

For i = 1 To 10

A(i, 1) = 1

A(1, i) = 1

A(10, i) = 1

A(i, 10) = 1

Next i

For N = 1 To 10

For k = 1 To 10

Print A(k, N);

Next k

Print

Next N

End Sub

Заполняет массив случайными числами

Private Sub Command1_Click()

Dim A(10, 10) As Integer

For i = 1 To 10

For j = 1 To 10

A(i, j) = Rnd * 60

Next j

Next i

For N = 1 To 10

For k = 1 To 10

Print A(k, N);

Next k

Print

Next N

End Sub

 

Ищет в массиве со случайными числами максимально число

Private Sub Command1_Click()

Dim A(10, 10) As Integer

For i = 1 To 10

For j = 1 To 10

A(i, j) = Rnd * 60

Next j

Next i

max = A(1, 1)

For i = 2 To 10

For j = 2 To 10

If max < A(i, j) Then max = A(i, j)

Next j

Next i

Print max

For N = 1 To 10

For k = 1 To 10

Print A(k, N);

Next k

Print

Next N

End Sub

 

СУММИРУЕТ А И Б ЧЕРЕЗ ФУНКЦИЮ

Private Sub Command1_Click()

Dim A As Integer

Dim B As Integer

A = InputBox("A")

B = InputBox("B")

Print V(A, B)

End Sub

Function V(A, B)

V = A + B

End Function

 

Находит гипотенузу при помощи функции

Private Sub Command1_Click()

Dim A As Integer

Dim B As Integer

A = InputBox("EAOAO1")

B = InputBox("EAOAO2")

Print V(A, B)

End Sub

Function V(A, B)

V = c

V = Sqr(A ^ 2 + B ^ 2)

End Function

 

Два массива рандомными числами(супер вриант)

Private Sub Command1_Click()

Dim A(5, 5) As Integer

Dim B(5, 5) As Integer

Call zapoln(A)

Call zapoln(B)

End Sub

Sub zapoln(x)

For i = 1 To 5

For j = 1 To 5

x(j, i) = Int(Rnd * 10)

Print x(j, i);

Next j

Print

Next i

Print

End Sub