求编程高手帮忙编个小程序，成功的话，高分报答！

Question

一.数字1-22范围内任选五个号（不用考虑排序）
二.选取的五个号码要求：
1.二个偶数，三个奇数
2.至少有两个号码连续（如02 .03）
3.五个号中要求有一个号码为手工录入

在WINDOWS界面下使用就行，高手请来帮个忙

Answer 1

用vb，界面一个按钮，一个文本框
代码如下：
Dim 号码(22) As Integer

Private Sub Command1_Click()
Dim x(5) As Integer
Do
x(1) = Int(InputBox("请输入一个自己确定的号码（1~22):"))
If x(1) < 1 Then
MsgBox "你自己选得这个号码太小了，正确的范围是1到22之间。", vbCritical, "22选5"
ElseIf x(1) > 22 Then
MsgBox "你自己选得这个号码太大了，正确的范围是1到22之间。", vbCritical, "22选5"
Else
Exit Do
End If
Loop
Text1 = Format(x(1), "00")
Do
x(2) = Int(Rnd * 22)
If x(2) <> x(1) And x(2) + 1 <> x(1) Then Exit Do
Loop
x(3) = x(2) + 1
Text1 = Text1 & " " & Format(x(2), "00") & " " & Format(x(3), "00")
Do
x(4) = Int(Rnd * 22 + 1)
If (x(4) Mod 2) And x(4) <> x(1) And x(4) <> x(2) And x(4) <> x(3) Then Exit Do
Loop
Text1 = Text1 & " " & Format(x(4), "00")
Do
x(5) = Int(Rnd * 22 + 1)
If (Not (x(5) Mod 2)) And x(5) <> x(1) And x(5) <> x(2) And x(5) <> x(3) And x(5) <> x(4) Then Exit Do
Loop
Text1 = Text1 & " " & Format(x(5), "00")
End Sub

Private Sub Form_Load()
Me.Caption = "22选5"
Text1 = ""
Command1.Caption = "开始"
For i = 1 To 22
号码(i) = i
Next i
End Sub