1樓：笑年
關鍵你把i%定義在command1_click() 過程內因為i%是區域性變數，你每次點command1_click時，i都是從0開始的。
所以 i%定義為全域性變數或靜態變數，讓i能夠儲存上次的值，這樣達到儲存前面的值了
第一種dim i%
private sub command1_click()dim n%
i = i + 1
dim a() as list
redim preserve a(1 to i)a(i).number = val(text1.text)a(i).
name = text2.texta(i).department = text3.
texta(i).age = val(text4.text)第二種private sub command1_click()dim n%
static i%
i = i + 1
dim a() as list
redim preserve a(1 to i)a(i).number = val(text1.text)a(i).
name = text2.texta(i).department = text3.
texta(i).age = val(text4.text)
2樓：匿名使用者
private type usrlist 『自定義陣列(格式)
name as string
number as integer
department as string
age as integer
end type
dim lst() as usrlst '定義一個（陣列）變數，代表自定義的type格式
private sub form_load()
redim lst(0) '這一組可以不用，也可以使用，關係到後續**的陣列lbound運算
end sub
private sub command1_click()
dim n%, i%
i = ubound(lst) + 1 '如果沒有預置redim lst(0) ,ubound(lst)會提示出錯
redim preserve lst(i)
lst(i).number = int(val(text1.text))
lst(i).name = cstr(text2.text)
lst(i).department = cstr(text3.text)
lst(i).age = int(val(text4.text))
list1.additem lst(i).number & space(6) & lst(i).
name & space(6) & lst(i).department & space(7) & lst(i).age
end sub
3樓：匿名使用者
建議你去學資料庫，比這個方法要好。
在文字框中輸入文字，單擊「新增」按鈕，則將文字框中文字新增到列表框中
4樓：墨曼彤
privatesubcommand1＿click（）listboxadditemtext1textendsub
按鈕combo1additemtext1
combo1text＝text1
5樓：匿名使用者
private sub command1_click()
list1.additem text1.text
end sub
6樓：匿名使用者
list1.additem textbox1.text刪除用remove selectitem
vb題。在文字框中輸入內容，然後單擊命令按鈕，在文字框中輸入的內容同時顯示在標籤和命令按鈕上。
7樓：雪v歌
先假設條件為：窗體一名稱為form1，其中文字框為text1；窗體二名稱為form2，其中文字框為text1.
窗體一上面的**為：
private sub text1_change() 『注意這裡是change
form3.label1.caption = form3.label1.caption & text1.text
end sub
窗體二上面的**為：
private sub text1_change()
form3.label1.caption = form3.label1.caption & text1.text
end sub
這樣在窗體一或者二的文字框中輸入內容時，窗體三上面的label標籤的內容也會隨之變化啦。
vb程式設計問題:程式執行時，在文字框text1中輸入1個字串，單擊命令按鈕command1時，程式能統計出輸入
8樓：匿名使用者
1、首先，在窗體上面新增一個文
本框。2、單擊文字框，在屬性視窗設定文字框的屬性，清空文字內容，將文字框的enabled屬性設定為false。
3、雙擊「提取資訊」命令按鈕，編寫程式的**，如下圖所示。提取資訊時，需要使用擷取字串相關的函式，如left,right,mid等。本題還需要使用instr函式查詢字元。
4、雙擊「清空」命令按鈕，編寫程式的**。
5、雙擊「退出」命令按鈕，編寫程式的**。
6、最後輸入字串時，就可以出輸入了。
9樓：黎洪璋
需要新建一個使用者窗體userform1，在窗體上建立text1、text2、text3和text4文字框，然後再建立一個命令按鈕，在命令按鈕裡輸入**: userform1.textbox2.
value = userform1.textbox1.value
具體怎麼判斷字母個數和字元個數可以從網上查查，我現在沒時間查了，就隨便寫一句吧。呼叫窗體的命令是userform1.show
10樓：
可以依次取出每個字元，將其轉化為ascii值，這樣判斷語句會簡單些
11樓：匿名使用者
俺是會的人，沒寫**，能說一下思路麼？
12樓：匿名使用者
private sub command1_click()text2.text = 0
text3.text = 0
text4.text = 0
for i = 1 to len(text1.text)if mid(text1.text, i, 1) like "[a-z]" or mid(text1.
text, i, 1) like "[a-z]" then
text3.text = val(text3.text) + 1elseif mid(text1.text, i, 1) like "[0-9]" then
text2.text = val(text2.text) + 1else
text4.text = val(text4.text) + 1end if
next
end sub
手機怎麼自定義檔案排序，手機怎麼自定義檔案排序
磐魔人 手機檔案在電腦上是按時間順序排序的，如果你既有手機又有sd卡，可以先將檔案先從手機移動到sd卡，再按自己想要的順序移回手機，這樣固有順序就可以改變了 這個要看是什麼品牌的手機，每個品牌的設定都有一點小差別，比如小米手機只要長按想要移動的軟體拖著它放在你想要放的位置就行了，希望採納 win7系...
lol自定義看不到本週英雄，lol自定義看不到本週免費英雄
devil佰 如圖，你必須7級 才可以用周免，7等級之前你只能使用專用的新手英雄。下面是官方的問答 獨享的英雄組合如下 寒冰射手 艾希 德瑪西亞之力 蓋倫 流浪法師 瑞茲 黑暗之女 安妮 無極劍聖 易 審判天使 凱爾 嗜血獵手 沃裡克 戰爭女神 希維爾 賞金獵人 厄運小姐 德邦總管 趙信 舉例來說，...
魔獸自定義英雄生存怎麼學召喚，魔獸自定義英雄生存V1 20 就是剛開的時候輸入命令才有技能 命令是什麼
選遠端學彈幕攻擊 再 學滿火魔 在學那個800的火魔第二個800的召喚5個.第一個800的學來智慧召喚1個 在學強擊光環 在學魔法盾最後學個攻速又加移動速度的那個光環 名字忘了 再買個龍ok了 可以通關了 魔獸爭霸3冰封王座地圖 自定義英雄生存 召喚流攻略還有技能 還有那個濺射是什麼技能啊 叫什麼 ...