Программа на Microsoft Visual Basic 2008

На VB-9 сами переведёте

Sub zz00()
Dim A As Variant, B As Long, i As Long
A = Array(12, 34, 56, 78, 90)
B = InputBox("")
For i = 0 To 4
If InStr(1, B, A(i)) Then
MsgBox "Есть запрещенное сочетание"
Exit Sub
End If
Next i
MsgBox "Запрещенных сочетаний нет "
End Sub

Sub zz01()
Dim A(10) As Long, i As Long
For i = 0 To 9
A(i) = InputBox("Введите " & i + 1 & "-й элемент")
Next i
For i = 0 To 8 Step 2
A(10) = A(i)
A(i) = A(i + 1)
A(i + 1) = A(10)
Next i
For i = 0 To 9
MsgBox A(i)
Next i
End Sub

Sub zz02()
Dim A(4) As Long, i As Long, St As String
For i = 0 To 4
A(i) = InputBox("Введите " & i + 1 & "-й элемент")
St = St & String(A(i), "*") & vbNewLine
Next i
MsgBox St
End Sub

Sub zz03()
Dim N As Long, i As Long
N = InputBox("Введите число")
For i = 2 To Fix(Sqr(N)) + 1
If (i * i) < N And (i * i * i) > N Then MsgBox i
Next i
End Sub

Sub zz04()
Dim A() As Long, B() As Long, sA As String, aB As String
Dim i As Long, j As Long, iI As Long, jJ As Long
ReDim A(iI), B(jJ)
For i = 0 To iI
For j = 0 To jJ
If A(i) <> B(j) Then
sA = sA & A(i) & vbNewLine
sb = sb & A(i) & vbNewLine
End If
Next j
Next i
MsgBox sA
MsgBox sb
End Sub

Sub zz05()
Dim N As Long, k As Long
Do While k < 3
N = Fix(Rnd * 10)
If N = 3 Then k = k + 1
MsgBox N
Loop
End Sub

Бесплатно никто не поможет. Интересует - в агент пиши

Готов взяться за проект за 10 тысяч долларов =)
P.S. Лучше сиди русский учи.. . "хуть", "чевонибуть"