ReDim Preserve arr(UBound(arr) + 1)
时间: 2024-04-04 20:33:34 浏览: 20
`ReDim Preserve arr(UBound(arr) + 1)` 这行代码的作用是将数组 `arr` 的大小增加一个单位,并保留数组中原有的数据。
`ReDim` 是 VBA 中的一个语句,用于重新定义数组的大小。在这个代码中,`Preserve` 关键字表示需要保留原有的数组数据。
`arr` 是需要重新定义大小的数组名,`UBound(arr)` 表示数组的最大下标,因此 `UBound(arr) + 1` 表示新数组的最大下标。将新数组大小赋值给 `arr` 后,原有的数组数据就会被保留。
需要注意的是,使用 `Preserve` 关键字重新定义数组大小时,只能增加数组大小,不能减少数组大小。另外,如果数组还未被初始化,需要先使用 `ReDim arr(x)` 进行初始化,其中 `x` 表示数组的大小。
相关问题
Function getMaxMinAvg(Arr,cttRead) max = CDbl(arr(0)) min = CDbl(arr(0)) sum = CDbl(arr(0)) ctra = -26 ctr27 = -27 ctrb = 0 ctrb27 = 0 For i = 0 to UBound(Arr) If CDbl(Arr(i)) < ctra Then ctrb = ctrb + 1 end if if CDbl(Arr(i)) < ctr27 Then ctrb27 = ctrb27 + 1 end if Next For i = 1 To UBound(Arr) If CDbl(Arr(i)) > max Then max = CDbl(Arr(i)) End If If Arr(i) < min Then min = CDbl(Arr(i)) End If sum = sum +CDbl(Arr(i)) Next getMaxMinAvg = Array(max,min,Round(sum/(UBound(Arr)+1),2),ctrb,i,Round(ctrb/(UBound(Arr)+1),2),ctrb27,cttRead) End Function 'Function zte_Send(oltname,iP,port,iPLast,iPnxt,sLot,fso,eXclPath,LOgfilePath,cnt,re,reNot) Function zte_Send(oltname,iP,port,iPLast,iPnxt,fso,eXclPath,LOgfilePath,cnt,re,reNot) port = Split(port,"/") s = port(1) p = port(2) If iPLast <> iP Then crt.session.Connect("/telnet "&iP) crt.Screen.WaitForString "Username:" crt.Screen.Send "tzztesuper" & vbcr crt.Screen.WaitForString "Password:" crt.Screen.Send "ZTE@suer2019" & vbcr crt.Screen.WaitForString "#" crt.Screen.Send "configure t" & vbcr crt.Screen.WaitForString "#" End If If crt.GetScriptTab.Session.Logging = True Then crt.GetScriptTab.Session.Log False End If crt.Session.LogFileName = LOgfilePath crt.GetScriptTab.Session.Log True if InStr(oltname,"中兴600") <> 0 or InStr(oltname,"C600") <> 0 then code = "show pon power onu-rx gpon_olt-1/" Else code = "show pon power onu-rx gpon_olt-1/" End If crt.Screen.send code & s & "/" & p & vbCr t = crt.Screen.WaitForStrings("--More--",")#") Do while t = 1 crt.Screen.Send " " t = crt.Screen.WaitForStrings("--More--",")#") Loop crt.GetScriptTab.Session.Log False cttRead = fso.OpenTextFile(LOgfilePath).ReadAll If reNot.Test(cttRead) Then MaxMinAvg =Array("无ONU","0","0","0","0","0",cttRead) Elseif re.test(cttRead) Then 'rxArr = Split(re.Replace(Split(cttRead,String(77,"-"))(2),"$1"),vbCrLf) Set Matches = re.Execute(cttRead) tmpcnt = 0 For Each Match In Matches ReDim Preserve rxCDblArr(tmpcnt) rxCDblArr(tmpcnt) = CDbl(Match.SubMatches(0)) tmpcnt = tmpcnt +1 Next MaxMinAvg = getMaxMinAvg(rxCDblArr,cttRead) else MaxMinAvg =Array("所有ONU离线","0","0","0","0","0",cttRead) End If If iPnxt <> iP Then crt.Screen.Send "exit"&vbCr crt.Screen.WaitForStrings "#" crt.Screen.Send "exit"&vbCr if InStr(oltname,"中兴600") <> 0 or InStr(oltname,"C600") <> 0 then crt.session.Disconnect else crt.Screen.WaitForStrings "[yes/no]:" crt.Screen.Send "yes"&vbCr crt.session.Disconnect End If crt.sleep(500) End If zte_Send = MaxMinAvg End Function
这段代码定义了两个函数。首先是 `getMaxMinAvg` 函数,它接受一个数组 `Arr` 和一个整数 `cttRead` 作为参数。该函数用于计算数组中的最大值、最小值和平均值,并返回一个包含这些值的数组。
在函数内部,它首先初始化 `max`、`min` 和 `sum` 为数组第一个元素的值。然后通过一个循环遍历数组,比较每个元素与 `max` 和 `min` 的大小,并更新它们的值。同时,累加所有元素的值到 `sum` 中。
在循环结束后,它使用 `Round` 函数计算平均值,并将所有计算结果以及其他计数器的值存储在一个数组 `getMaxMinAvg` 中,并返回该数组。
接下来是 `zte_Send` 函数,它接受多个参数用于执行某些操作。该函数主要用于与设备进行通信,并根据通信结果调用 `getMaxMinAvg` 函数来计算最大、最小和平均值。
函数内部首先根据条件判断是否需要建立 telnet 连接。然后根据设备类型拼接命令字符串,并发送命令到设备。接着使用 `WaitForStrings` 方法等待设备返回结果,并根据结果进行相应的处理。
最后,根据不同的结果情况,调用 `getMaxMinAvg` 函数或直接返回相应的结果数组。
这段代码看起来是一个用于对中兴设备进行操作的函数,其中涉及了 telnet 连接、命令发送和结果处理等操作。
access里面如何将一个文本框的数字放在一个数组里
在 Access 中,可以使用 VBA 代码将一个文本框的数字放在一个数组里。以下是示例代码:
```
Dim arr() As Integer
Dim i As Integer
' 根据文本框名称获取文本框对象
Dim txtBox As TextBox
Set txtBox = Me.Controls("txtBoxName")
' 获取文本框中的数字
Dim num As Integer
num = CInt(txtBox.Value)
' 将数字加入数组
ReDim Preserve arr(UBound(arr) + 1)
arr(UBound(arr)) = num
```
以上代码中,首先定义了一个整型数组 `arr` 和一个整型变量 `i`。然后通过文本框名称获取文本框对象,并使用 `CInt` 函数将文本框中的内容转换成整型数值。接着使用 `ReDim Preserve` 语句将数组大小扩展一个单位,并将数字加入数组。
需要注意的是,如果数组初始大小为 0,那么需要在第一次加入数字时将数组大小设置为 1,否则会出现下标越界的错误。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)