第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號安全,請及時綁定郵箱和手機(jī)立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

你好,請問UBound() = -1是什么意思?

你好,請問UBound() = -1是什么意思?

守候你守候我 2022-04-03 10:06:55
Sub 怎樣從一個數(shù)組中找出另一個數(shù)組不存在的內(nèi)容2()Dim b(), c(), d()Dim n, j As Integerb = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)c = Array(1, 2, 3, 4, 5, 6, 7, 8)n = 1For j = LBound(b) To UBound(b)If UBound(VBA.Filter(c, b(j))) = -1 ThenReDim Preserve d(1 To n)d(n) = b(j)n = n + 1End IfNextMsgBox Join(d, ",")End Sub請問,這段代碼中If UBound(VBA.Filter(c, b(j))) = -1 Then,為什么要判斷是否等于-1,等于-1代表什么,還有別的值么?分別是什么意思!謝謝
查看完整描述

3 回答

?
RISEBY

TA貢獻(xiàn)1856條經(jīng)驗 獲得超5個贊

VBA.filter(c,b(j)) 先從這里分析
c是一個數(shù)組 b(j)是b數(shù)組的一個元素,
filter這里的意思就是從c數(shù)組中找出包括b(j)的所有元素,構(gòu)成一個新的數(shù)組。
vba.filter(c,b(j))這里的意思就是從c中找出包含b(j)的所有元素構(gòu)成一個新的數(shù)組。
再說ubound(參數(shù))這個函數(shù)的作物,這里的參數(shù)必須是一個數(shù)組,而函數(shù)的返回值是這個參數(shù)數(shù)組的最大下標(biāo)。
而結(jié)合起來看,就是如果c中包含了b(j)的元素,那么會構(gòu)成一個新的數(shù)組,最大下標(biāo)起碼是0,而不包含該元素時,自然b(j)的元素,那么返回-1

查看完整回答
反對 回復(fù) 2022-04-07
?
慕村225694

TA貢獻(xiàn)1880條經(jīng)驗 獲得超4個贊

VBA.Filter本身是自動返回數(shù)組的,-1表示不包含,也就沒有返回一個數(shù)組,也就是VBA.Filter不構(gòu)成數(shù)組。
一下來自MSDN
VBA.Filter返回以零為基礎(chǔ)的 array,其中包含以特定過濾條件為基礎(chǔ)的字符數(shù)組集.
Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = VBA.Filter(MyArray, "Mon") 'MyIndex(0) 包含 "Monday"。
也就是說包含的時候返回一個數(shù)組,否則不構(gòu)成數(shù)組,UBound(VBA.Filter返回值)為-1
掉坑里了,提交后發(fā)現(xiàn)已經(jīng)采納了。



查看完整回答
反對 回復(fù) 2022-04-07
?
蝴蝶刀刀

TA貢獻(xiàn)1801條經(jīng)驗 獲得超8個贊

ubound()=-1,指某一數(shù)組的最大下標(biāo)為-1

1、這是VBA中的函數(shù)。ubound和lbound分別對應(yīng)最大下標(biāo)和最小下標(biāo)。

2、括號內(nèi)引用的參數(shù)為數(shù)組。

3、二者的范圍為均整數(shù)(負(fù)整數(shù),0,正整數(shù))。

4、一般設(shè)定其范圍為1到某個自然數(shù)或者0到某個自然數(shù),便于計數(shù)。極少有使用負(fù)數(shù)的情況,當(dāng)然并不違規(guī)。

可復(fù)制如下代碼到VBA中運(yùn)行理解相關(guān)函數(shù)。


Sub array_()Dim my_Array(-10 To -1) As SingleFor i = -10 To -1my_Array(i) = i * 2Debug.Print my_Array(i)NextDebug.Print UBound(my_Array)Debug.Print LBound(my_Array)Debug.Print my_Array(UBound(my_Array))Debug.Print my_Array(LBound(my_Array))End Sub



查看完整回答
反對 回復(fù) 2022-04-07
  • 3 回答
  • 0 關(guān)注
  • 368 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學(xué)習(xí)伙伴

公眾號

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號