Question

VB问题，高手请进。答对再加分

就有任意输入10个数，显示最大的数，
2。任意输入50个数，显示奇数的个数，和偶数的个数
答对的再加分啊。
我要程序啊,本人是刚才学VB的。

Answer 1

虽然大家都知道思路的重要性,不过对于初学者,分析别人的程序也是一种学习的好方法.我就是用别人的程序练上来的.呵呵.
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里的数字以空格分开.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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