幾個VBA的小程式示例

1: 判斷字串中是否包含另乙個字串

sub test1()

dim str as string
str = "英屬維京群島持續發展控股****、劉敦輝"
ifinstr(str, "、") then
msgbox
"包含"
else
msgbox
"不包含"
endif
endsub
sub test2()
dim str as string
str = "英屬維京群島持續發展控股****、劉敦輝"
if str like "*、*"
then
msgbox
"包含"
else
msgbox
"不包含"
endif
endsub

vba 沒有動態陣列，但是可以模擬一下

dim arr（）as

string
'這樣宣告，一旦賦值後，陣列大小也就固定了。
redim arr（10） '擴充套件陣列
preserve
redim arr（）'加preserve 可以不清空陣列，保持原有資料

sub abc()

msgbox
ubound(abcd)
for i = 1
toubound(abcd)
msgbox (abcd(i)) 
nextend 
sub

幾個小程式

幾個c語言程式 一 如何 交換整形變數的內容？1.給定兩個整形變數的值，將兩個值的內容進行交換。includeint main 不允許建立臨時變數，交換兩個數的內容 includeint main 二 求max值 3.求10 個整數中最大值。include int main int max num ...

幾個shell小程式

說明 以下外殼指令碼，完成後全部拷貝至系統的公共可執行程式目錄，使得可以在任意目錄下執行 sudo cp hello calc mcp fileinfo guessnum bin helloshell bin中 你好 bin bash 宣告shell直譯器位置 word hello shell ec...

小程式介面呼叫示例

pages activitydetail activitydetail.js 獲取應用例項 var call require utils request.js page showdetailintro false,collected false,生命週期函式 監聽頁面載入 onload functi...