随机数组

关注

原创最新推荐文章于 2026-04-30 09:37:39 发布 433 阅读 AI 写同款· GEO 优化 ›

VC++随机数组生成工具的开发与应用 随机数组是由一系列随机数构成的数组。在编程中，随机数组可以用于测试算法性能，提供模拟测试数据，或者作为游戏中生成随机事件的基础。随机数组的创建通常涉及到随机数生成器的选择、随机数生成以及数组初始化等步骤。<random>在生成浮点数数组时，控制精度是非常重要的。浮点数由于其表示方法，可能会引入舍入误差，这些误差在进行大量计算时可能会累积并导致显著的误差。为了保证结果的准确性，我们通常需要根据实际应用场景确定适当的精度。精度控制可以通过选择合适的浮点数类型来实现，如floatdouble或。阅读详情

Public Type PPPOE '自定义类型PPPOE user As String pass As String End Type Public ADSL() As PPPOE Function RandArray() '随机排列数组 Dim TempAdsl() As PPPOE, i As Long, j As Long, Ti As Long, Tj As Long, T As PPPOE ReDim Preserve TempAdsl(UBound(ADSL())) For i = 0 To UBound(ADSL()) For Tj = 0 To 2 j = RandBack(UBound(ADSL())) 'Form1.List3.AddItem j If ADSL(j).user = "Null" Then ReDim Preserve ADSL(FilterNull2(ADSL())) Else T = ADSL(j) ADSL(j).user = "Null" Exit For End If Next TempAdsl(i) = T Next Ti = UBound(TempAdsl()) ReDim Preserve ADSL(Ti) For i = 0 To Ti ADSL(i) = TempAdsl(i) Next End Function Function RandBack(ByVal i As Long) As Long '返回随机数 Randomize RandBack = Int((i * Rnd) + 0) End Function Function FilterNull(ByRef TempAdsl() As PPPOE) As Long '过滤数组中方法1 Dim i As Long, i2 As Long i2 = 0 Dim TempStrAdsl() As PPPOE For i = 0 To UBound(TempAdsl) If TempAdsl(i).user <> "Null" Then ReDim Preserve TempStrAdsl(i2) TempStrAdsl(i2) = TempAdsl(i) i2 = i2 + 1 End If Next For i = 0 To UBound(TempStrAdsl) TempAdsl(i) = TempStrAdsl(i) Next FilterNull = UBound(TempStrAdsl) End Function Function FilterNull2(ByRef TempAdsl() As PPPOE) As Long '过滤数组中方法2 Dim T As PPPOE, i As Long, j As Long, i2 As Long, Ti As Long i2 = UBound(TempAdsl()) j = 0 For i = 0 To i2 If TempAdsl(i).user = "Null" Then For Ti = i + 1 To i2 If TempAdsl(Ti).user <> "Null" Then TempAdsl(i) = TempAdsl(Ti): TempAdsl(Ti).user = "Null": Exit For Next End If Next For i = 0 To i2 If TempAdsl(i).user = "Null" Then FilterNull2 = i - 1: Exit For Next End Function

收录于