VB Master Enter Emergency SOS Help me translate the following sentences

private sub form_activate() ''Form activation event.

Assign a value to text1

a"end sub

private sub command1_click()

command1button to click on the event.

Confirm that the data is backed up.

yesno = msgbox("You ready? ", vbno + vbquestion)

if yesno = vbno then

exit sub

end if

dim counter as integer

dim workarea(7500) as string

The progress bar control is initialized, and the minimum and maximum values of the progress bar are assigned, and the progress value is assigned to the minimum value.

lbound(workarea)

ubound(workarea)

Cycle through the value of the workarea array, set to"initial value"+ Count value and assign the progress value of the data processing to the progress bar control.

for counter = lbound(workarea) to ubound(workarea)

workarea(counter) = "initial value" & counter

counter

next counter

Data processing is complete, judgment.

falseon error goto errprompt

mkdir ( ": Data backup")

filecopy & "\", &": Data backup"

0msgbox "The data has been backed up. "

errprompt:

0select case

case 57

msgbox "The disk is full! ", vbcritical

case 70

msgbox "Disk Write Protection! ", vbcritical

end select

end sub

private sub command2_click()

button command2 for the click event, which is used to uninstall the form.

load frm_main

frm_frm_ = true

unload me

end sub

private sub form_unload(cancel as integer)

frm_ = true

end sub

private sub label1_click()

end sub

private sub label2_click()

end sub

Private secondary form activate ().

dnt>$0text1

a'end submarine.

private secondary command1 click () to confirm data backup yesno = msgbox ("Ready?") ”，vbno + vbquestion)

if then yesno = vbno

Exit submarine.

end, if.

dim resists as an integer.

dim workarea (7500) as string = lbound (workarea).

ubound (workarea)

for resistance = lbound (workarea) to ubound (workarea).

workarea (inverse) = "original value" & inverse = inverse.

next Resistance.

Errprompt for error = on incorrect positioning

mkdir ( Data backup")

Filecopy & Data Backup"

0msgbox "The data has been backed up. ”

errprompt ：

0select case.

case 57

msgbox "Disk is full! ”，vbcriticalcase 70

msgbox "Disk Write Protection! Vbcritical's selection of Endend submarines.

private secondary command2 click() load frm main

frm_main。Show.

frm_main。Enable = Complete.

unload me.

End submarines.

private, secondary form unload (as an integer cancel), frm mainEnable = Complete.

End submarines.

private secondary label1 click ()end submarine.

Private Secondary label2 click ()end submarine.

dim sum as long

for i=1 to n

sum=sum+i*10+i

next2: Functions and subroutines can decompose a complex program into several simple components, which can be called repeatedly. The difference between them is that the subroutine does not return a value, while the function has a return value.

if a mod 2=0 then

msgbox "a is an even number"

elsemsgbox "a is an odd number"

end if

select case cj

case 0 to

msgbox "Fail"

case 60 to 100

msgbox "Pass"

case else

msgbox "The grades are incorrect"

end select

dim s as string

for i=1 to 9

s=""for j=1 to i

s=s & i & j & i*j

next print s

next Flow number staring chart, you can analyze it yourself,

1. The value of a is a random integer between 0 and 99. Because the rnd function randomly generates a single-precision number (real number) between 0--1 (excluding 0 and 1), and then multiplies it by 100 to become a real number between 0--100, and int() is a rounding function, so the possible range of real numbers between 0--100 is 0--99, including 0 and 99.

2. The program executes the insertion sorting algorithm. Judging from the part ** you provide, it should randomly generate an integer within 100, and find its position and insert it in the existing ascending sequence to generate a new sequence.

3. The result is that the elements of the array d are arranged in descending order. This can be seen from the statement i=k do while i>1 and d(i-1)>a.

4. The program is aimed at 1 number, which is a randomly generated A value.

The value of a is a random integer between 0 and 99.

The program executes a direct insertion sorting algorithm.

As a result, the elements of array d are arranged in ascending order.

This segment is inserted into an element.