【**示例1】和【**示例2】,只使用了靜態陣列。下面使用的動態陣列
【**示例3】
1,開始乙個新的標準 exe 專案。預設情況下建立 form1。
命名工程:動態陣列
2,將類模組新增到專案中。
類命名:ccalc
3,將以下**放在類模組中:
option explicit
public rownum as integer
private arr() as variant
public function arrayvar() as variant
dim i as integer
redim arr(1 to rownum, 1 to 3)
for i = 1 to rownum
arr(i, 1) = i * 3 - 2
arr(i, 2) = i * 3 - 1
arr(i, 3) = i * 3
next i
arrayvar = arr()
end function
4,在窗體上新增
text1,接受陣列最大行數
text2,將結果,即陣列最下一行的元素寫入
乙個按鈕。該按鈕的**為
option explicit
private sub command1_click()
dim a1 as ccalc, nn as long
set a1 = new ccalc
nn = me.text1.text
a1.rownum = nn
dim arr() as variant
arr = a1.arrayvar
me.text2.text = arr(nn, 1) & " " & arr(nn, 2) & " " & arr(nn, 3)
end sub
5,除錯
參考【**示例1】與【**例項2】,注意他們的關係,dll中包含了類模組。
可以很容易將「**示例3」,轉化為excel與dll
與dll共享、相互呼叫陣列資料,方法還有很多
有關nginx rewrite模組的問號
rewrite users show?user 1?last 如果可替換部分的引數都指明了,剩下的引數就會追加到他們後面。為了避免這種情況,放置乙個問號作為最後的字元。對於上面的英文解釋一直沒有弄明白。終於出了乙個例子 重寫是這樣的 rewrite 0 9 1?p 2?last 如果加了?訪問以上的...
有關os模組的練習
在當前目錄新建目錄img,裡面包含多個檔案,檔名各不相同 x4g5.png 將當前img目錄所有以.png結尾的字尾名改為.jpg import string import os 定義乙個函式 生成目錄名稱 def gen code len 4 隨機生成四位隨機數 由字串 數字組成 li rando...
DLL的模組定義檔案( DEF)
動態連線庫函式或者成員的匯出可以用 declspec dllexport 來實現,比如為了匯出void sayhello 函式,則在dll檔案中這麼宣告 或者定義 declspec dllexport void sayhello 也可以不用 declspec dllexport 而採用.def檔案來...