编程！！！！！！！急

var
a,max:integer;
begin
max:=0;
readln(a);
while a<>0 do
begin
if a>max then
max:=a;
readln(a);
end;
writeln(max);
end.

不用开数组，边读边判断就可以了

void main(void)
{
int i;int max;
cin>>i;
max=i;
while(i!=0)
{
if(i>=max)
{max=i;}
cin>>i;
}
cout<<"最大数 :"<<max<<endl;
}

大概是这样的：
Private Sub Form_Click()
Dim a(), max As Integer, n As Integer
max = 0
Do
k = Val(InputBox("请输入100以内的数字！", "编程"))
If k >= 100 And k <> 0 Then
MsgBox "输入有误！", , "错误"
Else
n = n + 1
a(n) = k
End If
Loop Until k = 0
For i = 1 To n
If a(i) > max Then
max = a(i)
End If
Next i
Print