VB的小问题 谁来看升秒啊感激不金。。

确实是小问题。
只需要把第13行和第14行合成一行就好了
另外，书写程序，注意空行、缩进和注释。
还有，提问题，一定要说明出错的信息和位置以及当时的参数，别人才能判断。
改后如下：
Private Sub Command1_Click()
Dim a(4) As Integer, i As Integer
For i = 1 To 4
a(i) = i
Next i
g = funmax(a())
Print g
End Sub

Function funmax(b() As Integer) As Integer
Dim tt As Integer, n As Integer
tt = b(1)
For n = 2 To 4
If tt < b(n) Then tt = b(n)
Next n
funmax = tt
End Function

很大问题,一时三刻也看不懂你想干什么.,,好像是想求出一个数组中最大的项是吧.这样行不通.
b()是什么吖,vb6.0声明一个数组时要用常量作为数组数.
还有 Function funmax(b() As Integer) As Integer也不能这样写

写成这样吧 Function funmax(ParamArray b As Integer) As Integer

当你要声明的函数或sub 参数数量不定时,就要用到ParamArray(中文直译:参数数组)

还有,建义你改用vb.net吧,vb老了,该退休了..