VB 如何通過按鈕生成 TEXTBOX

在窗體中新增兩個按鈕：command1、command2 和乙個文字框：text1，然後在屬性視窗中將 text1 的 index 屬性設定為 0

private sub command1 click（） 單擊可新增乙個文字框，一次新增乙個文字框。

dim i as long

i =load text1(i)

text1(i).visible = truetext1(i).zorder

text1(i).move text1(0).left + text1(0).width * i

end sub

private sub command2 click（） 單擊可一次刪除乙個文字框。

dim i as long

i = - 1

if i > 0 then unload text1(i)end sub

注意：text1（0） 在設計時放置在窗體上，無法刪除。

textbox tb = new textbox;

至於刪除，您可以直接刪除或隱藏

哈哈，還有問題，踩我，增加採用率。

'將文字框的內容複製到剪貼簿。

將剪貼簿的內容貼上到文字框中。

複製：private sub command1 click（）。'成為焦點。

0 '設定選定的起始位置 = len（'設定選定的長度。

清除剪貼簿的內容。

將所選文字複製到剪貼簿。

end sub

貼上：private sub command2 click（）=

end sub

private sub command1_click()randomize

upperbound = 100

lowerbound = 1

int((upperbound - lowerbound + 1) *rnd + lowerbound)

end sub

其中，上限是隨機數的最大值，下限是隨機數的最小值。 您可以自行設定。

中文：85 數學：90 英語，45 生物，93

資料格式不標準。

要麼有分隔符，要麼沒有分隔符。 如果有分隔符，也應該統一，使用逗號或空格，或中文分號或英文分號。

張志辰：請解釋一下。

mid（文字、起始位置、結束位置）。

寫入第乙個按鈕事件。

dim strrnd as string

dim i as integer

for i = 1 to 20 '生成 20 個隨機數。

strrnd = strrnd & str(int(50 * rnd + 1))

nexttextbox1 = trim(strrnd) '將生成的 20 個隨機數放入第乙個文字框中。

寫入第二個按鈕事件。

dim strrnd as string

dim i as integer

dim j as integer

dim arrystr() as string

dim strnew as string

arrystr = split(trim(textbox1), " ") '將 textbox1 的值拆分為乙個陣列。

for i = 0 to ubound(arrystr) '使用冒泡方法對陣列中的值進行排序。

for j = 0 to ubound(arrystr) -1

if int(arrystr(j)) int(arrystr(j + 1)) then

strnew = arrystr(j + 1)

arrystr(j + 1) = arrystr(j)

arrystr(j) = strnew

end if

next j

next i

strrnd = ""

for i = 0 to ubound(arrystr)

strrnd = strrnd & " " & arrystr(i) '將陣列中的值連線成乙個字串。

nexttextbox2 = trim(strrnd) '在文字框中顯示排序值。

你可以寫乙個迴圈！

例如：對於 i=1 到 50

next i

這加起來不是50嗎？