簡單vb陣列訪問

2022-03-31 13:25:11 字數 713 閱讀 3466

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 愛國...