1樓:匿名使用者
你要的程式來了,完全根據你的意思來做的,已經驗證ok!!!
private sub command1_click()dim str(1 to 50) as string '定義陣列dim str1 as string
dim i as integer
str1 = text1.text
label1.caption = vbnullstringfor i = 1 to len(str1)str(i) = mid(str1, i, 1) '乙個乙個的存入陣列
next
for i = lbound(str) to ubound(str)label1.caption = label1.caption & str(i) '乙個乙個的從陣列中輸出
next
end sub
我也是vb愛好者,以後共同學習!!!
2樓:匿名使用者
給你乙個簡單得~
private sub text1_keypress(keyascii as integer)
s = s & chr(keyascii) & ","
a = split(s, ",")
for i = 0 to ubound(a)label1.caption = label1.caption & a(i)
next i
end sub
指標陣列中每個元素的訪問,如何訪問陣列中的元素
指向陣列的指標 就是陣列指標 比如int a 10 int p 10 p a 然後 訪問的時候 p i 就是a i 一般用來指向二維陣列。include include int main char string str printf s n str 0 顯示第一組陣列 printf s n str ...
vb簡單問題
1.十進位制。十進位制計數制由 0 1 2 3 4 5 6 7 8 9共 10個數字符號組成。相同數字符號在不同的數字上表示不同的數值,每個數字計滿十就向高位進一,即 逢十進一 如 可以表示成。2.八進位制。八進位制計數制由 0 1 2 3 4 5 6 7共 8個數字符號組成。相同數字符號在不同的數...
求VB幫助控制項陣列的問題
品牌3個按鈕為command1控制項組 品牌資訊3個文字框為text1控制項組 各個品牌數量及總價為text2控制項組 確定取消結束為command2控制項組 private sub command1 click index as integer if index 0 then text1 0 愛國...