Question

VB 文本框内数值大小

文本框text1 text2为多行正负数字，怎样提取出最大的数字到text3里边，负值取绝对值，也就是 -10 排 9 前边，text3取绝对值

Answer 1

Dim s() As String, t As String, i As Integer
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
   If Val(t) < Abs(Val(s(i))) Then t = s(i)
Next
s = Split(Text2.Text, vbCrLf)
For i = 0 To UBound(s)
   If Val(t) < Abs(Val(s(i))) Then t = s(i)
Next
Text3.Text = t

追问

非常感谢您写的代码，功能基本实现，就是如果负数大时，就不能实现了，比如-11和10比较时，我想要-11，现在的结果是10

追答

Dim s() As String, t As String, i As Integer
s = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(s)
   If Abs(Val(t)) < Abs(Val(s(i))) Then t = s(i)
Next
s = Split(Text2.Text, vbCrLf)
For i = 0 To UBound(s)
   If Abs(Val(t)) < Abs(Val(s(i))) Then t = s(i)
Next
Text3.Text = t

Answer 2

从小到大排序，排好后，然后把负的第一的和最后一个比较，谁大谁输出

追问

如果方便，麻烦写下VB代码，我刚接触，不是很懂

追答

这个很基础，多看书，加油

Answer 3

需要代码吗，好像你自己已经实现了。