vb程序流程图!哪位大虾可以帮小弟画出这个程序的流程图呀！感激不尽！！

Question

实验一 选择、循环和数组综合程序设计
（一）实验目的
学会综合运用选择结构、循环结构和数组进行程序设计的方法。
（二）实验内容
利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。
（三）实验要求中
1．将随机产生的60个整数存入数组，按每行10个数输出到窗体或文本框。
2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。
3．界面由学生自行设计。

Answer 1

第一步，利用随机函数产生60个100～200之间的随机整数，并且用数组记录下来。
第二步，判断奇偶数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。并用数组记录
第三步，将随机产生的60个整数存入数组，按每行10个数输出到窗体或文本框。
第四步，将排好序的偶数和奇数分别输出到窗体或两个文本框中。
界面设计：略

Answer 2

Private Sub Command1_Click()
Dim A(1 To 60) As Integer
Dim MinValue As Integer, MaxValue As Integer
MinValue = 100 '可能的最小值
MaxValue = 200 '可能的最大值
Randomize
For i = 1 To 60
A(i) = Int(Rnd * (MaxValue - MinValue + 1) + MinValue)
Next

S = ""
For i = 1 To 60
S = S & A(i) & IIf(i Mod 10 = 0, vbCrLf, " ")
Next
Print S & vbcrlf

'下面先对数组进行从小到大排序
For i = 1 To 59
For J = i To 60
If A(i) > A(J) Then
T = A(i)
A(i) = A(J)
A(J) = T
End If
Next
Next

J = 0
S = ""
For i = 1 To 60
If A(i) Mod 2 = 0 Then
J = J + 1
S = S & A(i) & IIf(J Mod 10 = 0, vbCrLf, " ")
End If
Next
Print S & vbCrlf

S = ""
J = 0
For i = 60 To 1 Step -1
If A(i) Mod 2 = 1 Then
J = J + 1
S = S & A(i) & IIf(J Mod 10 = 0, vbCrLf, " ")
End If
Next
Print S
End Sub

刚回答了一个和你一样的问题 我这是程序
至于流程图 画起来有些麻烦 自己搞定咯