怎么输出text1~text4中的最大（小）值
vb吧
全部回复
仅看楼主
level 5
贴吧用户_aeMQJMJ 楼主
如何让text1~4中的最大小值显示在text5和text6上。求最值只会用listbox[委屈]其他的不懂
2023年10月24日 13点10分 1
level 15
初音✨七奈
感觉你好像想用数组，但是不会把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)
剩下的你应该就会了
2023年10月24日 14点10分 2
贴吧用户_aeMQJMJ
不行啊[汗]编译错误，按照你说的去试了下，运行结果放第6楼了。代码哪个部分出错了
2023年10月25日 06点10分
level 1
贴吧用户_71d5c9b
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
2023年10月24日 15点10分 3
level 8
tbzp666
listbox叫列表框（name属性是listX），textbox叫文本框（name属性是TextX）是不同控件
2023年10月25日 02点10分 4
level 4
玖叁邀
好像有MAX（）和min（）函数吧？
2023年10月25日 02点10分 5
总裁大人👻
vb6里面并没有[滑稽]要自己实现
2023年10月25日 08点10分
玖叁邀
@总裁大人👻 可以调用Microsoft里的控件
2023年10月25日 08点10分
level 5
贴吧用户_aeMQJMJ 楼主
2023年10月25日 06点10分 6
总裁大人👻
text控件非数组text1、text2等不能写成text(i)，而且你都赋值给a数组了，为什么不用a和max、min比较？
2023年10月25日 08点10分
贴吧用户_aeMQJMJ
@总裁大人👻 那正确的代码写法到底是怎么样的呢😭
2023年10月25日 08点10分
level 15
初音✨七奈
我以为后面的你就会了呢，原来你不会啊……
给你两段完整的代码供参考吧：
（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
2023年10月25日 10点10分 7
1