vb 如何从变化个数的数据中取一个最大值？

运行下面的代码，也许理解起来更直观些

Private Sub Command1_Click()
Dim grp() As Integer
Dim i As Integer
Dim strMsg As String
Dim intMax As Integer
If Val(Text1.Text) <= 0 Then
MsgBox "请输入比较的个数！"
Exit Sub
End If
ReDim grp(Val(Text1.Text) - 1)
For i = 0 To UBound(grp) 'UBound获取数组最大下标
'给数组随机赋值
Randomize
grp(i) = Int(Rnd * 100)
strMsg = strMsg & " " & grp(i)
Next i
'取最大值
For i = 0 To UBound(grp) 'UBound获取数组最大下标
If intMax < grp(i) Then

intMax = grp(i)
End If
Next i
MsgBox "数组内容：" & strMsg & vbCrLf & "最大值为： " & intMax
End Sub

可以做个循环对比
找一个变量做为最大值的储存变量
给你个思路，例如，
数据循环
if a<数组值 then a=数组值
循环结束
相信能看明白~~

用arraylist吧
用户要多放数字的话直接往里面加
不然也可以redim 新的数组
比较大小可以参考一楼的回答

楼上的回答不错,动态数组在VB中用ReDim,但也可以让用户自己输入数据,我建议定义一函数来返回数据中的最大值;