Заполнить одномерный массив из 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
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
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
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
Next i
End Sub