怎么输出text1~text4中的最大（小）值

感觉你好像想用数组，但是不会把4个文本框的数放进数组里
首先，你要定义一个数组：
Dim a(1 To 4) As Integer
然后，把每个数逐一放进数组：
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
剩下的你应该就会了

max=val(text1)
min=val(text 1)
if val(text2) >max then max=val(text2)
if val(text3) >max then max=val(text3)
if val(text4) >max then max=val(text4)
text5=max
if val(text2) <min then min=val(text2)
if val(text3) <min then min=val(text3)
if val(text4) <min then min=val(text4)
text6=min

好像有MAX（）和min（）函数吧？

我以为后面的你就会了呢，原来你不会啊……
给你两段完整的代码供参考吧：
（1）使用数组
Dim a(1 To 4) As Integer
Dim i As Integer, Max As Integer, Min As Integer
a(1) = Val(Text1.Text)
a(2) = Val(Text2.Text)
a(3) = Val(Text3.Text)
a(4) = Val(Text4.Text)
Max = a(1)
Min = a(1)
For i = 2 To 4
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Next i
Text5.Text = Max
Text6.Text = Min
（2）使用控件数组（在使用以下代码之前，请将4个输入数字的文本框全部改成同一个名称Text1）
Dim i As Integer, Max As Integer, Min As Integer
Max = Val(Text1(0).Text)
Min = Val(Text1(0).Text)
For i = 1 To 3
If Val(Text1(i).Text) > Max Then Max = Val(Text1(i).Text)
If Val(Text1(i).Text) < Min Then Min = Val(Text1(i).Text)
Next i
Text5.Text = Max
Text6.Text = Min