Please help me make up a small program, thank you very much!

The question is how do you detect events.

It's so simple, it's all with examples, and it's copied from it.

private sub command1_click()

on error goto err_exit

dim n1 as long, n2 as long, x as long, y as long

dim t as double

n1 = clng( 'The total number of feet.

if n1 <= 0 or n1 mod 2 <>0 then goto err_exit

n2 = clng( 'The number of animals.

if n2 <= 0 or n1 < 2 * n2 then goto err_exit

t = (n1 - 2 * n2) / 2 'The number of rabbits.

x = (n1 - 2 * n2) \2 'The number of rabbits.

if t <>x or x > n2 or x < 0 then goto err_exit

y = n2 - x 'The number of chickens.

There are rabbits" & x & "Only, chickens" & y & "only"

exit sub

err_exit:

msgbox "1. The number of feet must be even and not less than 2 times the number of animals" & vbcrlf & "2. There is no solution to the input quantity"

end sub

Please drag three text boxes and one button into the interface.

'Suppose there are 5 ** in the root directory of the e-drive, and the name is.

Add image1, command1, and command2'I don't understand that you can pm

dim n as integer

private sub command1_click()if n > 1 then

n = n - 1

end if

end sub

private sub command2_click()if n < 5 then

n = n + 1

end if

end sub

private sub form_load()randomize

n = int(rnd * 5 + 1)

end sub

Hello subject,CF has Tencent's TP protection mechanism (there is a TP progress bar in the lower right corner of the stool when the runner is running, the subject can take a look),It will block the analog key functions including KeyEvent,And there is monitoring and prevention of driver process injection (so the subject can see that those plug-ins need to be updated every day or even updated several times a day to avoid killing)。

Also, what does module level mean?

It is very difficult to write the bottom layer of vb, so it is recommended that the subject use c c++ to write his own no-kill driver, and then use the thick hand vb to call.

Can I say that the answer is x<=5 instead of x>=3 &&x<=5.

I'll start by asking if everyone's name and grades are stored in the program or in an external file such as Access or Excel.

Set up a three-layer loop. The sum of the face values is sum, the number of methods is num, and the number of sheets of 1, 2, and 5 is saved with the string array s.

num=0for i=0 to 20

for j=0 to 20-i

for k=0 to 20-i-j

sum=i+j*2+k*5

if sum=60 then

num=num+1

s(num)=str(i)+"Zhang 1 yuan"+str(j)+"2 yuan per sheet"+str(k)+"$5 per sheet"i, j, and k represent the number of sheets of the yuan, and the number of sheets of each method is stored as a string.

end if

next k,j,i

It's as simple as that.

'Let's start with the calculation formula.

x+2y+5z=60

x+y+z=20

private sub form_load()dim x, y, z

for x = 1 to 20

for y = 1 to 20

for z = 1 to 20

if x + 2 * y + 5 * z = 60 and (x + y + z) = 20 then print x, y, z

next z

next y

next x

end sub

This is easy, take advantage of the fast computing speed of the computer, and perform a combination operation with a little constraint.

Let's start with the calculation formula.

private sub form_load()dim x, y, z

for x = 1 to 18

for y = 1 to 19-x

z = 20-x-y

if x + 2 * y + 5 * z = 60 then print x, y, z

next y

next x

end sub