Four VB programming problems, solving, solving several VB problems

There doesn't seem to be a strdup function in VB, so you need to define it yourself.

function strdup(x, y)for i = 1 to x

strdup = strdup & y

next i

end function

Question 1. private sub command1_click()for i = 1 to 5

print strdup(i, "*")

next i

end sub

Question 2. private sub command2_click()for i = 1 to 5

next i

end sub

Question 3. private sub command3_click()for i = 5 to 1 step -1next i

end sub

Question 4. private sub command4_click()for i = 5 to 1 step -1print strdup(i, "*")

next i

end sub

for i=1 to 5:print string(i,"*"):next

The fourth is the first in turn, and the third thinks to himself, there is no VB test for hand fighting, and I don't know how to ask again.

1.Yang Liu planted 2 trees on Arbor Day in 2012, and he plans to plant trees every year, and every year is 1 times more than the previous year.

Hold until you plant at least 100 trees yourself. Please write a program to calculate the year in which you can complete the plan.

According to the title 2 7 = 128, that is to say, the maximum age is 7 years, according to which the programming is as follows t=2s=2

for i=2012 to 2012+7

s=s*2t=t+s

if t>=100 then

print "to" & i & "years to complete the plan, a total of trees planted" & t & "trees"

exit for

end if

next i

2.The program asks to find a number where the sum of the tens and single digits is 10, then the answer is 19 46 823The procedure for the place of the vacant seat is.

money = 35 * n

The first question action is the meaning of 2 when the file is saved, so choose B

The second question doesn't seem to have the attribute name, b

Question 3: Select A