UC知道VB问题！请高手进来帮助！在线等待！谢谢！
来源：百度知道 编辑：UC知道 时间：2024/05/12 17:14:53
Public Sub Command1_Click()
End Sub
Dim t(20) As Integer
List1.Clear
For i = 1 To 20
t(20) = Int(Rnd() * 96 + 5)
List1.AddItem t(20)
Next i
Public Function PPP(max As Integer)
For m = 1 To 20
max = t(1)
If t(1) < t(m) Then
max = t(m)
PPP = max
End Function
End Sub
Public Sub Command2_Click()
Text1.Text = PPP
End Sub
上段程序是`在List1中产生20个随机数，然后点击command1后Text1中显示List1产生的随机数中的最大数。
但似乎有许多错误。我不明白。请给我解释一下吧。
由于我的积分已经是负数，所以……抱歉了。
End Sub
Dim t(20) As Integer
List1.Clear
For i = 1 To 20
t(20) = Int(Rnd() * 96 + 5)
List1.AddItem t(20)
Next i
Public Function PPP(max As Integer)
For m = 1 To 20
max = t(1)
If t(1) < t(m) Then
max = t(m)
PPP = max
End Function
End Sub
Public Sub Command2_Click()
Text1.Text = PPP
End Sub
上段程序是`在List1中产生20个随机数，然后点击command1后Text1中显示List1产生的随机数中的最大数。
但似乎有许多错误。我不明白。请给我解释一下吧。
由于我的积分已经是负数，所以……抱歉了。
'给数组赋值不对,还有按钮1没写代码,函数你没有定义类型
Dim t(20) As Integer
Dim i, max As Integer
Public Function PPP() As Integer
max = t(1)
For i = 1 To 20
If max < t(i) Then
max = t(i)
PPP = max
End If
Next i
End Function
Private Sub Command1_Click()
List1.Clear
For i = 1 To 20
t(i) = Int(Rnd() * 96 + 5) '你在这里的时候没有给数组的每个成员赋值,只能数组的最后一个赋了值,所以你得到的结果永远是只有数据中的最后一个,而且是最后一次的随机数
List1.AddItem t(i)
Next i
End Sub
Public Sub Command2_Click()
Text1.Text = PPP
End Sub