How VB generates a TEXTBOX at the push of a button

Add two buttons to the form: command1, command2, and a text box: text1, and then set the index property of text1 to 0 in the properties window

private sub command1 click() Click to add a text box one at a time.

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() Click to delete one text box at a time.

dim i as long

i = - 1

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

Note: text1(0) is placed on the form at design time and cannot be deleted.

textbox tb = new textbox;

As for deleting, you can delete it directly or hide

Haha, there's still a problem, step on me, increase adoption.

'Copy the contents of the text box to the clipboard.

Paste the contents of the clipboard into the text box.

Copy: private sub command1 click().'to the focus.

0 'Sets the selected start position = len('Sets the selected length.

Clear the contents of the clipboard.

Copy the selected text to the clipboard.

end sub

Paste: private sub command2 click()=

end sub

private sub command1_click()randomize

upperbound = 100

lowerbound = 1

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

end sub

where upperbound is the maximum value of the random number and lowerbound is the minimum value of the random number. You can set it up yourself.

Chinese: 85 Mathematics: 90 English, 45 Biology, 93

The data format is not standard.

Either there is a separator or no separator. If there is a separator, it should also be uniform, using commas or spaces, or Chinese semicolons or English semicolons.

Zhang Zhichen: Please explain.

mid (text, start position, end position).

The first button event is written.

dim strrnd as string

dim i as integer

for i = 1 to 20 'Generate 20 random numbers.

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

nexttextbox1 = trim(strrnd) 'Place the generated 20 random numbers into the first text box.

The second button event is written.

dim strrnd as string

dim i as integer

dim j as integer

dim arrystr() as string

dim strnew as string

arrystr = split(trim(textbox1), " ") 'Split the value of textbox1 into an array.

for i = 0 to ubound(arrystr) 'Sort the values in the array using the bubble method.

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) 'Concatenate the values in an array into a string.

nexttextbox2 = trim(strrnd) 'Displays the sorted values in the text box.

You can write a loop!

For example: for i=1 to 50

next i

Doesn't that add up to 50?