Шпора по VB

Private Sub Command1_Click()
Dim RightAns()
RightAns = Array(0, 0, 1, 0, 2, 2, 0, 3, 3, 2, 4, 0)
Print RightAns(5)
End Sub

Поиск
Private Sub Command1_Click()
Dim A() As Single, M As Integer, i As Integer, B() As Single, k As Integer, h As Integer, MaxA As Single, MaxB As Single
M = InputBox("M=")
Print "A:"
ReDim A(1 To M)
For i = 1 To M
A(i) = InputBox("A(" & i & ")=")
Print A(i);
Next
Print
Print "B:"
ReDim B(1 To M)
For i = 1 To M
B(i) = InputBox("B(" & i & ")=")
Print B(i);
Next
Print
MaxA = A(1)
MaxB = B(1)
For i = 1 To M
If A(i) > MaxA Then
MaxA = A(i)
k = i
End If
If B(i) > MaxB Then
MaxB = B(i)
h = i
End If
Next
A(k) = MaxB
B(h) = MaxA
Print
Print "A:"
For i = 1 To M
Print A(i);
Next
Print
Print "B:"
For i = 1 To M
Print B(i);
Next
Print
End Sub

Наполнение
Private Sub Command1_Click()
Dim X() As Single, J As Integer, i As Integer, P As Single
J = InputBox("J=")
ReDim X(1 To J)
For i = 1 To J
X(i) = InputBox("X(" & i & ")=")
Print X(i);
Next
Print
P = 1
For i = 1 To J
P = P * Abs(X(i))
Next
Print "P = " & P
End Sub

Заполнение
Private Sub Command1_Click()
Dim A() As Single, B() As Single, C() As Single, n As Integer, i As Integer
n = InputBox("n=")
Print "B:"
ReDim B(1 To n)
For i = 1 To n
B(i) = InputBox("B(" & i & ")=")
Print B(i);
Next
Print
Print "C:"
ReDim C(1 To n)
For i = 1 To n
C(i) = InputBox("C(" & i & ")=")
Print C(i);
Next
Print
Print "A:"
ReDim A(1 To n)
For i = 1 To n
If i Mod 2 = 0 Then
A(i) = C(i)
Else
A(i) = B(i)
End If
Print A(i);
Next
Print
End Sub

Цикл
Private Sub Command1_Click()
Dim V1 As Single
Dim V2 As Single
Dim a As Single
Dim l As Single
V1 = InputBox("BBEDITE V1")
For V2 = 55 To 75 Step 10
a = 2
Do While a <= 6
l = 8 * (V1 ^ 2) * (V2 ^ 2) / (a * (V1 + V2))
Print "V2=" & X1; Tab; "a=" & a; Tab; "l=" & l
a = a + 1
Loop
Next
End Sub

Развилка
Private Sub Command1_Click()
Dim q As Double, k As Double, t As Double

k = Sqr(t)

If k > 2.7 Then
q = k ^ 0.5
Else
q = 11.5 * k ^ (2 / 3)
End If


MsgBox "Значение первой функции = " & q, , "Ответ"


End Sub