水浒传武松打虎概括350:VB问题，高手请进。答对再加分

虽然大家都知道思路的重要性,不过对于初学者,分析别人的程序也是一种学习的好方法.我就是用别人的程序练上来的.呵呵.
Private Sub Command1_Click()
Dim a, l As Integer
a = Split(Text1.Text)
l = UBound(a)
Max = Val(a(0))
For i = 1 To l
If Val(a(i)) > Max Then
Max = Val(a(i))
End If
Next
Print Max
End Sub

Private Sub Command2_Click()
Dim a, M As Integer, N As Integer
a = Split(Text1.Text)
l = UBound(a)
For i = 0 To l
If a(i) Mod 2 = 0 Then
M = M + 1
Else
N = N + 1
End If
Next
Print "偶数个数为:" & M, "奇数个数为:" & N
End Sub

在Text1里的数字以空格分开.

郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈 郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈 郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈 郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈 郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈

1，冒泡排序法
2，if判断
除10求余判断奇偶
再来个计数器
算法告诉你，程序自己编
好好学习，天天向上

这样才好，以后看到太简单的题，只能说思路，不能写代码！
好好学习，天天向上！

郁闷,这么简单的还要问!
这种书上的代码太多了哈!
自己找哈